diff --git a/backend/cmm_helpers.ml b/backend/cmm_helpers.ml
index 1efb24ed12a..4ec9ac6320f 100644
--- a/backend/cmm_helpers.ml
+++ b/backend/cmm_helpers.ml
@@ -1287,6 +1287,35 @@ let setfield_unboxed_int64_or_nativeint arr ofs newval dbg =
          [array_indexing log2_size_addr arr ofs dbg; newval],
          dbg ))
 
+(* Getters and setters for unboxed float32 fields *)
+
+let get_field_unboxed_float32 mutability ~block ~index dbg =
+  (* CR layouts v5.1: Properly support big-endian. *)
+  if Arch.big_endian
+  then
+    Misc.fatal_error
+      "Unboxed float32 fields only supported on little-endian architectures";
+  let memory_chunk = Single { reg = Float32 } in
+  (* CR layouts v5.1: We'll need to vary log2_size_addr to efficiently pack
+   * float32s *)
+  let field_address = array_indexing log2_size_addr block index dbg in
+  Cop
+    (Cload { memory_chunk; mutability; is_atomic = false }, [field_address], dbg)
+
+let setfield_unboxed_float32 arr ofs newval dbg =
+  (* CR layouts v5.1: Properly support big-endian. *)
+  if Arch.big_endian
+  then
+    Misc.fatal_error
+      "Unboxed float32 fields only supported on little-endian architectures";
+  (* CR layouts v5.1: We will need to vary log2_size_addr when float32 fields
+     are efficiently packed. *)
+  return_unit dbg
+    (Cop
+       ( Cstore (Single { reg = Float32 }, Assignment),
+         [array_indexing log2_size_addr arr ofs dbg; newval],
+         dbg ))
+
 (* String length *)
 
 (* Length of string block *)
@@ -1566,12 +1595,13 @@ let make_mixed_alloc ~mode dbg tag shape args =
       match flat_suffix.(idx - value_prefix_len) with
       | Imm -> int_array_set arr ofs newval dbg
       | Float | Float64 -> float_array_set arr ofs newval dbg
+      | Float32 -> setfield_unboxed_float32 arr ofs newval dbg
       | Bits32 -> setfield_unboxed_int32 arr ofs newval dbg
       | Bits64 | Word -> setfield_unboxed_int64_or_nativeint arr ofs newval dbg
   in
   let size =
-    (* CR layouts 5.1: When we pack int32s more efficiently, this code will need
-       to change. *)
+    (* CR layouts 5.1: When we pack int32s/float32s more efficiently, this code
+       will need to change. *)
     value_prefix_len + Array.length flat_suffix
   in
   if size_float <> size_addr
diff --git a/backend/cmm_helpers.mli b/backend/cmm_helpers.mli
index 11f5d1652aa..de06fed3dcd 100644
--- a/backend/cmm_helpers.mli
+++ b/backend/cmm_helpers.mli
@@ -1006,7 +1006,8 @@ val unboxed_int64_or_nativeint_array_set :
   Debuginfo.t ->
   expression
 
-(** {2 Getters and setters for unboxed int fields of mixed blocks} *)
+(** {2 Getters and setters for unboxed int and float32 fields of mixed
+    blocks} *)
 
 (** The argument structure for getters is parallel to [get_field_computed]. *)
 
@@ -1017,6 +1018,13 @@ val get_field_unboxed_int32 :
   Debuginfo.t ->
   expression
 
+val get_field_unboxed_float32 :
+  Asttypes.mutable_flag ->
+  block:expression ->
+  index:expression ->
+  Debuginfo.t ->
+  expression
+
 val get_field_unboxed_int64_or_nativeint :
   Asttypes.mutable_flag ->
   block:expression ->
@@ -1032,4 +1040,6 @@ val get_field_unboxed_int64_or_nativeint :
 
 val setfield_unboxed_int32 : ternary_primitive
 
+val setfield_unboxed_float32 : ternary_primitive
+
 val setfield_unboxed_int64_or_nativeint : ternary_primitive
diff --git a/backend/selectgen.ml b/backend/selectgen.ml
index c2bf197eedd..f6a2d366cb1 100644
--- a/backend/selectgen.ml
+++ b/backend/selectgen.ml
@@ -206,8 +206,9 @@ let size_component : machtype_component -> int = function
   | Int -> Arch.size_int
   | Float -> Arch.size_float
   | Float32 ->
-    assert (Arch.size_float = 8);
-    Arch.size_float / 2
+    (* CR layouts v5.1: reconsider when float32 fields are efficiently packed.
+       Note that packed float32# arrays are handled via a separate path. *)
+    Arch.size_float
   | Vec128 -> Arch.size_vec128
 
 let size_machtype mty =
@@ -222,10 +223,11 @@ let size_expr (env:environment) exp =
       Cconst_int _ | Cconst_natint _ -> Arch.size_int
     | Cconst_symbol _ ->
         Arch.size_addr
-    | Cconst_float32 _ ->
-      assert (Arch.size_float = 8);
-      Arch.size_float / 2
     | Cconst_float _ -> Arch.size_float
+    | Cconst_float32 _ ->
+      (* CR layouts v5.1: reconsider when float32 fields are efficiently packed.
+         Note that packed float32# arrays are handled via a separate path. *)
+      Arch.size_float
     | Cconst_vec128 _ -> Arch.size_vec128
     | Cvar id ->
         begin try
diff --git a/middle_end/flambda2/from_lambda/lambda_to_flambda_primitives.ml b/middle_end/flambda2/from_lambda/lambda_to_flambda_primitives.ml
index 8b08093db9b..f9c9e134fd4 100644
--- a/middle_end/flambda2/from_lambda/lambda_to_flambda_primitives.ml
+++ b/middle_end/flambda2/from_lambda/lambda_to_flambda_primitives.ml
@@ -991,8 +991,8 @@ let convert_lprim ~big_endian (prim : L.primitive) (args : Simple.t list list)
       List.mapi
         (fun i arg ->
           match Lambda.get_mixed_block_element shape i with
-          | Value_prefix | Flat_suffix (Float64 | Imm | Bits32 | Bits64 | Word)
-            ->
+          | Value_prefix
+          | Flat_suffix (Float64 | Float32 | Imm | Bits32 | Bits64 | Word) ->
             arg
           | Flat_suffix Float -> unbox_float arg)
         args
@@ -1533,7 +1533,7 @@ let convert_lprim ~big_endian (prim : L.primitive) (args : Simple.t list list)
     let value =
       match write with
       | Mwrite_value_prefix _
-      | Mwrite_flat_suffix (Imm | Float64 | Bits32 | Bits64 | Word) ->
+      | Mwrite_flat_suffix (Imm | Float64 | Float32 | Bits32 | Bits64 | Word) ->
         value
       | Mwrite_flat_suffix Float -> unbox_float value
     in
diff --git a/middle_end/flambda2/terms/code_size.ml b/middle_end/flambda2/terms/code_size.ml
index fb1ceef1dd6..900c6801961 100644
--- a/middle_end/flambda2/terms/code_size.ml
+++ b/middle_end/flambda2/terms/code_size.ml
@@ -162,7 +162,8 @@ let block_set (kind : Flambda_primitive.Block_access_kind.t)
   | ( Mixed
         { field_kind =
             ( Value_prefix _
-            | Flat_suffix (Imm | Float | Float64 | Bits32 | Bits64 | Word) );
+            | Flat_suffix
+                (Imm | Float | Float64 | Float32 | Bits32 | Bits64 | Word) );
           _
         },
       (Assignment _ | Initialization) ) ->
diff --git a/middle_end/flambda2/terms/flambda_primitive.ml b/middle_end/flambda2/terms/flambda_primitive.ml
index c3093050042..6b24c8af1c1 100644
--- a/middle_end/flambda2/terms/flambda_primitive.ml
+++ b/middle_end/flambda2/terms/flambda_primitive.ml
@@ -63,6 +63,7 @@ module Mixed_block_flat_element = struct
     | Imm
     | Float
     | Float64
+    | Float32
     | Bits32
     | Bits64
     | Word
@@ -71,6 +72,7 @@ module Mixed_block_flat_element = struct
     | Imm -> Imm
     | Float -> Float
     | Float64 -> Float64
+    | Float32 -> Float32
     | Bits32 -> Bits32
     | Bits64 -> Bits64
     | Word -> Word
@@ -79,6 +81,7 @@ module Mixed_block_flat_element = struct
     | Imm -> Imm
     | Float -> Float
     | Float64 -> Float64
+    | Float32 -> Float32
     | Bits32 -> Bits32
     | Bits64 -> Bits64
     | Word -> Word
@@ -87,6 +90,7 @@ module Mixed_block_flat_element = struct
     | Imm -> "Imm"
     | Float -> "Float"
     | Float64 -> "Float64"
+    | Float32 -> "Float32"
     | Bits32 -> "Bits32"
     | Bits64 -> "Bits64"
     | Word -> "Word"
@@ -96,6 +100,7 @@ module Mixed_block_flat_element = struct
     | Imm, Imm
     | Float, Float
     | Float64, Float64
+    | Float32, Float32
     | Word, Word
     | Bits32, Bits32
     | Bits64, Bits64 ->
@@ -106,6 +111,8 @@ module Mixed_block_flat_element = struct
     | _, Float -> 1
     | Float64, _ -> -1
     | _, Float64 -> 1
+    | Float32, _ -> -1
+    | _, Float32 -> 1
     | Word, _ -> -1
     | _, Word -> 1
     | Bits32, _ -> -1
@@ -116,6 +123,7 @@ module Mixed_block_flat_element = struct
   let element_kind = function
     | Imm -> K.value
     | Float | Float64 -> K.naked_float
+    | Float32 -> K.naked_float32
     | Bits32 -> K.naked_int32
     | Bits64 -> K.naked_int64
     | Word -> K.naked_nativeint
@@ -532,6 +540,7 @@ module Block_access_kind = struct
       match field_kind with
       | Imm -> K.With_subkind.tagged_immediate
       | Float | Float64 -> K.With_subkind.naked_float
+      | Float32 -> K.With_subkind.naked_float32
       | Bits32 -> K.With_subkind.naked_int32
       | Bits64 -> K.With_subkind.naked_int64
       | Word -> K.With_subkind.naked_nativeint)
diff --git a/middle_end/flambda2/terms/flambda_primitive.mli b/middle_end/flambda2/terms/flambda_primitive.mli
index 044901cbef3..8b4925e42a7 100644
--- a/middle_end/flambda2/terms/flambda_primitive.mli
+++ b/middle_end/flambda2/terms/flambda_primitive.mli
@@ -67,6 +67,7 @@ module Mixed_block_flat_element : sig
     | Imm
     | Float
     | Float64
+    | Float32
     | Bits32
     | Bits64
     | Word
diff --git a/middle_end/flambda2/to_cmm/to_cmm_primitive.ml b/middle_end/flambda2/to_cmm/to_cmm_primitive.ml
index 9fab5c542d3..97d230b7da1 100644
--- a/middle_end/flambda2/to_cmm/to_cmm_primitive.ml
+++ b/middle_end/flambda2/to_cmm/to_cmm_primitive.ml
@@ -111,6 +111,7 @@ let block_load ~dbg (kind : P.Block_access_kind.t) (mutability : Mutability.t)
       (* CR layouts v5.1: We should use the mutability here to generate better
          code if the load is immutable. *)
       C.unboxed_float_array_ref block index dbg
+    | Float32 -> C.get_field_unboxed_float32 mutability ~block ~index dbg
     | Bits32 -> C.get_field_unboxed_int32 mutability ~block ~index dbg
     | Bits64 | Word ->
       C.get_field_unboxed_int64_or_nativeint mutability ~block ~index dbg)
@@ -132,6 +133,7 @@ let block_set ~dbg (kind : P.Block_access_kind.t) (init : P.Init_or_assign.t)
       | Imm ->
         C.setfield_computed Immediate init_or_assign block index new_value dbg
       | Float | Float64 -> C.float_array_set block index new_value dbg
+      | Float32 -> C.setfield_unboxed_float32 block index new_value dbg
       | Bits32 -> C.setfield_unboxed_int32 block index new_value dbg
       | Bits64 | Word ->
         C.setfield_unboxed_int64_or_nativeint block index new_value dbg)
diff --git a/ocaml/lambda/lambda.ml b/ocaml/lambda/lambda.ml
index 112eccc9be1..9aeb5db67a3 100644
--- a/ocaml/lambda/lambda.ml
+++ b/ocaml/lambda/lambda.ml
@@ -343,7 +343,7 @@ and block_shape =
   value_kind list option
 
 and flat_element = Types.flat_element =
-    Imm | Float | Float64 | Bits32 | Bits64 | Word
+    Imm | Float | Float64 | Float32 | Bits32 | Bits64 | Word
 and flat_element_read =
   | Flat_read of flat_element (* invariant: not [Float] *)
   | Flat_read_float of alloc_mode
@@ -1249,7 +1249,7 @@ let get_mixed_block_element = Types.get_mixed_product_element
 let flat_read_non_float flat_element =
   match flat_element with
   | Float -> Misc.fatal_error "flat_element_read_non_float Float"
-  | Imm | Float64 | Bits32 | Bits64 | Word as flat_element ->
+  | Imm | Float64 | Float32 | Bits32 | Bits64 | Word as flat_element ->
       Flat_read flat_element
 
 let flat_read_float alloc_mode = Flat_read_float alloc_mode
@@ -1789,6 +1789,7 @@ let layout_of_mixed_field (kind : mixed_block_read) =
       match proj with
       | Imm -> layout_int
       | Float64 -> layout_unboxed_float Pfloat64
+      | Float32 -> layout_unboxed_float Pfloat32
       | Bits32 -> layout_unboxed_int32
       | Bits64 -> layout_unboxed_int64
       | Word -> layout_unboxed_nativeint
diff --git a/ocaml/lambda/lambda.mli b/ocaml/lambda/lambda.mli
index 28a2167346e..fc25947eda1 100644
--- a/ocaml/lambda/lambda.mli
+++ b/ocaml/lambda/lambda.mli
@@ -351,7 +351,7 @@ and block_shape =
   value_kind list option
 
 and flat_element = Types.flat_element =
-    Imm | Float | Float64 | Bits32 | Bits64 | Word
+    Imm | Float | Float64 | Float32 | Bits32 | Bits64 | Word
 and flat_element_read = private
   | Flat_read of flat_element (* invariant: not [Float] *)
   | Flat_read_float of alloc_mode
diff --git a/ocaml/lambda/matching.ml b/ocaml/lambda/matching.ml
index 73f3fbf6068..1aa6ab9d41c 100644
--- a/ocaml/lambda/matching.ml
+++ b/ocaml/lambda/matching.ml
@@ -2183,7 +2183,7 @@ let get_expr_args_record ~scopes head (arg, _mut, sort, layout) rem =
               else
                 let read =
                   match flat_suffix.(pos - value_prefix_len) with
-                  | Imm | Float64 | Bits32 | Bits64 | Word as non_float ->
+                  | Imm | Float64 | Float32 | Bits32 | Bits64 | Word as non_float ->
                       flat_read_non_float non_float
                   | Float ->
                       (* TODO: could optimise to Alloc_local sometimes *)
diff --git a/ocaml/lambda/translcore.ml b/ocaml/lambda/translcore.ml
index ce76368787d..ebc7789aab5 100644
--- a/ocaml/lambda/translcore.ml
+++ b/ocaml/lambda/translcore.ml
@@ -55,10 +55,7 @@ let layout_pat sort p = layout p.pat_env p.pat_loc sort p.pat_type
 
 let check_record_field_sort loc sort =
   match Jkind.Sort.get_default_value sort with
-  | Value | Float64 | Bits32 | Bits64 | Word -> ()
-  | Float32 ->
-    (* CR mslater: (float32) float32# records *)
-    Misc.fatal_error "Found unboxed float32 record field."
+  | Value | Float64 | Float32 | Bits32 | Bits64 | Word -> ()
   | Void -> raise (Error (loc, Illegal_void_record_field))
 
 (* Forward declaration -- to be filled in by Translmod.transl_module *)
diff --git a/ocaml/testsuite/tests/mixed-blocks/constructor_args.ml b/ocaml/testsuite/tests/mixed-blocks/constructor_args.ml
index 0f7fcea8f1c..9af1f39dc2f 100644
--- a/ocaml/testsuite/tests/mixed-blocks/constructor_args.ml
+++ b/ocaml/testsuite/tests/mixed-blocks/constructor_args.ml
@@ -1,5 +1,6 @@
 (* TEST
-   flags = "-extension layouts_beta";
+   flags = "-extension layouts_beta -extension small_numbers";
+   include beta;
    flambda2;
    {
    native;
@@ -11,6 +12,7 @@
 (*****************************************)
 (* Prelude: Functions on unboxed numbers *)
 
+module Float32_u = Beta.Float32_u
 module Float_u = Stdlib__Float_u
 module Int32_u = Stdlib__Int32_u
 module Int64_u = Stdlib__Int64_u
@@ -34,6 +36,9 @@ type t =
   | Mixed6 of float * int32# * float#
   | Mixed7 of float * int64# * float# * nativeint#
   | Mixed8 of float * int32# * float# * int64# * float#
+  | Mixed9 of float * float# * float32#
+  | Mixed10 of float * float32# * float# * int64# * float#
+  | Mixed11 of float * int32# * float32# * float# * int64# * nativeint#
   | Uniform2 of float * float
 
 type t_ext = ..
@@ -47,6 +52,9 @@ type t_ext +=
   | Ext_mixed6 of float * int32# * float#
   | Ext_mixed7 of float * int64# * float# * nativeint#
   | Ext_mixed8 of float * int32# * float# * int64# * float#
+  | Ext_mixed9 of float * float# * float32#
+  | Ext_mixed10 of float * float32# * float# * int64# * float#
+  | Ext_mixed11 of float * int32# * float32# * float# * int64# * nativeint#
 
 let sprintf = Printf.sprintf
 
@@ -75,6 +83,17 @@ let to_string = function
       sprintf "Mixed8 (%f, %i, %f, %i, %f)"
         x1 (Int32_u.to_int x2) (Float_u.to_float x3) (Int64_u.to_int x4)
         (Float_u.to_float x5)
+  | Mixed9 (x1, x2, x3) ->
+      sprintf "Mixed9 (%f, %f, %f)" x1 (Float_u.to_float x2)
+      (Float_u.to_float (Float32_u.to_float x3))
+  | Mixed10 (x1, x2, x3, x4, x5) ->
+      sprintf "Mixed10 (%f, %f, %f, %i, %f)"
+        x1 (Float_u.to_float (Float32_u.to_float x2)) (Float_u.to_float x3)
+        (Int64_u.to_int x4) (Float_u.to_float x5)
+  | Mixed11 (x1, x2, x3, x4, x5, x6) ->
+      sprintf "Mixed11 (%f, %i, %f, %f, %i, %i)"
+        x1 (Int32_u.to_int x2) (Float_u.to_float (Float32_u.to_float x3))
+        (Float_u.to_float x4) (Int64_u.to_int x5) (Nativeint_u.to_int x6)
   | Uniform2 (x1, x2) -> sprintf "Uniform2 (%f, %f)" x1 x2
 
 let ext_to_string = function
@@ -100,6 +119,17 @@ let ext_to_string = function
     sprintf "Ext_mixed8 (%f, %i, %f, %i, %f)"
       x1 (Int32_u.to_int x2) (Float_u.to_float x3) (Int64_u.to_int x4)
       (Float_u.to_float x5)
+  | Ext_mixed9 (x1, x2, x3) ->
+      sprintf "Ext_mixed9 (%f, %f, %f)" x1 (Float_u.to_float x2)
+      (Float_u.to_float (Float32_u.to_float x3))
+  | Ext_mixed10 (x1, x2, x3, x4, x5) ->
+      sprintf "Ext_mixed10 (%f, %f, %f, %i, %f)"
+        x1 (Float_u.to_float (Float32_u.to_float x2)) (Float_u.to_float x3)
+        (Int64_u.to_int x4) (Float_u.to_float x5)
+  | Ext_mixed11 (x1, x2, x3, x4, x5, x6) ->
+      sprintf "Ext_mixed11 (%f, %i, %f, %f, %i, %i)"
+        x1 (Int32_u.to_int x2) (Float_u.to_float (Float32_u.to_float x3))
+        (Float_u.to_float x4) (Int64_u.to_int x5) (Nativeint_u.to_int x6)
   | _ -> "<ext>"
 
 let print t = print_endline ("  " ^ to_string t)
@@ -128,12 +158,12 @@ let () = run #17.0
    exercise an optimization code path.
 *)
 
-let sum uf uf' f f' i i32 i64 i_n =
+let sum uf uf' f f' i i32 i64 i_n f32 =
   Float_u.to_float uf +. Float_u.to_float uf' +. f +. f' +.
   Int32_u.to_float i32 +. Int64_u.to_float i64 +. Nativeint_u.to_float i_n
-  +. float_of_int i
+  +. float_of_int i +. (Float_u.to_float (Float32_u.to_float f32))
 
-let construct_and_destruct uf uf' f f' i i32 i64 i_n =
+let construct_and_destruct uf uf' f f' i i32 i64 i_n f32 =
   let Constant = Constant in
   let Uniform1 f = Uniform1 f in
   let Mixed1 uf = Mixed1 uf in
@@ -144,6 +174,9 @@ let construct_and_destruct uf uf' f f' i i32 i64 i_n =
   let Mixed6 (f, i32, uf) = Mixed6 (f, i32, uf) in
   let Mixed7 (f, i64, uf, i_n) = Mixed7 (f, i64, uf, i_n) in
   let Mixed8 (f, i32, uf, i64, uf') = Mixed8 (f, i32, uf, i64, uf') in
+  let Mixed9 (f, uf, f32) = Mixed9 (f, uf, f32) in
+  let Mixed10 (f, f32, uf, i64, uf') = Mixed10 (f, f32, uf, i64, uf') in
+  let Mixed11 (f, i32, f32, uf, i64, i_n) = Mixed11 (f, i32, f32, uf, i64, i_n) in
   let Ext_mixed1 uf = Ext_mixed1 uf in
   let Ext_mixed2 (f, uf) = Ext_mixed2 (f, uf) in
   let Ext_mixed3 (f, uf, uf') = Ext_mixed3 (f, uf, uf') in
@@ -152,8 +185,11 @@ let construct_and_destruct uf uf' f f' i i32 i64 i_n =
   let Ext_mixed6 (f, i32, uf) = Ext_mixed6 (f, i32, uf) in
   let Ext_mixed7 (f, i64, uf, i_n) = Ext_mixed7 (f, i64, uf, i_n) in
   let Ext_mixed8 (f, i32, uf, i64, uf') = Ext_mixed8 (f, i32, uf, i64, uf') in
+  let Ext_mixed9 (f, uf, f32) = Ext_mixed9 (f, uf, f32) in
+  let Ext_mixed10 (f, f32, uf, i64, uf') = Ext_mixed10 (f, f32, uf, i64, uf') in
+  let Ext_mixed11 (f, i32, f32, uf, i64, i_n) = Ext_mixed11 (f, i32, f32, uf, i64, i_n) in
   let Uniform2 (f, f') = Uniform2 (f, f') in
-  sum uf uf' f f' i i32 i64 i_n
+  sum uf uf' f f' i i32 i64 i_n f32
 [@@ocaml.warning "-partial-match"]
 
 let () =
@@ -165,10 +201,11 @@ let () =
   and i32 = #12l
   and i64 = #42L
   and i_n = #56n
+  and f32 = #1.2s
   in
   let () =
-    let sum1 = sum uf uf' f f' i i32 i64 i_n in
-    let sum2 = construct_and_destruct uf uf' f f' i i32 i64 i_n in
+    let sum1 = sum uf uf' f f' i i32 i64 i_n f32 in
+    let sum2 = construct_and_destruct uf uf' f f' i i32 i64 i_n f32 in
     Printf.printf
       "Test (construct and destruct): %f = %f (%s)\n"
       sum1
@@ -218,7 +255,7 @@ let _ =
 let go x y z =
   let f =
     match x with
-    | Mixed5 (f1, uf1, i, i32_1, i_n, i64) ->
+    | Mixed11 (f1, i32_1, f32, uf1, i64, i_n) ->
         (* Close over the fields we projected out *)
         (fun () ->
            match y, z with
@@ -228,7 +265,6 @@ let go x y z =
              Mixed3 (f2, uf2, uf3) ->
                [ f1;
                  Float_u.to_float uf1;
-                 float_of_int i;
                  Int32_u.to_float i32_1;
                  Nativeint_u.to_float i_n;
                  Int64_u.to_float i64;
@@ -238,6 +274,7 @@ let go x y z =
                  f3;
                  Float_u.to_float uf4;
                  Int32_u.to_float i32_2;
+                 Float32.to_float (Float32_u.to_float32 f32);
                ]
            | _ -> assert false
         )
@@ -249,7 +286,6 @@ let test () =
   let f1 = 4.0
   and f2 = 42.0
   and f3 = 36.0
-  and i = 3
   and i32_1 = #3l
   and i32_2 = -#10l
   and i64 = -#20L
@@ -258,8 +294,9 @@ let test () =
   and uf2 = #32.0
   and uf3 = #47.5
   and uf4 = #47.8
+  and f32 = #1.2s
   in
-  let x = Mixed5 (f1, uf1, i, i32_1, i_n, i64) in
+  let x = Mixed11 (f1, i32_1, f32, uf1, i64, i_n) in
   let y = Mixed3 (f2, uf2, uf3) in
   let z = Mixed4 (f3, uf4, i32_2) in
   (* These results should match as [go] is symmetric in
@@ -292,11 +329,10 @@ let go_recursive x y z =
         let rec f_odd n =
           if n < 7 then f_even (n+1)
           else match x with
-          | Mixed5 (f1, uf1, i, i32_1, i_n, i64) ->
+          | Mixed11 (f1, i32_1, f32, uf1, i64, i_n) ->
               [ float_of_int n;
                 f1;
                 Float_u.to_float uf1;
-                float_of_int i;
                 Int32_u.to_float i32_1;
                 Nativeint_u.to_float i_n;
                 Int64_u.to_float i64;
@@ -306,6 +342,7 @@ let go_recursive x y z =
                 f3;
                 Float_u.to_float uf4;
                 Int32_u.to_float i32_2;
+                Float32.to_float (Float32_u.to_float32 f32);
               ]
           | _ -> assert false
         and f_even n = f_odd (n+1) in
@@ -318,7 +355,6 @@ let test_recursive () =
   let f1 = 4.0
   and f2 = 42.0
   and f3 = 36.0
-  and i = 3
   and i32_1 = #3l
   and i32_2 = -#10l
   and i64 = -#20L
@@ -327,8 +363,9 @@ let test_recursive () =
   and uf2 = #32.0
   and uf3 = #47.5
   and uf4 = #47.8
+  and f32 = #1.2s
   in
-  let x = Mixed5 (f1, uf1, i, i32_1, i_n, i64) in
+  let x = Mixed11 (f1, i32_1, f32, uf1, i64, i_n) in
   let y = Mixed3 (f2, uf2, uf3) in
   let z = Mixed4 (f3, uf4, i32_2) in
   (* These results should match as [go_recursive] is symmetric in
diff --git a/ocaml/testsuite/tests/mixed-blocks/constructor_args.reference b/ocaml/testsuite/tests/mixed-blocks/constructor_args.reference
index 01d2cdc0653..14c4bbe4cb1 100644
--- a/ocaml/testsuite/tests/mixed-blocks/constructor_args.reference
+++ b/ocaml/testsuite/tests/mixed-blocks/constructor_args.reference
@@ -3,7 +3,7 @@ Test (construction)
   Ext_mixed1 8.000000
   Mixed2 (3.000000, 4.500000)
   Mixed3 (6.000000, 17.000000, 5.000000)
-Test (construct and destruct): 149.700000 = 149.700000 (PASS)
+Test (construct and destruct): 150.900000 = 150.900000 (PASS)
 Test (mixed constructors in recursive groups):
   Mixed1 4.000000
   Mixed2 (5.000000, 4.000000)
@@ -19,7 +19,6 @@ Test (pattern matching).
   4.000
   17.000
   3.000
-  3.000
   174.000
   -20.000
   42.000
@@ -28,13 +27,13 @@ Test (pattern matching).
   36.000
   47.800
   -10.000
+  1.200
 Test (pattern matching, recursive closure).
   Contents of fields:
   7.000
   4.000
   17.000
   3.000
-  3.000
   174.000
   -20.000
   42.000
@@ -43,3 +42,4 @@ Test (pattern matching, recursive closure).
   36.000
   47.800
   -10.000
+  1.200
diff --git a/ocaml/testsuite/tests/mixed-blocks/generate_mixed_blocks_code.ml b/ocaml/testsuite/tests/mixed-blocks/generate_mixed_blocks_code.ml
index f120bbac0ee..aadb789c843 100644
--- a/ocaml/testsuite/tests/mixed-blocks/generate_mixed_blocks_code.ml
+++ b/ocaml/testsuite/tests/mixed-blocks/generate_mixed_blocks_code.ml
@@ -66,23 +66,24 @@ let nonempty_list_enumeration_of_list xs =
 type flat_element =
   | Imm
   | Float64
+  | Float32
   | Float
   | Bits32
   | Bits64
   | Word
 
-let flat_element_is_float = function
+let allowed_in_flat_float_block = function
   | Float64 | Float -> true
-  | Imm | Bits32 | Bits64 | Word -> false
+  | Imm | Float32 | Bits32 | Bits64 | Word -> false
 
 let flat_element_is_unboxed = function
-  | Float64 | Bits32 | Bits64 | Word -> true
+  | Float64 | Float32 | Bits32 | Bits64 | Word -> true
   | Imm | Float -> false
 
 let flat_element_is = ((=) : flat_element -> flat_element -> bool)
 let flat_element_is_not = ((<>) : flat_element -> flat_element -> bool)
 
-let all_of_flat_element = [ Imm; Float64; Float; Bits32; Bits64; Word ]
+let all_of_flat_element = [ Imm; Float64; Float32; Float; Bits32; Bits64; Word ]
 
 type value_element =
   | Str
@@ -135,7 +136,7 @@ let enumeration_of_suffix_except_all_floats_mixed
 let enumeration_of_all_floats_mixed_suffix =
   let float_flat_element =
     all_of_flat_element
-    |> List.filter ~f:flat_element_is_float
+    |> List.filter ~f:allowed_in_flat_float_block
   in
   nonempty_list_enumeration_of_list
     (list_product float_flat_element all_of_mutability)
@@ -200,6 +201,7 @@ type field_or_arg_type =
   | Imm
   | Float
   | Float64
+  | Float32
   | Str
   | Bits32
   | Bits64
@@ -209,6 +211,7 @@ let type_to_creation_function = function
   | Imm -> "create_int ()"
   | Float -> "create_float ()"
   | Float64 -> "create_float_u ()"
+  | Float32 -> "create_float32_u ()"
   | Bits32 -> "create_int32_u ()"
   | Bits64 -> "create_int64_u ()"
   | Word -> "create_nativeint_u ()"
@@ -218,6 +221,7 @@ let type_to_string = function
   | Imm -> "int"
   | Float -> "float"
   | Float64 -> "float#"
+  | Float32 -> "float32#"
   | Bits32 -> "int32#"
   | Bits64 -> "int64#"
   | Word -> "nativeint#"
@@ -230,6 +234,7 @@ let type_to_field_integrity_check type_ ~access1 ~access2 ~message =
     | Imm -> "check_int", None
     | Float -> "check_float", None
     | Float64 -> "check_float", Some "Stdlib__Float_u.to_float"
+    | Float32 -> "check_float32", Some "Beta.Float32_u.to_float32"
     | Bits32 -> "check_int32", Some "Stdlib__Int32_u.to_int32"
     | Bits64 -> "check_int64", Some "Stdlib__Int64_u.to_int64"
     | Word -> "check_int", Some "Stdlib__Nativeint_u.to_int"
@@ -255,6 +260,7 @@ let flat_element_to_type : flat_element -> field_or_arg_type = function
   | Imm -> Imm
   | Float -> Float
   | Float64 -> Float64
+  | Float32 -> Float32
   | Bits64 -> Bits64
   | Bits32 -> Bits32
   | Word -> Word
@@ -274,7 +280,7 @@ module Mixed_record = struct
   let is_all_floats t =
     List.for_all t.fields ~f:(fun field ->
         match field.type_ with
-        | Imm | Str | Bits32 | Bits64 | Word -> false
+        | Imm | Str | Float32 | Bits32 | Bits64 | Word -> false
         | Float | Float64 -> true)
 
   let of_block index { prefix; suffix } =
@@ -312,6 +318,7 @@ module Mixed_record = struct
             | Word -> "n"
             | Float -> "float"
             | Float64 -> "float_u"
+            | Float32 -> "float32_u"
           in
           let field =
             { type_ = flat_element_to_type elem;
@@ -558,7 +565,8 @@ let main n ~bytecode =
     List.iter2 values (List.tl values @ [ List.hd values]) ~f
   in
   line {|(* TEST
- flags = "-extension layouts_beta";|};
+ flags = "-extension layouts_beta -extension small_numbers";
+ include beta;|};
   if bytecode then (
     line {| bytecode;|};
   ) else (
@@ -572,7 +580,9 @@ let main n ~bytecode =
   line {|let create_string () = String.make (Random.int 100) 'a'|};
   line {|let create_int () = Random.int 0x3FFF_FFFF|};
   line {|let create_float () = Random.float Float.max_float|};
+  line {|let create_float32 () = Beta.Float32.of_float (Random.float Float.max_float)|};
   line {|let create_float_u () = Stdlib__Float_u.of_float (create_float ())|};
+  line {|let create_float32_u () = Beta.Float32_u.of_float32 (create_float32 ())|};
   line {|let create_int32_u () = Stdlib__Int32_u.of_int32 (Random.int32 0x7FFF_FFFFl)|};
   line {|let create_int64_u () = Stdlib__Int64_u.of_int64 (Random.int64 0x7FFF_FFFF_FFFF_FFFFL)|};
   line {|let create_nativeint_u () = Stdlib__Nativeint_u.of_nativeint (Random.nativeint 0x7FFF_FFFF_FFFF_FFFFn)|};
@@ -588,6 +598,9 @@ let main n ~bytecode =
   line
    {|let check_float =
   check_gen ~equal:Float.equal ~to_string:Float.to_string|};
+  line
+   {|let check_float32 =
+  check_gen ~equal:Beta.Float32.equal ~to_string:Beta.Float32.to_string|};
   line
    {|let check_int32 =
   check_gen ~equal:Int32.equal ~to_string:Int32.to_string|};
@@ -724,7 +737,7 @@ let check_reachable_words expected actual message =
                     single-field payload).
                 *)
                 if not bytecode then "" else " + 2"
-            | Bits64 | Bits32 | Word ->
+            | Float32 | Bits64 | Bits32 | Word ->
               (* Same as float64, except these are custom blocks in bytecode,
                  which involve still another field. *)
                 if not bytecode then "" else " + 3"
diff --git a/ocaml/testsuite/tests/mixed-blocks/generated_byte_test.ml b/ocaml/testsuite/tests/mixed-blocks/generated_byte_test.ml
index 64a22a4cc95..769f591c05c 100644
--- a/ocaml/testsuite/tests/mixed-blocks/generated_byte_test.ml
+++ b/ocaml/testsuite/tests/mixed-blocks/generated_byte_test.ml
@@ -1,5 +1,6 @@
 (* TEST
- flags = "-extension layouts_beta";
+ flags = "-extension layouts_beta -extension small_numbers";
+ include beta;
  bytecode;
 *)
 (** This is code generated by [generate_mixed_blocks_code.ml]. *)
@@ -8,7 +9,9 @@
 let create_string () = String.make (Random.int 100) 'a'
 let create_int () = Random.int 0x3FFF_FFFF
 let create_float () = Random.float Float.max_float
+let create_float32 () = Beta.Float32.of_float (Random.float Float.max_float)
 let create_float_u () = Stdlib__Float_u.of_float (create_float ())
+let create_float32_u () = Beta.Float32_u.of_float32 (create_float32 ())
 let create_int32_u () = Stdlib__Int32_u.of_int32 (Random.int32 0x7FFF_FFFFl)
 let create_int64_u () = Stdlib__Int64_u.of_int64 (Random.int64 0x7FFF_FFFF_FFFF_FFFFL)
 let create_nativeint_u () = Stdlib__Nativeint_u.of_nativeint (Random.nativeint 0x7FFF_FFFF_FFFF_FFFFn)
@@ -21,6 +24,8 @@ let check_string = check_gen ~equal:String.equal ~to_string:(fun x -> x)
 let check_int = check_gen ~equal:Int.equal ~to_string:Int.to_string
 let check_float =
   check_gen ~equal:Float.equal ~to_string:Float.to_string
+let check_float32 =
+  check_gen ~equal:Beta.Float32.equal ~to_string:Beta.Float32.to_string
 let check_int32 =
   check_gen ~equal:Int32.equal ~to_string:Int32.to_string
 let check_int64 =
@@ -145,228 +150,228 @@ type t74 = { mutable float0 : float; mutable float1 : float; float_u2 : float#;
 type t75 = { mutable str0 : string; mutable float_u1 : float# }
 type t76 = { str0 : string; mutable float_u1 : float# }
 type t77 = { mutable str0 : string; float_u1 : float# }
-type t78 = { mutable i32_0 : int32# }
+type t78 = { mutable float32_u0 : float32# }
 type t79 = { str0 : string; float_u1 : float# }
-type t80 = { mutable str0 : string; mutable i32_1 : int32# }
-type t81 = { i32_0 : int32# }
-type t82 = { str0 : string; mutable i32_1 : int32# }
-type t83 = { mutable str0 : string; i32_1 : int32# }
-type t84 = { mutable i64_0 : int64# }
+type t80 = { mutable str0 : string; mutable float32_u1 : float32# }
+type t81 = { float32_u0 : float32# }
+type t82 = { str0 : string; mutable float32_u1 : float32# }
+type t83 = { mutable str0 : string; float32_u1 : float32# }
+type t84 = { mutable i32_0 : int32# }
 type t85 = { mutable str0 : string; mutable str1 : string; mutable float_u2 : float# }
-type t86 = { mutable float0 : float; mutable i32_1 : int32# }
-type t87 = { str0 : string; i32_1 : int32# }
-type t88 = { mutable str0 : string; mutable i64_1 : int64# }
-type t89 = { i64_0 : int64# }
+type t86 = { mutable float0 : float; mutable float32_u1 : float32# }
+type t87 = { str0 : string; float32_u1 : float32# }
+type t88 = { mutable str0 : string; mutable i32_1 : int32# }
+type t89 = { i32_0 : int32# }
 type t90 = { str0 : string; mutable str1 : string; mutable float_u2 : float# }
 type t91 = { mutable str0 : string; mutable str1 : string; float_u2 : float# }
-type t92 = { float0 : float; mutable i32_1 : int32# }
-type t93 = { mutable float0 : float; i32_1 : int32# }
-type t94 = { str0 : string; mutable i64_1 : int64# }
-type t95 = { mutable str0 : string; i64_1 : int64# }
-type t96 = { mutable n0 : nativeint# }
+type t92 = { float0 : float; mutable float32_u1 : float32# }
+type t93 = { mutable float0 : float; float32_u1 : float32# }
+type t94 = { str0 : string; mutable i32_1 : int32# }
+type t95 = { mutable str0 : string; i32_1 : int32# }
+type t96 = { mutable i64_0 : int64# }
 type t97 = { mutable float0 : float; mutable str1 : string; mutable float_u2 : float# }
 type t98 = { str0 : string; mutable str1 : string; float_u2 : float# }
-type t99 = { mutable str0 : string; mutable str1 : string; mutable i32_2 : int32# }
-type t100 = { float0 : float; i32_1 : int32# }
-type t101 = { mutable float0 : float; mutable i64_1 : int64# }
-type t102 = { str0 : string; i64_1 : int64# }
-type t103 = { mutable str0 : string; mutable n1 : nativeint# }
-type t104 = { n0 : nativeint# }
+type t99 = { mutable str0 : string; mutable str1 : string; mutable float32_u2 : float32# }
+type t100 = { float0 : float; float32_u1 : float32# }
+type t101 = { mutable float0 : float; mutable i32_1 : int32# }
+type t102 = { str0 : string; i32_1 : int32# }
+type t103 = { mutable str0 : string; mutable i64_1 : int64# }
+type t104 = { i64_0 : int64# }
 type t105 = { float0 : float; mutable str1 : string; mutable float_u2 : float# }
 type t106 = { mutable float0 : float; mutable str1 : string; float_u2 : float# }
-type t107 = { str0 : string; mutable str1 : string; mutable i32_2 : int32# }
-type t108 = { mutable str0 : string; mutable str1 : string; i32_2 : int32# }
-type t109 = { float0 : float; mutable i64_1 : int64# }
-type t110 = { mutable float0 : float; i64_1 : int64# }
-type t111 = { str0 : string; mutable n1 : nativeint# }
-type t112 = { mutable str0 : string; n1 : nativeint# }
-type t113 = { mutable float_u0 : float#; mutable imm1 : int }
+type t107 = { str0 : string; mutable str1 : string; mutable float32_u2 : float32# }
+type t108 = { mutable str0 : string; mutable str1 : string; float32_u2 : float32# }
+type t109 = { float0 : float; mutable i32_1 : int32# }
+type t110 = { mutable float0 : float; i32_1 : int32# }
+type t111 = { str0 : string; mutable i64_1 : int64# }
+type t112 = { mutable str0 : string; i64_1 : int64# }
+type t113 = { mutable n0 : nativeint# }
 type t114 = { mutable imm0 : int; mutable str1 : string; mutable float_u2 : float# }
 type t115 = { float0 : float; mutable str1 : string; float_u2 : float# }
-type t116 = { mutable float0 : float; mutable str1 : string; mutable i32_2 : int32# }
-type t117 = { str0 : string; mutable str1 : string; i32_2 : int32# }
-type t118 = { mutable str0 : string; mutable str1 : string; mutable i64_2 : int64# }
-type t119 = { float0 : float; i64_1 : int64# }
-type t120 = { mutable float0 : float; mutable n1 : nativeint# }
-type t121 = { str0 : string; n1 : nativeint# }
-type t122 = { mutable str0 : string; mutable float_u1 : float#; mutable imm2 : int }
-type t123 = { float_u0 : float#; mutable imm1 : int }
+type t116 = { mutable float0 : float; mutable str1 : string; mutable float32_u2 : float32# }
+type t117 = { str0 : string; mutable str1 : string; float32_u2 : float32# }
+type t118 = { mutable str0 : string; mutable str1 : string; mutable i32_2 : int32# }
+type t119 = { float0 : float; i32_1 : int32# }
+type t120 = { mutable float0 : float; mutable i64_1 : int64# }
+type t121 = { str0 : string; i64_1 : int64# }
+type t122 = { mutable str0 : string; mutable n1 : nativeint# }
+type t123 = { n0 : nativeint# }
 type t124 = { imm0 : int; mutable str1 : string; mutable float_u2 : float# }
 type t125 = { mutable imm0 : int; mutable str1 : string; float_u2 : float# }
-type t126 = { float0 : float; mutable str1 : string; mutable i32_2 : int32# }
-type t127 = { mutable float0 : float; mutable str1 : string; i32_2 : int32# }
-type t128 = { str0 : string; mutable str1 : string; mutable i64_2 : int64# }
-type t129 = { mutable str0 : string; mutable str1 : string; i64_2 : int64# }
-type t130 = { float0 : float; mutable n1 : nativeint# }
-type t131 = { mutable float0 : float; n1 : nativeint# }
-type t132 = { str0 : string; mutable float_u1 : float#; mutable imm2 : int }
-type t133 = { mutable str0 : string; float_u1 : float#; mutable imm2 : int }
-type t134 = { mutable i32_0 : int32#; mutable imm1 : int }
+type t126 = { float0 : float; mutable str1 : string; mutable float32_u2 : float32# }
+type t127 = { mutable float0 : float; mutable str1 : string; float32_u2 : float32# }
+type t128 = { str0 : string; mutable str1 : string; mutable i32_2 : int32# }
+type t129 = { mutable str0 : string; mutable str1 : string; i32_2 : int32# }
+type t130 = { float0 : float; mutable i64_1 : int64# }
+type t131 = { mutable float0 : float; i64_1 : int64# }
+type t132 = { str0 : string; mutable n1 : nativeint# }
+type t133 = { mutable str0 : string; n1 : nativeint# }
+type t134 = { mutable float_u0 : float#; mutable imm1 : int }
 type t135 = { mutable str0 : string; str1 : string; mutable float_u2 : float# }
 type t136 = { imm0 : int; mutable str1 : string; float_u2 : float# }
-type t137 = { mutable imm0 : int; mutable str1 : string; mutable i32_2 : int32# }
-type t138 = { float0 : float; mutable str1 : string; i32_2 : int32# }
-type t139 = { mutable float0 : float; mutable str1 : string; mutable i64_2 : int64# }
-type t140 = { str0 : string; mutable str1 : string; i64_2 : int64# }
-type t141 = { mutable str0 : string; mutable str1 : string; mutable n2 : nativeint# }
-type t142 = { float0 : float; n1 : nativeint# }
-type t143 = { mutable float0 : float; mutable float_u1 : float#; mutable imm2 : int }
-type t144 = { str0 : string; float_u1 : float#; mutable imm2 : int }
-type t145 = { mutable str0 : string; mutable i32_1 : int32#; mutable imm2 : int }
-type t146 = { i32_0 : int32#; mutable imm1 : int }
+type t137 = { mutable imm0 : int; mutable str1 : string; mutable float32_u2 : float32# }
+type t138 = { float0 : float; mutable str1 : string; float32_u2 : float32# }
+type t139 = { mutable float0 : float; mutable str1 : string; mutable i32_2 : int32# }
+type t140 = { str0 : string; mutable str1 : string; i32_2 : int32# }
+type t141 = { mutable str0 : string; mutable str1 : string; mutable i64_2 : int64# }
+type t142 = { float0 : float; i64_1 : int64# }
+type t143 = { mutable float0 : float; mutable n1 : nativeint# }
+type t144 = { str0 : string; n1 : nativeint# }
+type t145 = { mutable str0 : string; mutable float_u1 : float#; mutable imm2 : int }
+type t146 = { float_u0 : float#; mutable imm1 : int }
 type t147 = { str0 : string; str1 : string; mutable float_u2 : float# }
 type t148 = { mutable str0 : string; str1 : string; float_u2 : float# }
-type t149 = { imm0 : int; mutable str1 : string; mutable i32_2 : int32# }
-type t150 = { mutable imm0 : int; mutable str1 : string; i32_2 : int32# }
-type t151 = { float0 : float; mutable str1 : string; mutable i64_2 : int64# }
-type t152 = { mutable float0 : float; mutable str1 : string; i64_2 : int64# }
-type t153 = { str0 : string; mutable str1 : string; mutable n2 : nativeint# }
-type t154 = { mutable str0 : string; mutable str1 : string; n2 : nativeint# }
-type t155 = { float0 : float; mutable float_u1 : float#; mutable imm2 : int }
-type t156 = { mutable float0 : float; float_u1 : float#; mutable imm2 : int }
-type t157 = { str0 : string; mutable i32_1 : int32#; mutable imm2 : int }
-type t158 = { mutable str0 : string; i32_1 : int32#; mutable imm2 : int }
-type t159 = { mutable i64_0 : int64#; mutable imm1 : int }
+type t149 = { imm0 : int; mutable str1 : string; mutable float32_u2 : float32# }
+type t150 = { mutable imm0 : int; mutable str1 : string; float32_u2 : float32# }
+type t151 = { float0 : float; mutable str1 : string; mutable i32_2 : int32# }
+type t152 = { mutable float0 : float; mutable str1 : string; i32_2 : int32# }
+type t153 = { str0 : string; mutable str1 : string; mutable i64_2 : int64# }
+type t154 = { mutable str0 : string; mutable str1 : string; i64_2 : int64# }
+type t155 = { float0 : float; mutable n1 : nativeint# }
+type t156 = { mutable float0 : float; n1 : nativeint# }
+type t157 = { str0 : string; mutable float_u1 : float#; mutable imm2 : int }
+type t158 = { mutable str0 : string; float_u1 : float#; mutable imm2 : int }
+type t159 = { mutable float32_u0 : float32#; mutable imm1 : int }
 type t160 = { mutable float0 : float; str1 : string; mutable float_u2 : float# }
 type t161 = { str0 : string; str1 : string; float_u2 : float# }
-type t162 = { mutable str0 : string; str1 : string; mutable i32_2 : int32# }
-type t163 = { imm0 : int; mutable str1 : string; i32_2 : int32# }
-type t164 = { mutable imm0 : int; mutable str1 : string; mutable i64_2 : int64# }
-type t165 = { float0 : float; mutable str1 : string; i64_2 : int64# }
-type t166 = { mutable float0 : float; mutable str1 : string; mutable n2 : nativeint# }
-type t167 = { str0 : string; mutable str1 : string; n2 : nativeint# }
-type t168 = { mutable str0 : string; mutable str1 : string; mutable float_u2 : float#; mutable imm3 : int }
-type t169 = { float0 : float; float_u1 : float#; mutable imm2 : int }
-type t170 = { mutable float0 : float; mutable i32_1 : int32#; mutable imm2 : int }
-type t171 = { str0 : string; i32_1 : int32#; mutable imm2 : int }
-type t172 = { mutable str0 : string; mutable i64_1 : int64#; mutable imm2 : int }
-type t173 = { i64_0 : int64#; mutable imm1 : int }
+type t162 = { mutable str0 : string; str1 : string; mutable float32_u2 : float32# }
+type t163 = { imm0 : int; mutable str1 : string; float32_u2 : float32# }
+type t164 = { mutable imm0 : int; mutable str1 : string; mutable i32_2 : int32# }
+type t165 = { float0 : float; mutable str1 : string; i32_2 : int32# }
+type t166 = { mutable float0 : float; mutable str1 : string; mutable i64_2 : int64# }
+type t167 = { str0 : string; mutable str1 : string; i64_2 : int64# }
+type t168 = { mutable str0 : string; mutable str1 : string; mutable n2 : nativeint# }
+type t169 = { float0 : float; n1 : nativeint# }
+type t170 = { mutable float0 : float; mutable float_u1 : float#; mutable imm2 : int }
+type t171 = { str0 : string; float_u1 : float#; mutable imm2 : int }
+type t172 = { mutable str0 : string; mutable float32_u1 : float32#; mutable imm2 : int }
+type t173 = { float32_u0 : float32#; mutable imm1 : int }
 type t174 = { float0 : float; str1 : string; mutable float_u2 : float# }
 type t175 = { mutable float0 : float; str1 : string; float_u2 : float# }
-type t176 = { str0 : string; str1 : string; mutable i32_2 : int32# }
-type t177 = { mutable str0 : string; str1 : string; i32_2 : int32# }
-type t178 = { imm0 : int; mutable str1 : string; mutable i64_2 : int64# }
-type t179 = { mutable imm0 : int; mutable str1 : string; i64_2 : int64# }
-type t180 = { float0 : float; mutable str1 : string; mutable n2 : nativeint# }
-type t181 = { mutable float0 : float; mutable str1 : string; n2 : nativeint# }
-type t182 = { str0 : string; mutable str1 : string; mutable float_u2 : float#; mutable imm3 : int }
-type t183 = { mutable str0 : string; mutable str1 : string; float_u2 : float#; mutable imm3 : int }
-type t184 = { float0 : float; mutable i32_1 : int32#; mutable imm2 : int }
-type t185 = { mutable float0 : float; i32_1 : int32#; mutable imm2 : int }
-type t186 = { str0 : string; mutable i64_1 : int64#; mutable imm2 : int }
-type t187 = { mutable str0 : string; i64_1 : int64#; mutable imm2 : int }
-type t188 = { mutable n0 : nativeint#; mutable imm1 : int }
+type t176 = { str0 : string; str1 : string; mutable float32_u2 : float32# }
+type t177 = { mutable str0 : string; str1 : string; float32_u2 : float32# }
+type t178 = { imm0 : int; mutable str1 : string; mutable i32_2 : int32# }
+type t179 = { mutable imm0 : int; mutable str1 : string; i32_2 : int32# }
+type t180 = { float0 : float; mutable str1 : string; mutable i64_2 : int64# }
+type t181 = { mutable float0 : float; mutable str1 : string; i64_2 : int64# }
+type t182 = { str0 : string; mutable str1 : string; mutable n2 : nativeint# }
+type t183 = { mutable str0 : string; mutable str1 : string; n2 : nativeint# }
+type t184 = { float0 : float; mutable float_u1 : float#; mutable imm2 : int }
+type t185 = { mutable float0 : float; float_u1 : float#; mutable imm2 : int }
+type t186 = { str0 : string; mutable float32_u1 : float32#; mutable imm2 : int }
+type t187 = { mutable str0 : string; float32_u1 : float32#; mutable imm2 : int }
+type t188 = { mutable i32_0 : int32#; mutable imm1 : int }
 type t189 = { mutable imm0 : int; str1 : string; mutable float_u2 : float# }
 type t190 = { float0 : float; str1 : string; float_u2 : float# }
-type t191 = { mutable float0 : float; str1 : string; mutable i32_2 : int32# }
-type t192 = { str0 : string; str1 : string; i32_2 : int32# }
-type t193 = { mutable str0 : string; str1 : string; mutable i64_2 : int64# }
-type t194 = { imm0 : int; mutable str1 : string; i64_2 : int64# }
-type t195 = { mutable imm0 : int; mutable str1 : string; mutable n2 : nativeint# }
-type t196 = { float0 : float; mutable str1 : string; n2 : nativeint# }
-type t197 = { mutable float0 : float; mutable str1 : string; mutable float_u2 : float#; mutable imm3 : int }
-type t198 = { str0 : string; mutable str1 : string; float_u2 : float#; mutable imm3 : int }
-type t199 = { mutable str0 : string; mutable str1 : string; mutable i32_2 : int32#; mutable imm3 : int }
-type t200 = { float0 : float; i32_1 : int32#; mutable imm2 : int }
-type t201 = { mutable float0 : float; mutable i64_1 : int64#; mutable imm2 : int }
-type t202 = { str0 : string; i64_1 : int64#; mutable imm2 : int }
-type t203 = { mutable str0 : string; mutable n1 : nativeint#; mutable imm2 : int }
-type t204 = { n0 : nativeint#; mutable imm1 : int }
+type t191 = { mutable float0 : float; str1 : string; mutable float32_u2 : float32# }
+type t192 = { str0 : string; str1 : string; float32_u2 : float32# }
+type t193 = { mutable str0 : string; str1 : string; mutable i32_2 : int32# }
+type t194 = { imm0 : int; mutable str1 : string; i32_2 : int32# }
+type t195 = { mutable imm0 : int; mutable str1 : string; mutable i64_2 : int64# }
+type t196 = { float0 : float; mutable str1 : string; i64_2 : int64# }
+type t197 = { mutable float0 : float; mutable str1 : string; mutable n2 : nativeint# }
+type t198 = { str0 : string; mutable str1 : string; n2 : nativeint# }
+type t199 = { mutable str0 : string; mutable str1 : string; mutable float_u2 : float#; mutable imm3 : int }
+type t200 = { float0 : float; float_u1 : float#; mutable imm2 : int }
+type t201 = { mutable float0 : float; mutable float32_u1 : float32#; mutable imm2 : int }
+type t202 = { str0 : string; float32_u1 : float32#; mutable imm2 : int }
+type t203 = { mutable str0 : string; mutable i32_1 : int32#; mutable imm2 : int }
+type t204 = { i32_0 : int32#; mutable imm1 : int }
 type t205 = { imm0 : int; str1 : string; mutable float_u2 : float# }
 type t206 = { mutable imm0 : int; str1 : string; float_u2 : float# }
-type t207 = { float0 : float; str1 : string; mutable i32_2 : int32# }
-type t208 = { mutable float0 : float; str1 : string; i32_2 : int32# }
-type t209 = { str0 : string; str1 : string; mutable i64_2 : int64# }
-type t210 = { mutable str0 : string; str1 : string; i64_2 : int64# }
-type t211 = { imm0 : int; mutable str1 : string; mutable n2 : nativeint# }
-type t212 = { mutable imm0 : int; mutable str1 : string; n2 : nativeint# }
-type t213 = { float0 : float; mutable str1 : string; mutable float_u2 : float#; mutable imm3 : int }
-type t214 = { mutable float0 : float; mutable str1 : string; float_u2 : float#; mutable imm3 : int }
-type t215 = { str0 : string; mutable str1 : string; mutable i32_2 : int32#; mutable imm3 : int }
-type t216 = { mutable str0 : string; mutable str1 : string; i32_2 : int32#; mutable imm3 : int }
-type t217 = { float0 : float; mutable i64_1 : int64#; mutable imm2 : int }
-type t218 = { mutable float0 : float; i64_1 : int64#; mutable imm2 : int }
-type t219 = { str0 : string; mutable n1 : nativeint#; mutable imm2 : int }
-type t220 = { mutable str0 : string; n1 : nativeint#; mutable imm2 : int }
-type t221 = { mutable float_u0 : float#; imm1 : int }
+type t207 = { float0 : float; str1 : string; mutable float32_u2 : float32# }
+type t208 = { mutable float0 : float; str1 : string; float32_u2 : float32# }
+type t209 = { str0 : string; str1 : string; mutable i32_2 : int32# }
+type t210 = { mutable str0 : string; str1 : string; i32_2 : int32# }
+type t211 = { imm0 : int; mutable str1 : string; mutable i64_2 : int64# }
+type t212 = { mutable imm0 : int; mutable str1 : string; i64_2 : int64# }
+type t213 = { float0 : float; mutable str1 : string; mutable n2 : nativeint# }
+type t214 = { mutable float0 : float; mutable str1 : string; n2 : nativeint# }
+type t215 = { str0 : string; mutable str1 : string; mutable float_u2 : float#; mutable imm3 : int }
+type t216 = { mutable str0 : string; mutable str1 : string; float_u2 : float#; mutable imm3 : int }
+type t217 = { float0 : float; mutable float32_u1 : float32#; mutable imm2 : int }
+type t218 = { mutable float0 : float; float32_u1 : float32#; mutable imm2 : int }
+type t219 = { str0 : string; mutable i32_1 : int32#; mutable imm2 : int }
+type t220 = { mutable str0 : string; i32_1 : int32#; mutable imm2 : int }
+type t221 = { mutable i64_0 : int64#; mutable imm1 : int }
 type t222 = { mutable str0 : string; mutable float1 : float; mutable float_u2 : float# }
 type t223 = { imm0 : int; str1 : string; float_u2 : float# }
-type t224 = { mutable imm0 : int; str1 : string; mutable i32_2 : int32# }
-type t225 = { float0 : float; str1 : string; i32_2 : int32# }
-type t226 = { mutable float0 : float; str1 : string; mutable i64_2 : int64# }
-type t227 = { str0 : string; str1 : string; i64_2 : int64# }
-type t228 = { mutable str0 : string; str1 : string; mutable n2 : nativeint# }
-type t229 = { imm0 : int; mutable str1 : string; n2 : nativeint# }
-type t230 = { mutable imm0 : int; mutable str1 : string; mutable float_u2 : float#; mutable imm3 : int }
-type t231 = { float0 : float; mutable str1 : string; float_u2 : float#; mutable imm3 : int }
-type t232 = { mutable float0 : float; mutable str1 : string; mutable i32_2 : int32#; mutable imm3 : int }
-type t233 = { str0 : string; mutable str1 : string; i32_2 : int32#; mutable imm3 : int }
-type t234 = { mutable str0 : string; mutable str1 : string; mutable i64_2 : int64#; mutable imm3 : int }
-type t235 = { float0 : float; i64_1 : int64#; mutable imm2 : int }
-type t236 = { mutable float0 : float; mutable n1 : nativeint#; mutable imm2 : int }
-type t237 = { str0 : string; n1 : nativeint#; mutable imm2 : int }
-type t238 = { mutable str0 : string; mutable float_u1 : float#; imm2 : int }
-type t239 = { float_u0 : float#; imm1 : int }
+type t224 = { mutable imm0 : int; str1 : string; mutable float32_u2 : float32# }
+type t225 = { float0 : float; str1 : string; float32_u2 : float32# }
+type t226 = { mutable float0 : float; str1 : string; mutable i32_2 : int32# }
+type t227 = { str0 : string; str1 : string; i32_2 : int32# }
+type t228 = { mutable str0 : string; str1 : string; mutable i64_2 : int64# }
+type t229 = { imm0 : int; mutable str1 : string; i64_2 : int64# }
+type t230 = { mutable imm0 : int; mutable str1 : string; mutable n2 : nativeint# }
+type t231 = { float0 : float; mutable str1 : string; n2 : nativeint# }
+type t232 = { mutable float0 : float; mutable str1 : string; mutable float_u2 : float#; mutable imm3 : int }
+type t233 = { str0 : string; mutable str1 : string; float_u2 : float#; mutable imm3 : int }
+type t234 = { mutable str0 : string; mutable str1 : string; mutable float32_u2 : float32#; mutable imm3 : int }
+type t235 = { float0 : float; float32_u1 : float32#; mutable imm2 : int }
+type t236 = { mutable float0 : float; mutable i32_1 : int32#; mutable imm2 : int }
+type t237 = { str0 : string; i32_1 : int32#; mutable imm2 : int }
+type t238 = { mutable str0 : string; mutable i64_1 : int64#; mutable imm2 : int }
+type t239 = { i64_0 : int64#; mutable imm1 : int }
 type t240 = { str0 : string; mutable float1 : float; mutable float_u2 : float# }
 type t241 = { mutable str0 : string; mutable float1 : float; float_u2 : float# }
-type t242 = { imm0 : int; str1 : string; mutable i32_2 : int32# }
-type t243 = { mutable imm0 : int; str1 : string; i32_2 : int32# }
-type t244 = { float0 : float; str1 : string; mutable i64_2 : int64# }
-type t245 = { mutable float0 : float; str1 : string; i64_2 : int64# }
-type t246 = { str0 : string; str1 : string; mutable n2 : nativeint# }
-type t247 = { mutable str0 : string; str1 : string; n2 : nativeint# }
-type t248 = { imm0 : int; mutable str1 : string; mutable float_u2 : float#; mutable imm3 : int }
-type t249 = { mutable imm0 : int; mutable str1 : string; float_u2 : float#; mutable imm3 : int }
-type t250 = { float0 : float; mutable str1 : string; mutable i32_2 : int32#; mutable imm3 : int }
-type t251 = { mutable float0 : float; mutable str1 : string; i32_2 : int32#; mutable imm3 : int }
-type t252 = { str0 : string; mutable str1 : string; mutable i64_2 : int64#; mutable imm3 : int }
-type t253 = { mutable str0 : string; mutable str1 : string; i64_2 : int64#; mutable imm3 : int }
-type t254 = { float0 : float; mutable n1 : nativeint#; mutable imm2 : int }
-type t255 = { mutable float0 : float; n1 : nativeint#; mutable imm2 : int }
-type t256 = { str0 : string; mutable float_u1 : float#; imm2 : int }
-type t257 = { mutable str0 : string; float_u1 : float#; imm2 : int }
-type t258 = { mutable i32_0 : int32#; imm1 : int }
+type t242 = { imm0 : int; str1 : string; mutable float32_u2 : float32# }
+type t243 = { mutable imm0 : int; str1 : string; float32_u2 : float32# }
+type t244 = { float0 : float; str1 : string; mutable i32_2 : int32# }
+type t245 = { mutable float0 : float; str1 : string; i32_2 : int32# }
+type t246 = { str0 : string; str1 : string; mutable i64_2 : int64# }
+type t247 = { mutable str0 : string; str1 : string; i64_2 : int64# }
+type t248 = { imm0 : int; mutable str1 : string; mutable n2 : nativeint# }
+type t249 = { mutable imm0 : int; mutable str1 : string; n2 : nativeint# }
+type t250 = { float0 : float; mutable str1 : string; mutable float_u2 : float#; mutable imm3 : int }
+type t251 = { mutable float0 : float; mutable str1 : string; float_u2 : float#; mutable imm3 : int }
+type t252 = { str0 : string; mutable str1 : string; mutable float32_u2 : float32#; mutable imm3 : int }
+type t253 = { mutable str0 : string; mutable str1 : string; float32_u2 : float32#; mutable imm3 : int }
+type t254 = { float0 : float; mutable i32_1 : int32#; mutable imm2 : int }
+type t255 = { mutable float0 : float; i32_1 : int32#; mutable imm2 : int }
+type t256 = { str0 : string; mutable i64_1 : int64#; mutable imm2 : int }
+type t257 = { mutable str0 : string; i64_1 : int64#; mutable imm2 : int }
+type t258 = { mutable n0 : nativeint#; mutable imm1 : int }
 type t259 = { str0 : string; mutable float1 : float; float_u2 : float# }
-type t260 = { mutable str0 : string; mutable float1 : float; mutable i32_2 : int32# }
-type t261 = { imm0 : int; str1 : string; i32_2 : int32# }
-type t262 = { mutable imm0 : int; str1 : string; mutable i64_2 : int64# }
-type t263 = { float0 : float; str1 : string; i64_2 : int64# }
-type t264 = { mutable float0 : float; str1 : string; mutable n2 : nativeint# }
-type t265 = { str0 : string; str1 : string; n2 : nativeint# }
-type t266 = { mutable str0 : string; str1 : string; mutable float_u2 : float#; mutable imm3 : int }
-type t267 = { imm0 : int; mutable str1 : string; float_u2 : float#; mutable imm3 : int }
-type t268 = { mutable imm0 : int; mutable str1 : string; mutable i32_2 : int32#; mutable imm3 : int }
-type t269 = { float0 : float; mutable str1 : string; i32_2 : int32#; mutable imm3 : int }
-type t270 = { mutable float0 : float; mutable str1 : string; mutable i64_2 : int64#; mutable imm3 : int }
-type t271 = { str0 : string; mutable str1 : string; i64_2 : int64#; mutable imm3 : int }
-type t272 = { mutable str0 : string; mutable str1 : string; mutable n2 : nativeint#; mutable imm3 : int }
-type t273 = { float0 : float; n1 : nativeint#; mutable imm2 : int }
-type t274 = { mutable float0 : float; mutable float_u1 : float#; imm2 : int }
-type t275 = { str0 : string; float_u1 : float#; imm2 : int }
-type t276 = { mutable str0 : string; mutable i32_1 : int32#; imm2 : int }
-type t277 = { i32_0 : int32#; imm1 : int }
-type t278 = { str0 : string; mutable float1 : float; mutable i32_2 : int32# }
-type t279 = { mutable str0 : string; mutable float1 : float; i32_2 : int32# }
-type t280 = { imm0 : int; str1 : string; mutable i64_2 : int64# }
-type t281 = { mutable imm0 : int; str1 : string; i64_2 : int64# }
-type t282 = { float0 : float; str1 : string; mutable n2 : nativeint# }
-type t283 = { mutable float0 : float; str1 : string; n2 : nativeint# }
-type t284 = { str0 : string; str1 : string; mutable float_u2 : float#; mutable imm3 : int }
-type t285 = { mutable str0 : string; str1 : string; float_u2 : float#; mutable imm3 : int }
-type t286 = { imm0 : int; mutable str1 : string; mutable i32_2 : int32#; mutable imm3 : int }
-type t287 = { mutable imm0 : int; mutable str1 : string; i32_2 : int32#; mutable imm3 : int }
-type t288 = { float0 : float; mutable str1 : string; mutable i64_2 : int64#; mutable imm3 : int }
-type t289 = { mutable float0 : float; mutable str1 : string; i64_2 : int64#; mutable imm3 : int }
-type t290 = { str0 : string; mutable str1 : string; mutable n2 : nativeint#; mutable imm3 : int }
-type t291 = { mutable str0 : string; mutable str1 : string; n2 : nativeint#; mutable imm3 : int }
-type t292 = { float0 : float; mutable float_u1 : float#; imm2 : int }
-type t293 = { mutable float0 : float; float_u1 : float#; imm2 : int }
-type t294 = { str0 : string; mutable i32_1 : int32#; imm2 : int }
-type t295 = { mutable str0 : string; i32_1 : int32#; imm2 : int }
-type t296 = { mutable i64_0 : int64#; imm1 : int }
+type t260 = { mutable str0 : string; mutable float1 : float; mutable float32_u2 : float32# }
+type t261 = { imm0 : int; str1 : string; float32_u2 : float32# }
+type t262 = { mutable imm0 : int; str1 : string; mutable i32_2 : int32# }
+type t263 = { float0 : float; str1 : string; i32_2 : int32# }
+type t264 = { mutable float0 : float; str1 : string; mutable i64_2 : int64# }
+type t265 = { str0 : string; str1 : string; i64_2 : int64# }
+type t266 = { mutable str0 : string; str1 : string; mutable n2 : nativeint# }
+type t267 = { imm0 : int; mutable str1 : string; n2 : nativeint# }
+type t268 = { mutable imm0 : int; mutable str1 : string; mutable float_u2 : float#; mutable imm3 : int }
+type t269 = { float0 : float; mutable str1 : string; float_u2 : float#; mutable imm3 : int }
+type t270 = { mutable float0 : float; mutable str1 : string; mutable float32_u2 : float32#; mutable imm3 : int }
+type t271 = { str0 : string; mutable str1 : string; float32_u2 : float32#; mutable imm3 : int }
+type t272 = { mutable str0 : string; mutable str1 : string; mutable i32_2 : int32#; mutable imm3 : int }
+type t273 = { float0 : float; i32_1 : int32#; mutable imm2 : int }
+type t274 = { mutable float0 : float; mutable i64_1 : int64#; mutable imm2 : int }
+type t275 = { str0 : string; i64_1 : int64#; mutable imm2 : int }
+type t276 = { mutable str0 : string; mutable n1 : nativeint#; mutable imm2 : int }
+type t277 = { n0 : nativeint#; mutable imm1 : int }
+type t278 = { str0 : string; mutable float1 : float; mutable float32_u2 : float32# }
+type t279 = { mutable str0 : string; mutable float1 : float; float32_u2 : float32# }
+type t280 = { imm0 : int; str1 : string; mutable i32_2 : int32# }
+type t281 = { mutable imm0 : int; str1 : string; i32_2 : int32# }
+type t282 = { float0 : float; str1 : string; mutable i64_2 : int64# }
+type t283 = { mutable float0 : float; str1 : string; i64_2 : int64# }
+type t284 = { str0 : string; str1 : string; mutable n2 : nativeint# }
+type t285 = { mutable str0 : string; str1 : string; n2 : nativeint# }
+type t286 = { imm0 : int; mutable str1 : string; mutable float_u2 : float#; mutable imm3 : int }
+type t287 = { mutable imm0 : int; mutable str1 : string; float_u2 : float#; mutable imm3 : int }
+type t288 = { float0 : float; mutable str1 : string; mutable float32_u2 : float32#; mutable imm3 : int }
+type t289 = { mutable float0 : float; mutable str1 : string; float32_u2 : float32#; mutable imm3 : int }
+type t290 = { str0 : string; mutable str1 : string; mutable i32_2 : int32#; mutable imm3 : int }
+type t291 = { mutable str0 : string; mutable str1 : string; i32_2 : int32#; mutable imm3 : int }
+type t292 = { float0 : float; mutable i64_1 : int64#; mutable imm2 : int }
+type t293 = { mutable float0 : float; i64_1 : int64#; mutable imm2 : int }
+type t294 = { str0 : string; mutable n1 : nativeint#; mutable imm2 : int }
+type t295 = { mutable str0 : string; n1 : nativeint#; mutable imm2 : int }
+type t296 = { mutable float_u0 : float#; imm1 : int }
 type t297 = { mutable imm0 : int; mutable float1 : float; mutable float_u2 : float# }
-type t298 = { mutable float0 : float; mutable float1 : float; mutable i32_2 : int32# }
-type t299 = { str0 : string; mutable float1 : float; i32_2 : int32# }
+type t298 = { mutable float0 : float; mutable float1 : float; mutable float32_u2 : float32# }
+type t299 = { str0 : string; mutable float1 : float; float32_u2 : float32# }
 type t300 =
   | A of float#
 type t301 =
@@ -382,7 +387,7 @@ type t304 =
   | A of string * float#
   | B of float#
 type t305 =
-  | A of int32#
+  | A of float32#
 type t306 =
   | A of float#
   | B of string * float#
@@ -391,7 +396,7 @@ type t307 =
   | B of float#
   | C of float#
 type t308 =
-  | A of int32#
+  | A of float32#
   | B of float#
 type t309 =
   | A of float * float#
@@ -404,14 +409,14 @@ type t311 =
   | A of string * float#
   | B of string * float#
 type t312 =
-  | A of int32#
+  | A of float32#
   | B of float#
   | C of float#
 type t313 =
   | A of float * float#
   | B of float#
 type t314 =
-  | A of string * int32#
+  | A of string * float32#
 type t315 =
   | A of float#
   | B of string * float#
@@ -422,26 +427,26 @@ type t316 =
   | C of float#
   | D of float#
 type t317 =
-  | A of int32#
+  | A of float32#
   | B of string * float#
 type t318 =
   | A of float * float#
   | B of float#
   | C of float#
 type t319 =
-  | A of string * int32#
+  | A of string * float32#
   | B of float#
 type t320 =
-  | A of int64#
+  | A of int32#
 type t321 =
   | A of float#
-  | B of int32#
+  | B of float32#
 type t322 =
   | A of string * float#
   | B of string * float#
   | C of float#
 type t323 =
-  | A of int32#
+  | A of float32#
   | B of float#
   | C of float#
   | D of float#
@@ -449,11 +454,11 @@ type t324 =
   | A of float * float#
   | B of string * float#
 type t325 =
-  | A of string * int32#
+  | A of string * float32#
   | B of float#
   | C of float#
 type t326 =
-  | A of int64#
+  | A of int32#
   | B of float#
 type t327 =
   | A of string * string * float#
@@ -463,9 +468,9 @@ type t328 =
   | C of string * float#
 type t329 =
   | A of string * float#
-  | B of int32#
+  | B of float32#
 type t330 =
-  | A of int32#
+  | A of float32#
   | B of string * float#
   | C of float#
 type t331 =
@@ -474,17 +479,17 @@ type t331 =
   | C of float#
   | D of float#
 type t332 =
-  | A of string * int32#
+  | A of string * float32#
   | B of string * float#
 type t333 =
-  | A of int64#
+  | A of int32#
   | B of float#
   | C of float#
 type t334 =
   | A of string * string * float#
   | B of float#
 type t335 =
-  | A of float * int32#
+  | A of float * float32#
 type t336 =
   | A of float#
   | B of string * float#
@@ -495,32 +500,32 @@ type t337 =
   | B of float#
   | C of string * float#
 type t338 =
-  | A of int32#
-  | B of int32#
+  | A of float32#
+  | B of float32#
 type t339 =
   | A of float * float#
   | B of string * float#
   | C of float#
 type t340 =
-  | A of string * int32#
+  | A of string * float32#
   | B of float#
   | C of float#
   | D of float#
 type t341 =
-  | A of int64#
+  | A of int32#
   | B of string * float#
 type t342 =
   | A of string * string * float#
   | B of float#
   | C of float#
 type t343 =
-  | A of float * int32#
+  | A of float * float32#
   | B of float#
 type t344 =
-  | A of string * int64#
+  | A of string * int32#
 type t345 =
   | A of float#
-  | B of int32#
+  | B of float32#
   | C of float#
 type t346 =
   | A of string * float#
@@ -528,18 +533,18 @@ type t346 =
   | C of float#
   | D of float#
 type t347 =
-  | A of int32#
+  | A of float32#
   | B of float#
   | C of string * float#
 type t348 =
   | A of float * float#
-  | B of int32#
+  | B of float32#
 type t349 =
-  | A of string * int32#
+  | A of string * float32#
   | B of string * float#
   | C of float#
 type t350 =
-  | A of int64#
+  | A of int32#
   | B of float#
   | C of float#
   | D of float#
@@ -547,23 +552,23 @@ type t351 =
   | A of string * string * float#
   | B of string * float#
 type t352 =
-  | A of float * int32#
+  | A of float * float32#
   | B of float#
   | C of float#
 type t353 =
-  | A of string * int64#
+  | A of string * int32#
   | B of float#
 type t354 =
-  | A of nativeint#
+  | A of int64#
 type t355 =
   | A of float#
   | B of float * float#
 type t356 =
   | A of string * float#
-  | B of int32#
+  | B of float32#
   | C of float#
 type t357 =
-  | A of int32#
+  | A of float32#
   | B of string * float#
   | C of float#
   | D of float#
@@ -572,10 +577,10 @@ type t358 =
   | B of float#
   | C of string * float#
 type t359 =
-  | A of string * int32#
-  | B of int32#
+  | A of string * float32#
+  | B of float32#
 type t360 =
-  | A of int64#
+  | A of int32#
   | B of string * float#
   | C of float#
 type t361 =
@@ -584,14 +589,14 @@ type t361 =
   | C of float#
   | D of float#
 type t362 =
-  | A of float * int32#
+  | A of float * float32#
   | B of string * float#
 type t363 =
-  | A of string * int64#
+  | A of string * int32#
   | B of float#
   | C of float#
 type t364 =
-  | A of nativeint#
+  | A of int64#
   | B of float#
 type t365 =
   | A of float * string * float#
@@ -605,8 +610,8 @@ type t367 =
   | A of string * float#
   | B of float * float#
 type t368 =
-  | A of int32#
-  | B of int32#
+  | A of float32#
+  | B of float32#
   | C of float#
 type t369 =
   | A of float * float#
@@ -614,33 +619,33 @@ type t369 =
   | C of float#
   | D of float#
 type t370 =
-  | A of string * int32#
+  | A of string * float32#
   | B of float#
   | C of string * float#
 type t371 =
-  | A of int64#
-  | B of int32#
+  | A of int32#
+  | B of float32#
 type t372 =
   | A of string * string * float#
   | B of string * float#
   | C of float#
 type t373 =
-  | A of float * int32#
+  | A of float * float32#
   | B of float#
   | C of float#
   | D of float#
 type t374 =
-  | A of string * int64#
+  | A of string * int32#
   | B of string * float#
 type t375 =
-  | A of nativeint#
+  | A of int64#
   | B of float#
   | C of float#
 type t376 =
   | A of float * string * float#
   | B of float#
 type t377 =
-  | A of string * string * int32#
+  | A of string * string * float32#
 type t378 =
   | A of float#
   | B of string * float#
@@ -652,48 +657,48 @@ type t379 =
   | D of float#
   | E of float#
 type t380 =
-  | A of int32#
+  | A of float32#
   | B of float * float#
 type t381 =
   | A of float * float#
-  | B of int32#
+  | B of float32#
   | C of float#
 type t382 =
-  | A of string * int32#
+  | A of string * float32#
   | B of string * float#
   | C of float#
   | D of float#
 type t383 =
-  | A of int64#
+  | A of int32#
   | B of float#
   | C of string * float#
 type t384 =
   | A of string * string * float#
-  | B of int32#
+  | B of float32#
 type t385 =
-  | A of float * int32#
+  | A of float * float32#
   | B of string * float#
   | C of float#
 type t386 =
-  | A of string * int64#
+  | A of string * int32#
   | B of float#
   | C of float#
   | D of float#
 type t387 =
-  | A of nativeint#
+  | A of int64#
   | B of string * float#
 type t388 =
   | A of float * string * float#
   | B of float#
   | C of float#
 type t389 =
-  | A of string * string * int32#
+  | A of string * string * float32#
   | B of float#
 type t390 =
-  | A of float * int64#
+  | A of float * int32#
 type t391 =
   | A of float#
-  | B of int32#
+  | B of float32#
   | C of float#
   | D of float#
 type t392 =
@@ -701,7 +706,7 @@ type t392 =
   | B of string * float#
   | C of string * float#
 type t393 =
-  | A of int32#
+  | A of float32#
   | B of float#
   | C of float#
   | D of float#
@@ -710,11 +715,11 @@ type t394 =
   | A of float * float#
   | B of float * float#
 type t395 =
-  | A of string * int32#
-  | B of int32#
+  | A of string * float32#
+  | B of float32#
   | C of float#
 type t396 =
-  | A of int64#
+  | A of int32#
   | B of string * float#
   | C of float#
   | D of float#
@@ -723,14 +728,14 @@ type t397 =
   | B of float#
   | C of string * float#
 type t398 =
-  | A of float * int32#
-  | B of int32#
+  | A of float * float32#
+  | B of float32#
 type t399 =
-  | A of string * int64#
+  | A of string * int32#
   | B of string * float#
   | C of float#
 type t400 =
-  | A of nativeint#
+  | A of int64#
   | B of float#
   | C of float#
   | D of float#
@@ -738,25 +743,25 @@ type t401 =
   | A of float * string * float#
   | B of string * float#
 type t402 =
-  | A of string * string * int32#
+  | A of string * string * float32#
   | B of float#
   | C of float#
 type t403 =
-  | A of float * int64#
+  | A of float * int32#
   | B of float#
 type t404 =
-  | A of string * nativeint#
+  | A of string * int64#
 type t405 =
   | A of float#
   | B of float * float#
   | C of float#
 type t406 =
   | A of string * float#
-  | B of int32#
+  | B of float32#
   | C of float#
   | D of float#
 type t407 =
-  | A of int32#
+  | A of float32#
   | B of string * float#
   | C of string * float#
 type t408 =
@@ -766,11 +771,11 @@ type t408 =
   | D of float#
   | E of float#
 type t409 =
-  | A of string * int32#
+  | A of string * float32#
   | B of float * float#
 type t410 =
-  | A of int64#
-  | B of int32#
+  | A of int32#
+  | B of float32#
   | C of float#
 type t411 =
   | A of string * string * float#
@@ -778,14 +783,14 @@ type t411 =
   | C of float#
   | D of float#
 type t412 =
-  | A of float * int32#
+  | A of float * float32#
   | B of float#
   | C of string * float#
 type t413 =
-  | A of string * int64#
-  | B of int32#
+  | A of string * int32#
+  | B of float32#
 type t414 =
-  | A of nativeint#
+  | A of int64#
   | B of string * float#
   | C of float#
 type t415 =
@@ -794,27 +799,27 @@ type t415 =
   | C of float#
   | D of float#
 type t416 =
-  | A of string * string * int32#
+  | A of string * string * float32#
   | B of string * float#
 type t417 =
-  | A of float * int64#
+  | A of float * int32#
   | B of float#
   | C of float#
 type t418 =
-  | A of string * nativeint#
+  | A of string * int64#
   | B of float#
 type t419 =
-  | A of float# * int
+  | A of nativeint#
 type t420 =
   | A of float#
-  | B of string * int32#
+  | B of string * float32#
 type t421 =
   | A of string * float#
   | B of float * float#
   | C of float#
 type t422 =
-  | A of int32#
-  | B of int32#
+  | A of float32#
+  | B of float32#
   | C of float#
   | D of float#
 type t423 =
@@ -822,48 +827,48 @@ type t423 =
   | B of string * float#
   | C of string * float#
 type t424 =
-  | A of string * int32#
+  | A of string * float32#
   | B of float#
   | C of float#
   | D of float#
   | E of float#
 type t425 =
-  | A of int64#
+  | A of int32#
   | B of float * float#
 type t426 =
   | A of string * string * float#
-  | B of int32#
+  | B of float32#
   | C of float#
 type t427 =
-  | A of float * int32#
+  | A of float * float32#
   | B of string * float#
   | C of float#
   | D of float#
 type t428 =
-  | A of string * int64#
+  | A of string * int32#
   | B of float#
   | C of string * float#
 type t429 =
-  | A of nativeint#
-  | B of int32#
+  | A of int64#
+  | B of float32#
 type t430 =
   | A of float * string * float#
   | B of string * float#
   | C of float#
 type t431 =
-  | A of string * string * int32#
+  | A of string * string * float32#
   | B of float#
   | C of float#
   | D of float#
 type t432 =
-  | A of float * int64#
+  | A of float * int32#
   | B of string * float#
 type t433 =
-  | A of string * nativeint#
+  | A of string * int64#
   | B of float#
   | C of float#
 type t434 =
-  | A of float# * int
+  | A of nativeint#
   | B of float#
 type t435 =
   | A of int * string * float#
@@ -874,22 +879,22 @@ type t436 =
   | D of float#
 type t437 =
   | A of string * float#
-  | B of string * int32#
+  | B of string * float32#
 type t438 =
-  | A of int32#
+  | A of float32#
   | B of float * float#
   | C of float#
 type t439 =
   | A of float * float#
-  | B of int32#
+  | B of float32#
   | C of float#
   | D of float#
 type t440 =
-  | A of string * int32#
+  | A of string * float32#
   | B of string * float#
   | C of string * float#
 type t441 =
-  | A of int64#
+  | A of int32#
   | B of float#
   | C of float#
   | D of float#
@@ -898,42 +903,42 @@ type t442 =
   | A of string * string * float#
   | B of float * float#
 type t443 =
-  | A of float * int32#
-  | B of int32#
+  | A of float * float32#
+  | B of float32#
   | C of float#
 type t444 =
-  | A of string * int64#
+  | A of string * int32#
   | B of string * float#
   | C of float#
   | D of float#
 type t445 =
-  | A of nativeint#
+  | A of int64#
   | B of float#
   | C of string * float#
 type t446 =
   | A of float * string * float#
-  | B of int32#
+  | B of float32#
 type t447 =
-  | A of string * string * int32#
+  | A of string * string * float32#
   | B of string * float#
   | C of float#
 type t448 =
-  | A of float * int64#
+  | A of float * int32#
   | B of float#
   | C of float#
   | D of float#
 type t449 =
-  | A of string * nativeint#
+  | A of string * int64#
   | B of string * float#
 type t450 =
-  | A of float# * int
+  | A of nativeint#
   | B of float#
   | C of float#
 type t451 =
   | A of int * string * float#
   | B of float#
 type t452 =
-  | A of float * string * int32#
+  | A of float * string * float32#
 type t453 =
   | A of float#
   | B of string * float#
@@ -946,19 +951,19 @@ type t454 =
   | C of string * float#
   | D of float#
 type t455 =
-  | A of int32#
-  | B of string * int32#
+  | A of float32#
+  | B of string * float32#
 type t456 =
   | A of float * float#
   | B of float * float#
   | C of float#
 type t457 =
-  | A of string * int32#
-  | B of int32#
+  | A of string * float32#
+  | B of float32#
   | C of float#
   | D of float#
 type t458 =
-  | A of int64#
+  | A of int32#
   | B of string * float#
   | C of string * float#
 type t459 =
@@ -968,14 +973,14 @@ type t459 =
   | D of float#
   | E of float#
 type t460 =
-  | A of float * int32#
+  | A of float * float32#
   | B of float * float#
 type t461 =
-  | A of string * int64#
-  | B of int32#
+  | A of string * int32#
+  | B of float32#
   | C of float#
 type t462 =
-  | A of nativeint#
+  | A of int64#
   | B of string * float#
   | C of float#
   | D of float#
@@ -984,32 +989,32 @@ type t463 =
   | B of float#
   | C of string * float#
 type t464 =
-  | A of string * string * int32#
-  | B of int32#
+  | A of string * string * float32#
+  | B of float32#
 type t465 =
-  | A of float * int64#
+  | A of float * int32#
   | B of string * float#
   | C of float#
 type t466 =
-  | A of string * nativeint#
+  | A of string * int64#
   | B of float#
   | C of float#
   | D of float#
 type t467 =
-  | A of float# * int
+  | A of nativeint#
   | B of string * float#
 type t468 =
   | A of int * string * float#
   | B of float#
   | C of float#
 type t469 =
-  | A of float * string * int32#
+  | A of float * string * float32#
   | B of float#
 type t470 =
-  | A of string * string * int64#
+  | A of string * string * int32#
 type t471 =
   | A of float#
-  | B of int32#
+  | B of float32#
   | C of string * float#
 type t472 =
   | A of string * float#
@@ -1018,20 +1023,20 @@ type t472 =
   | D of float#
   | E of float#
 type t473 =
-  | A of int32#
+  | A of float32#
   | B of float#
   | C of string * float#
   | D of float#
 type t474 =
   | A of float * float#
-  | B of string * int32#
+  | B of string * float32#
 type t475 =
-  | A of string * int32#
+  | A of string * float32#
   | B of float * float#
   | C of float#
 type t476 =
-  | A of int64#
-  | B of int32#
+  | A of int32#
+  | B of float32#
   | C of float#
   | D of float#
 type t477 =
@@ -1039,17 +1044,17 @@ type t477 =
   | B of string * float#
   | C of string * float#
 type t478 =
-  | A of float * int32#
+  | A of float * float32#
   | B of float#
   | C of float#
   | D of float#
   | E of float#
 type t479 =
-  | A of string * int64#
+  | A of string * int32#
   | B of float * float#
 type t480 =
-  | A of nativeint#
-  | B of int32#
+  | A of int64#
+  | B of float32#
   | C of float#
 type t481 =
   | A of float * string * float#
@@ -1057,18 +1062,18 @@ type t481 =
   | C of float#
   | D of float#
 type t482 =
-  | A of string * string * int32#
+  | A of string * string * float32#
   | B of float#
   | C of string * float#
 type t483 =
-  | A of float * int64#
-  | B of int32#
+  | A of float * int32#
+  | B of float32#
 type t484 =
-  | A of string * nativeint#
+  | A of string * int64#
   | B of string * float#
   | C of float#
 type t485 =
-  | A of float# * int
+  | A of nativeint#
   | B of float#
   | C of float#
   | D of float#
@@ -1076,14 +1081,14 @@ type t486 =
   | A of int * string * float#
   | B of string * float#
 type t487 =
-  | A of float * string * int32#
+  | A of float * string * float32#
   | B of float#
   | C of float#
 type t488 =
-  | A of string * string * int64#
+  | A of string * string * int32#
   | B of float#
 type t489 =
-  | A of float * nativeint#
+  | A of float * int64#
 type t490 =
   | A of float#
   | B of float * float#
@@ -1091,10 +1096,10 @@ type t490 =
   | D of float#
 type t491 =
   | A of string * float#
-  | B of int32#
+  | B of float32#
   | C of string * float#
 type t492 =
-  | A of int32#
+  | A of float32#
   | B of string * float#
   | C of float#
   | D of float#
@@ -1105,48 +1110,48 @@ type t493 =
   | C of string * float#
   | D of float#
 type t494 =
-  | A of string * int32#
-  | B of string * int32#
+  | A of string * float32#
+  | B of string * float32#
 type t495 =
-  | A of int64#
+  | A of int32#
   | B of float * float#
   | C of float#
 type t496 =
   | A of string * string * float#
-  | B of int32#
+  | B of float32#
   | C of float#
   | D of float#
 type t497 =
-  | A of float * int32#
+  | A of float * float32#
   | B of string * float#
   | C of string * float#
 type t498 =
-  | A of string * int64#
+  | A of string * int32#
   | B of float#
   | C of float#
   | D of float#
   | E of float#
 type t499 =
-  | A of nativeint#
+  | A of int64#
   | B of float * float#
 type t500 =
   | A of float * string * float#
-  | B of int32#
+  | B of float32#
   | C of float#
 type t501 =
-  | A of string * string * int32#
+  | A of string * string * float32#
   | B of string * float#
   | C of float#
   | D of float#
 type t502 =
-  | A of float * int64#
+  | A of float * int32#
   | B of float#
   | C of string * float#
 type t503 =
-  | A of string * nativeint#
-  | B of int32#
+  | A of string * int64#
+  | B of float32#
 type t504 =
-  | A of float# * int
+  | A of nativeint#
   | B of string * float#
   | C of float#
 type t505 =
@@ -1155,20 +1160,20 @@ type t505 =
   | C of float#
   | D of float#
 type t506 =
-  | A of float * string * int32#
+  | A of float * string * float32#
   | B of string * float#
 type t507 =
-  | A of string * string * int64#
+  | A of string * string * int32#
   | B of float#
   | C of float#
 type t508 =
-  | A of float * nativeint#
+  | A of float * int64#
   | B of float#
 type t509 =
-  | A of string * float# * int
+  | A of string * nativeint#
 type t510 =
   | A of float#
-  | B of string * int32#
+  | B of string * float32#
   | C of float#
 type t511 =
   | A of string * float#
@@ -1176,8 +1181,8 @@ type t511 =
   | C of float#
   | D of float#
 type t512 =
-  | A of int32#
-  | B of int32#
+  | A of float32#
+  | B of float32#
   | C of string * float#
 type t513 =
   | A of float * float#
@@ -1186,28 +1191,28 @@ type t513 =
   | D of float#
   | E of float#
 type t514 =
-  | A of string * int32#
+  | A of string * float32#
   | B of float#
   | C of string * float#
   | D of float#
 type t515 =
-  | A of int64#
-  | B of string * int32#
+  | A of int32#
+  | B of string * float32#
 type t516 =
   | A of string * string * float#
   | B of float * float#
   | C of float#
 type t517 =
-  | A of float * int32#
-  | B of int32#
+  | A of float * float32#
+  | B of float32#
   | C of float#
   | D of float#
 type t518 =
-  | A of string * int64#
+  | A of string * int32#
   | B of string * float#
   | C of string * float#
 type t519 =
-  | A of nativeint#
+  | A of int64#
   | B of float#
   | C of float#
   | D of float#
@@ -1216,83 +1221,83 @@ type t520 =
   | A of float * string * float#
   | B of float * float#
 type t521 =
-  | A of string * string * int32#
-  | B of int32#
+  | A of string * string * float32#
+  | B of float32#
   | C of float#
 type t522 =
-  | A of float * int64#
+  | A of float * int32#
   | B of string * float#
   | C of float#
   | D of float#
 type t523 =
-  | A of string * nativeint#
+  | A of string * int64#
   | B of float#
   | C of string * float#
 type t524 =
-  | A of float# * int
-  | B of int32#
+  | A of nativeint#
+  | B of float32#
 type t525 =
   | A of int * string * float#
   | B of string * float#
   | C of float#
 type t526 =
-  | A of float * string * int32#
+  | A of float * string * float32#
   | B of float#
   | C of float#
   | D of float#
 type t527 =
-  | A of string * string * int64#
+  | A of string * string * int32#
   | B of string * float#
 type t528 =
-  | A of float * nativeint#
+  | A of float * int64#
   | B of float#
   | C of float#
 type t529 =
-  | A of string * float# * int
+  | A of string * nativeint#
   | B of float#
 type t530 =
-  | A of int32# * int
+  | A of float# * int
 type t531 =
   | A of float#
-  | B of int64#
+  | B of int32#
 type t532 =
   | A of string * float#
-  | B of string * int32#
+  | B of string * float32#
   | C of float#
 type t533 =
-  | A of int32#
+  | A of float32#
   | B of float * float#
   | C of float#
   | D of float#
 type t534 =
   | A of float * float#
-  | B of int32#
+  | B of float32#
   | C of string * float#
 type t535 =
-  | A of string * int32#
+  | A of string * float32#
   | B of string * float#
   | C of float#
   | D of float#
   | E of float#
 type t536 =
-  | A of int64#
+  | A of int32#
   | B of float#
   | C of string * float#
   | D of float#
 type t537 =
   | A of string * string * float#
-  | B of string * int32#
+  | B of string * float32#
 type t538 =
-  | A of float * int32#
+  | A of float * float32#
   | B of float * float#
   | C of float#
 type t539 =
-  | A of string * int64#
-  | B of int32#
+  | A of string * int32#
+  | B of float32#
   | C of float#
   | D of float#
 type t540 =
-  | A of nativeint#
+  | A of int64#
   | B of string * float#
   | C of string * float#
 type t541 =
@@ -1302,55 +1307,55 @@ type t541 =
   | D of float#
   | E of float#
 type t542 =
-  | A of string * string * int32#
+  | A of string * string * float32#
   | B of float * float#
 type t543 =
-  | A of float * int64#
-  | B of int32#
+  | A of float * int32#
+  | B of float32#
   | C of float#
 type t544 =
-  | A of string * nativeint#
+  | A of string * int64#
   | B of string * float#
   | C of float#
   | D of float#
 type t545 =
-  | A of float# * int
+  | A of nativeint#
   | B of float#
   | C of string * float#
 type t546 =
   | A of int * string * float#
-  | B of int32#
+  | B of float32#
 type t547 =
-  | A of float * string * int32#
+  | A of float * string * float32#
   | B of string * float#
   | C of float#
 type t548 =
-  | A of string * string * int64#
+  | A of string * string * int32#
   | B of float#
   | C of float#
   | D of float#
 type t549 =
-  | A of float * nativeint#
+  | A of float * int64#
   | B of string * float#
 type t550 =
-  | A of string * float# * int
+  | A of string * nativeint#
   | B of float#
   | C of float#
 type t551 =
-  | A of int32# * int
+  | A of float# * int
   | B of float#
 type t552 =
   | A of string * float * float#
 type t553 =
   | A of float#
   | B of float#
-  | C of int32#
+  | C of float32#
 type t554 =
   | A of string * float#
-  | B of int64#
+  | B of int32#
 type t555 =
-  | A of int32#
-  | B of string * int32#
+  | A of float32#
+  | B of string * float32#
   | C of float#
 type t556 =
   | A of float * float#
@@ -1358,11 +1363,11 @@ type t556 =
   | C of float#
   | D of float#
 type t557 =
-  | A of string * int32#
-  | B of int32#
+  | A of string * float32#
+  | B of float32#
   | C of string * float#
 type t558 =
-  | A of int64#
+  | A of int32#
   | B of string * float#
   | C of float#
   | D of float#
@@ -1373,15 +1378,15 @@ type t559 =
   | C of string * float#
   | D of float#
 type t560 =
-  | A of float * int32#
-  | B of string * int32#
+  | A of float * float32#
+  | B of string * float32#
 type t561 =
-  | A of string * int64#
+  | A of string * int32#
   | B of float * float#
   | C of float#
 type t562 =
-  | A of nativeint#
-  | B of int32#
+  | A of int64#
+  | B of float32#
   | C of float#
   | D of float#
 type t563 =
@@ -1389,20 +1394,20 @@ type t563 =
   | B of string * float#
   | C of string * float#
 type t564 =
-  | A of string * string * int32#
+  | A of string * string * float32#
   | B of float#
   | C of float#
   | D of float#
   | E of float#
 type t565 =
-  | A of float * int64#
+  | A of float * int32#
   | B of float * float#
 type t566 =
-  | A of string * nativeint#
-  | B of int32#
+  | A of string * int64#
+  | B of float32#
   | C of float#
 type t567 =
-  | A of float# * int
+  | A of nativeint#
   | B of string * float#
   | C of float#
   | D of float#
@@ -1411,29 +1416,29 @@ type t568 =
   | B of float#
   | C of string * float#
 type t569 =
-  | A of float * string * int32#
-  | B of int32#
+  | A of float * string * float32#
+  | B of float32#
 type t570 =
-  | A of string * string * int64#
+  | A of string * string * int32#
   | B of string * float#
   | C of float#
 type t571 =
-  | A of float * nativeint#
+  | A of float * int64#
   | B of float#
   | C of float#
   | D of float#
 type t572 =
-  | A of string * float# * int
+  | A of string * nativeint#
   | B of string * float#
 type t573 =
-  | A of int32# * int
+  | A of float# * int
   | B of float#
   | C of float#
 type t574 =
   | A of string * float * float#
   | B of float#
 type t575 =
-  | A of int * string * int32#
+  | A of int * string * float32#
 type t576 =
   | A of float#
   | B of string * float#
@@ -1442,22 +1447,22 @@ type t576 =
 type t577 =
   | A of string * float#
   | B of float#
-  | C of int32#
+  | C of float32#
 type t578 =
-  | A of int32#
-  | B of int64#
+  | A of float32#
+  | B of int32#
 type t579 =
   | A of float * float#
-  | B of string * int32#
+  | B of string * float32#
   | C of float#
 type t580 =
-  | A of string * int32#
+  | A of string * float32#
   | B of float * float#
   | C of float#
   | D of float#
 type t581 =
-  | A of int64#
-  | B of int32#
+  | A of int32#
+  | B of float32#
   | C of string * float#
 type t582 =
   | A of string * string * float#
@@ -1466,38 +1471,38 @@ type t582 =
   | D of float#
   | E of float#
 type t583 =
-  | A of float * int32#
+  | A of float * float32#
   | B of float#
   | C of string * float#
   | D of float#
 type t584 =
-  | A of string * int64#
-  | B of string * int32#
+  | A of string * int32#
+  | B of string * float32#
 type t585 =
-  | A of nativeint#
+  | A of int64#
   | B of float * float#
   | C of float#
 type t586 =
   | A of float * string * float#
-  | B of int32#
+  | B of float32#
   | C of float#
   | D of float#
 type t587 =
-  | A of string * string * int32#
+  | A of string * string * float32#
   | B of string * float#
   | C of string * float#
 type t588 =
-  | A of float * int64#
+  | A of float * int32#
   | B of float#
   | C of float#
   | D of float#
   | E of float#
 type t589 =
-  | A of string * nativeint#
+  | A of string * int64#
   | B of float * float#
 type t590 =
-  | A of float# * int
-  | B of int32#
+  | A of nativeint#
+  | B of float32#
   | C of float#
 type t591 =
   | A of int * string * float#
@@ -1505,33 +1510,33 @@ type t591 =
   | C of float#
   | D of float#
 type t592 =
-  | A of float * string * int32#
+  | A of float * string * float32#
   | B of float#
   | C of string * float#
 type t593 =
-  | A of string * string * int64#
-  | B of int32#
+  | A of string * string * int32#
+  | B of float32#
 type t594 =
-  | A of float * nativeint#
+  | A of float * int64#
   | B of string * float#
   | C of float#
 type t595 =
-  | A of string * float# * int
+  | A of string * nativeint#
   | B of float#
   | C of float#
   | D of float#
 type t596 =
-  | A of int32# * int
+  | A of float# * int
   | B of string * float#
 type t597 =
   | A of string * float * float#
   | B of float#
   | C of float#
 type t598 =
-  | A of int * string * int32#
+  | A of int * string * float32#
   | B of float#
 type t599 =
-  | A of float * string * int64#
+  | A of float * string * int32#
 
 (* Let declarations *)
 let () = print_endline "Creating values";;
@@ -1613,228 +1618,228 @@ let t74 : t74 = { float0 = create_float (); float1 = create_float (); float_u2 =
 let t75 : t75 = { str0 = create_string (); float_u1 = create_float_u () };;
 let t76 : t76 = { str0 = create_string (); float_u1 = create_float_u () };;
 let t77 : t77 = { str0 = create_string (); float_u1 = create_float_u () };;
-let t78 : t78 = { i32_0 = create_int32_u () };;
+let t78 : t78 = { float32_u0 = create_float32_u () };;
 let t79 : t79 = { str0 = create_string (); float_u1 = create_float_u () };;
-let t80 : t80 = { str0 = create_string (); i32_1 = create_int32_u () };;
-let t81 : t81 = { i32_0 = create_int32_u () };;
-let t82 : t82 = { str0 = create_string (); i32_1 = create_int32_u () };;
-let t83 : t83 = { str0 = create_string (); i32_1 = create_int32_u () };;
-let t84 : t84 = { i64_0 = create_int64_u () };;
+let t80 : t80 = { str0 = create_string (); float32_u1 = create_float32_u () };;
+let t81 : t81 = { float32_u0 = create_float32_u () };;
+let t82 : t82 = { str0 = create_string (); float32_u1 = create_float32_u () };;
+let t83 : t83 = { str0 = create_string (); float32_u1 = create_float32_u () };;
+let t84 : t84 = { i32_0 = create_int32_u () };;
 let t85 : t85 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () };;
-let t86 : t86 = { float0 = create_float (); i32_1 = create_int32_u () };;
-let t87 : t87 = { str0 = create_string (); i32_1 = create_int32_u () };;
-let t88 : t88 = { str0 = create_string (); i64_1 = create_int64_u () };;
-let t89 : t89 = { i64_0 = create_int64_u () };;
+let t86 : t86 = { float0 = create_float (); float32_u1 = create_float32_u () };;
+let t87 : t87 = { str0 = create_string (); float32_u1 = create_float32_u () };;
+let t88 : t88 = { str0 = create_string (); i32_1 = create_int32_u () };;
+let t89 : t89 = { i32_0 = create_int32_u () };;
 let t90 : t90 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () };;
 let t91 : t91 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () };;
-let t92 : t92 = { float0 = create_float (); i32_1 = create_int32_u () };;
-let t93 : t93 = { float0 = create_float (); i32_1 = create_int32_u () };;
-let t94 : t94 = { str0 = create_string (); i64_1 = create_int64_u () };;
-let t95 : t95 = { str0 = create_string (); i64_1 = create_int64_u () };;
-let t96 : t96 = { n0 = create_nativeint_u () };;
+let t92 : t92 = { float0 = create_float (); float32_u1 = create_float32_u () };;
+let t93 : t93 = { float0 = create_float (); float32_u1 = create_float32_u () };;
+let t94 : t94 = { str0 = create_string (); i32_1 = create_int32_u () };;
+let t95 : t95 = { str0 = create_string (); i32_1 = create_int32_u () };;
+let t96 : t96 = { i64_0 = create_int64_u () };;
 let t97 : t97 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () };;
 let t98 : t98 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () };;
-let t99 : t99 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t100 : t100 = { float0 = create_float (); i32_1 = create_int32_u () };;
-let t101 : t101 = { float0 = create_float (); i64_1 = create_int64_u () };;
-let t102 : t102 = { str0 = create_string (); i64_1 = create_int64_u () };;
-let t103 : t103 = { str0 = create_string (); n1 = create_nativeint_u () };;
-let t104 : t104 = { n0 = create_nativeint_u () };;
+let t99 : t99 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t100 : t100 = { float0 = create_float (); float32_u1 = create_float32_u () };;
+let t101 : t101 = { float0 = create_float (); i32_1 = create_int32_u () };;
+let t102 : t102 = { str0 = create_string (); i32_1 = create_int32_u () };;
+let t103 : t103 = { str0 = create_string (); i64_1 = create_int64_u () };;
+let t104 : t104 = { i64_0 = create_int64_u () };;
 let t105 : t105 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () };;
 let t106 : t106 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () };;
-let t107 : t107 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t108 : t108 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t109 : t109 = { float0 = create_float (); i64_1 = create_int64_u () };;
-let t110 : t110 = { float0 = create_float (); i64_1 = create_int64_u () };;
-let t111 : t111 = { str0 = create_string (); n1 = create_nativeint_u () };;
-let t112 : t112 = { str0 = create_string (); n1 = create_nativeint_u () };;
-let t113 : t113 = { float_u0 = create_float_u (); imm1 = create_int () };;
+let t107 : t107 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t108 : t108 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t109 : t109 = { float0 = create_float (); i32_1 = create_int32_u () };;
+let t110 : t110 = { float0 = create_float (); i32_1 = create_int32_u () };;
+let t111 : t111 = { str0 = create_string (); i64_1 = create_int64_u () };;
+let t112 : t112 = { str0 = create_string (); i64_1 = create_int64_u () };;
+let t113 : t113 = { n0 = create_nativeint_u () };;
 let t114 : t114 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () };;
 let t115 : t115 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () };;
-let t116 : t116 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t117 : t117 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t118 : t118 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t119 : t119 = { float0 = create_float (); i64_1 = create_int64_u () };;
-let t120 : t120 = { float0 = create_float (); n1 = create_nativeint_u () };;
-let t121 : t121 = { str0 = create_string (); n1 = create_nativeint_u () };;
-let t122 : t122 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () };;
-let t123 : t123 = { float_u0 = create_float_u (); imm1 = create_int () };;
+let t116 : t116 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t117 : t117 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t118 : t118 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t119 : t119 = { float0 = create_float (); i32_1 = create_int32_u () };;
+let t120 : t120 = { float0 = create_float (); i64_1 = create_int64_u () };;
+let t121 : t121 = { str0 = create_string (); i64_1 = create_int64_u () };;
+let t122 : t122 = { str0 = create_string (); n1 = create_nativeint_u () };;
+let t123 : t123 = { n0 = create_nativeint_u () };;
 let t124 : t124 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () };;
 let t125 : t125 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () };;
-let t126 : t126 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t127 : t127 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t128 : t128 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t129 : t129 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t130 : t130 = { float0 = create_float (); n1 = create_nativeint_u () };;
-let t131 : t131 = { float0 = create_float (); n1 = create_nativeint_u () };;
-let t132 : t132 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () };;
-let t133 : t133 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () };;
-let t134 : t134 = { i32_0 = create_int32_u (); imm1 = create_int () };;
+let t126 : t126 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t127 : t127 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t128 : t128 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t129 : t129 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t130 : t130 = { float0 = create_float (); i64_1 = create_int64_u () };;
+let t131 : t131 = { float0 = create_float (); i64_1 = create_int64_u () };;
+let t132 : t132 = { str0 = create_string (); n1 = create_nativeint_u () };;
+let t133 : t133 = { str0 = create_string (); n1 = create_nativeint_u () };;
+let t134 : t134 = { float_u0 = create_float_u (); imm1 = create_int () };;
 let t135 : t135 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () };;
 let t136 : t136 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () };;
-let t137 : t137 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t138 : t138 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t139 : t139 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t140 : t140 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t141 : t141 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t142 : t142 = { float0 = create_float (); n1 = create_nativeint_u () };;
-let t143 : t143 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () };;
-let t144 : t144 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () };;
-let t145 : t145 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () };;
-let t146 : t146 = { i32_0 = create_int32_u (); imm1 = create_int () };;
+let t137 : t137 = { imm0 = create_int (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t138 : t138 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t139 : t139 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t140 : t140 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t141 : t141 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t142 : t142 = { float0 = create_float (); i64_1 = create_int64_u () };;
+let t143 : t143 = { float0 = create_float (); n1 = create_nativeint_u () };;
+let t144 : t144 = { str0 = create_string (); n1 = create_nativeint_u () };;
+let t145 : t145 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () };;
+let t146 : t146 = { float_u0 = create_float_u (); imm1 = create_int () };;
 let t147 : t147 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () };;
 let t148 : t148 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () };;
-let t149 : t149 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t150 : t150 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t151 : t151 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t152 : t152 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t153 : t153 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t154 : t154 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t155 : t155 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () };;
-let t156 : t156 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () };;
-let t157 : t157 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () };;
-let t158 : t158 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () };;
-let t159 : t159 = { i64_0 = create_int64_u (); imm1 = create_int () };;
+let t149 : t149 = { imm0 = create_int (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t150 : t150 = { imm0 = create_int (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t151 : t151 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t152 : t152 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t153 : t153 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t154 : t154 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t155 : t155 = { float0 = create_float (); n1 = create_nativeint_u () };;
+let t156 : t156 = { float0 = create_float (); n1 = create_nativeint_u () };;
+let t157 : t157 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () };;
+let t158 : t158 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () };;
+let t159 : t159 = { float32_u0 = create_float32_u (); imm1 = create_int () };;
 let t160 : t160 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () };;
 let t161 : t161 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () };;
-let t162 : t162 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t163 : t163 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t164 : t164 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t165 : t165 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t166 : t166 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t167 : t167 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t168 : t168 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
-let t169 : t169 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () };;
-let t170 : t170 = { float0 = create_float (); i32_1 = create_int32_u (); imm2 = create_int () };;
-let t171 : t171 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () };;
-let t172 : t172 = { str0 = create_string (); i64_1 = create_int64_u (); imm2 = create_int () };;
-let t173 : t173 = { i64_0 = create_int64_u (); imm1 = create_int () };;
+let t162 : t162 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t163 : t163 = { imm0 = create_int (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t164 : t164 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t165 : t165 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t166 : t166 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t167 : t167 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t168 : t168 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () };;
+let t169 : t169 = { float0 = create_float (); n1 = create_nativeint_u () };;
+let t170 : t170 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () };;
+let t171 : t171 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () };;
+let t172 : t172 = { str0 = create_string (); float32_u1 = create_float32_u (); imm2 = create_int () };;
+let t173 : t173 = { float32_u0 = create_float32_u (); imm1 = create_int () };;
 let t174 : t174 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () };;
 let t175 : t175 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () };;
-let t176 : t176 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t177 : t177 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t178 : t178 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t179 : t179 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t180 : t180 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t181 : t181 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t182 : t182 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
-let t183 : t183 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
-let t184 : t184 = { float0 = create_float (); i32_1 = create_int32_u (); imm2 = create_int () };;
-let t185 : t185 = { float0 = create_float (); i32_1 = create_int32_u (); imm2 = create_int () };;
-let t186 : t186 = { str0 = create_string (); i64_1 = create_int64_u (); imm2 = create_int () };;
-let t187 : t187 = { str0 = create_string (); i64_1 = create_int64_u (); imm2 = create_int () };;
-let t188 : t188 = { n0 = create_nativeint_u (); imm1 = create_int () };;
+let t176 : t176 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t177 : t177 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t178 : t178 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t179 : t179 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t180 : t180 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t181 : t181 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t182 : t182 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () };;
+let t183 : t183 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () };;
+let t184 : t184 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () };;
+let t185 : t185 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () };;
+let t186 : t186 = { str0 = create_string (); float32_u1 = create_float32_u (); imm2 = create_int () };;
+let t187 : t187 = { str0 = create_string (); float32_u1 = create_float32_u (); imm2 = create_int () };;
+let t188 : t188 = { i32_0 = create_int32_u (); imm1 = create_int () };;
 let t189 : t189 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () };;
 let t190 : t190 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () };;
-let t191 : t191 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t192 : t192 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t193 : t193 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t194 : t194 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t195 : t195 = { imm0 = create_int (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t196 : t196 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t197 : t197 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
-let t198 : t198 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
-let t199 : t199 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () };;
-let t200 : t200 = { float0 = create_float (); i32_1 = create_int32_u (); imm2 = create_int () };;
-let t201 : t201 = { float0 = create_float (); i64_1 = create_int64_u (); imm2 = create_int () };;
-let t202 : t202 = { str0 = create_string (); i64_1 = create_int64_u (); imm2 = create_int () };;
-let t203 : t203 = { str0 = create_string (); n1 = create_nativeint_u (); imm2 = create_int () };;
-let t204 : t204 = { n0 = create_nativeint_u (); imm1 = create_int () };;
+let t191 : t191 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t192 : t192 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t193 : t193 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t194 : t194 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t195 : t195 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t196 : t196 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t197 : t197 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () };;
+let t198 : t198 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () };;
+let t199 : t199 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
+let t200 : t200 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () };;
+let t201 : t201 = { float0 = create_float (); float32_u1 = create_float32_u (); imm2 = create_int () };;
+let t202 : t202 = { str0 = create_string (); float32_u1 = create_float32_u (); imm2 = create_int () };;
+let t203 : t203 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () };;
+let t204 : t204 = { i32_0 = create_int32_u (); imm1 = create_int () };;
 let t205 : t205 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () };;
 let t206 : t206 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () };;
-let t207 : t207 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t208 : t208 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t209 : t209 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t210 : t210 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t211 : t211 = { imm0 = create_int (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t212 : t212 = { imm0 = create_int (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t213 : t213 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
-let t214 : t214 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
-let t215 : t215 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () };;
-let t216 : t216 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () };;
-let t217 : t217 = { float0 = create_float (); i64_1 = create_int64_u (); imm2 = create_int () };;
-let t218 : t218 = { float0 = create_float (); i64_1 = create_int64_u (); imm2 = create_int () };;
-let t219 : t219 = { str0 = create_string (); n1 = create_nativeint_u (); imm2 = create_int () };;
-let t220 : t220 = { str0 = create_string (); n1 = create_nativeint_u (); imm2 = create_int () };;
-let t221 : t221 = { float_u0 = create_float_u (); imm1 = create_int () };;
+let t207 : t207 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t208 : t208 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t209 : t209 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t210 : t210 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t211 : t211 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t212 : t212 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t213 : t213 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () };;
+let t214 : t214 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () };;
+let t215 : t215 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
+let t216 : t216 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
+let t217 : t217 = { float0 = create_float (); float32_u1 = create_float32_u (); imm2 = create_int () };;
+let t218 : t218 = { float0 = create_float (); float32_u1 = create_float32_u (); imm2 = create_int () };;
+let t219 : t219 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () };;
+let t220 : t220 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () };;
+let t221 : t221 = { i64_0 = create_int64_u (); imm1 = create_int () };;
 let t222 : t222 = { str0 = create_string (); float1 = create_float (); float_u2 = create_float_u () };;
 let t223 : t223 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () };;
-let t224 : t224 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t225 : t225 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t226 : t226 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t227 : t227 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t228 : t228 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t229 : t229 = { imm0 = create_int (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t230 : t230 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
-let t231 : t231 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
-let t232 : t232 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () };;
-let t233 : t233 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () };;
-let t234 : t234 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u (); imm3 = create_int () };;
-let t235 : t235 = { float0 = create_float (); i64_1 = create_int64_u (); imm2 = create_int () };;
-let t236 : t236 = { float0 = create_float (); n1 = create_nativeint_u (); imm2 = create_int () };;
-let t237 : t237 = { str0 = create_string (); n1 = create_nativeint_u (); imm2 = create_int () };;
-let t238 : t238 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () };;
-let t239 : t239 = { float_u0 = create_float_u (); imm1 = create_int () };;
+let t224 : t224 = { imm0 = create_int (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t225 : t225 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t226 : t226 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t227 : t227 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t228 : t228 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t229 : t229 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t230 : t230 = { imm0 = create_int (); str1 = create_string (); n2 = create_nativeint_u () };;
+let t231 : t231 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () };;
+let t232 : t232 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
+let t233 : t233 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
+let t234 : t234 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u (); imm3 = create_int () };;
+let t235 : t235 = { float0 = create_float (); float32_u1 = create_float32_u (); imm2 = create_int () };;
+let t236 : t236 = { float0 = create_float (); i32_1 = create_int32_u (); imm2 = create_int () };;
+let t237 : t237 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () };;
+let t238 : t238 = { str0 = create_string (); i64_1 = create_int64_u (); imm2 = create_int () };;
+let t239 : t239 = { i64_0 = create_int64_u (); imm1 = create_int () };;
 let t240 : t240 = { str0 = create_string (); float1 = create_float (); float_u2 = create_float_u () };;
 let t241 : t241 = { str0 = create_string (); float1 = create_float (); float_u2 = create_float_u () };;
-let t242 : t242 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t243 : t243 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t244 : t244 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t245 : t245 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t246 : t246 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t247 : t247 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t248 : t248 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
-let t249 : t249 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
-let t250 : t250 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () };;
-let t251 : t251 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () };;
-let t252 : t252 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u (); imm3 = create_int () };;
-let t253 : t253 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u (); imm3 = create_int () };;
-let t254 : t254 = { float0 = create_float (); n1 = create_nativeint_u (); imm2 = create_int () };;
-let t255 : t255 = { float0 = create_float (); n1 = create_nativeint_u (); imm2 = create_int () };;
-let t256 : t256 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () };;
-let t257 : t257 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () };;
-let t258 : t258 = { i32_0 = create_int32_u (); imm1 = create_int () };;
+let t242 : t242 = { imm0 = create_int (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t243 : t243 = { imm0 = create_int (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t244 : t244 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t245 : t245 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t246 : t246 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t247 : t247 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t248 : t248 = { imm0 = create_int (); str1 = create_string (); n2 = create_nativeint_u () };;
+let t249 : t249 = { imm0 = create_int (); str1 = create_string (); n2 = create_nativeint_u () };;
+let t250 : t250 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
+let t251 : t251 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
+let t252 : t252 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u (); imm3 = create_int () };;
+let t253 : t253 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u (); imm3 = create_int () };;
+let t254 : t254 = { float0 = create_float (); i32_1 = create_int32_u (); imm2 = create_int () };;
+let t255 : t255 = { float0 = create_float (); i32_1 = create_int32_u (); imm2 = create_int () };;
+let t256 : t256 = { str0 = create_string (); i64_1 = create_int64_u (); imm2 = create_int () };;
+let t257 : t257 = { str0 = create_string (); i64_1 = create_int64_u (); imm2 = create_int () };;
+let t258 : t258 = { n0 = create_nativeint_u (); imm1 = create_int () };;
 let t259 : t259 = { str0 = create_string (); float1 = create_float (); float_u2 = create_float_u () };;
-let t260 : t260 = { str0 = create_string (); float1 = create_float (); i32_2 = create_int32_u () };;
-let t261 : t261 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t262 : t262 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t263 : t263 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t264 : t264 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t265 : t265 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t266 : t266 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
-let t267 : t267 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
-let t268 : t268 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () };;
-let t269 : t269 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () };;
-let t270 : t270 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u (); imm3 = create_int () };;
-let t271 : t271 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u (); imm3 = create_int () };;
-let t272 : t272 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u (); imm3 = create_int () };;
-let t273 : t273 = { float0 = create_float (); n1 = create_nativeint_u (); imm2 = create_int () };;
-let t274 : t274 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () };;
-let t275 : t275 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () };;
-let t276 : t276 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () };;
-let t277 : t277 = { i32_0 = create_int32_u (); imm1 = create_int () };;
-let t278 : t278 = { str0 = create_string (); float1 = create_float (); i32_2 = create_int32_u () };;
-let t279 : t279 = { str0 = create_string (); float1 = create_float (); i32_2 = create_int32_u () };;
-let t280 : t280 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t281 : t281 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t282 : t282 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t283 : t283 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () };;
-let t284 : t284 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
-let t285 : t285 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
-let t286 : t286 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () };;
-let t287 : t287 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () };;
-let t288 : t288 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u (); imm3 = create_int () };;
-let t289 : t289 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u (); imm3 = create_int () };;
-let t290 : t290 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u (); imm3 = create_int () };;
-let t291 : t291 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u (); imm3 = create_int () };;
-let t292 : t292 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () };;
-let t293 : t293 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () };;
-let t294 : t294 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () };;
-let t295 : t295 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () };;
-let t296 : t296 = { i64_0 = create_int64_u (); imm1 = create_int () };;
+let t260 : t260 = { str0 = create_string (); float1 = create_float (); float32_u2 = create_float32_u () };;
+let t261 : t261 = { imm0 = create_int (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t262 : t262 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t263 : t263 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t264 : t264 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t265 : t265 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t266 : t266 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () };;
+let t267 : t267 = { imm0 = create_int (); str1 = create_string (); n2 = create_nativeint_u () };;
+let t268 : t268 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
+let t269 : t269 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
+let t270 : t270 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u (); imm3 = create_int () };;
+let t271 : t271 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u (); imm3 = create_int () };;
+let t272 : t272 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () };;
+let t273 : t273 = { float0 = create_float (); i32_1 = create_int32_u (); imm2 = create_int () };;
+let t274 : t274 = { float0 = create_float (); i64_1 = create_int64_u (); imm2 = create_int () };;
+let t275 : t275 = { str0 = create_string (); i64_1 = create_int64_u (); imm2 = create_int () };;
+let t276 : t276 = { str0 = create_string (); n1 = create_nativeint_u (); imm2 = create_int () };;
+let t277 : t277 = { n0 = create_nativeint_u (); imm1 = create_int () };;
+let t278 : t278 = { str0 = create_string (); float1 = create_float (); float32_u2 = create_float32_u () };;
+let t279 : t279 = { str0 = create_string (); float1 = create_float (); float32_u2 = create_float32_u () };;
+let t280 : t280 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t281 : t281 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t282 : t282 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t283 : t283 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () };;
+let t284 : t284 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () };;
+let t285 : t285 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () };;
+let t286 : t286 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
+let t287 : t287 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () };;
+let t288 : t288 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u (); imm3 = create_int () };;
+let t289 : t289 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u (); imm3 = create_int () };;
+let t290 : t290 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () };;
+let t291 : t291 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () };;
+let t292 : t292 = { float0 = create_float (); i64_1 = create_int64_u (); imm2 = create_int () };;
+let t293 : t293 = { float0 = create_float (); i64_1 = create_int64_u (); imm2 = create_int () };;
+let t294 : t294 = { str0 = create_string (); n1 = create_nativeint_u (); imm2 = create_int () };;
+let t295 : t295 = { str0 = create_string (); n1 = create_nativeint_u (); imm2 = create_int () };;
+let t296 : t296 = { float_u0 = create_float_u (); imm1 = create_int () };;
 let t297 : t297 = { imm0 = create_int (); float1 = create_float (); float_u2 = create_float_u () };;
-let t298 : t298 = { float0 = create_float (); float1 = create_float (); i32_2 = create_int32_u () };;
-let t299 : t299 = { str0 = create_string (); float1 = create_float (); i32_2 = create_int32_u () };;
+let t298 : t298 = { float0 = create_float (); float1 = create_float (); float32_u2 = create_float32_u () };;
+let t299 : t299 = { str0 = create_string (); float1 = create_float (); float32_u2 = create_float32_u () };;
 let t300_A : t300 = (A (create_float_u ()));;
 let t301_A : t301 = (A (create_float_u ()));;
 let t301_B : t301 = (B (create_float_u ()));;
@@ -1844,13 +1849,13 @@ let t303_B : t303 = (B (create_float_u ()));;
 let t303_C : t303 = (C (create_float_u ()));;
 let t304_A : t304 = (A (create_string (), create_float_u ()));;
 let t304_B : t304 = (B (create_float_u ()));;
-let t305_A : t305 = (A (create_int32_u ()));;
+let t305_A : t305 = (A (create_float32_u ()));;
 let t306_A : t306 = (A (create_float_u ()));;
 let t306_B : t306 = (B (create_string (), create_float_u ()));;
 let t307_A : t307 = (A (create_string (), create_float_u ()));;
 let t307_B : t307 = (B (create_float_u ()));;
 let t307_C : t307 = (C (create_float_u ()));;
-let t308_A : t308 = (A (create_int32_u ()));;
+let t308_A : t308 = (A (create_float32_u ()));;
 let t308_B : t308 = (B (create_float_u ()));;
 let t309_A : t309 = (A (create_float (), create_float_u ()));;
 let t310_A : t310 = (A (create_float_u ()));;
@@ -1859,12 +1864,12 @@ let t310_C : t310 = (C (create_float_u ()));;
 let t310_D : t310 = (D (create_float_u ()));;
 let t311_A : t311 = (A (create_string (), create_float_u ()));;
 let t311_B : t311 = (B (create_string (), create_float_u ()));;
-let t312_A : t312 = (A (create_int32_u ()));;
+let t312_A : t312 = (A (create_float32_u ()));;
 let t312_B : t312 = (B (create_float_u ()));;
 let t312_C : t312 = (C (create_float_u ()));;
 let t313_A : t313 = (A (create_float (), create_float_u ()));;
 let t313_B : t313 = (B (create_float_u ()));;
-let t314_A : t314 = (A (create_string (), create_int32_u ()));;
+let t314_A : t314 = (A (create_string (), create_float32_u ()));;
 let t315_A : t315 = (A (create_float_u ()));;
 let t315_B : t315 = (B (create_string (), create_float_u ()));;
 let t315_C : t315 = (C (create_float_u ()));;
@@ -1872,51 +1877,51 @@ let t316_A : t316 = (A (create_string (), create_float_u ()));;
 let t316_B : t316 = (B (create_float_u ()));;
 let t316_C : t316 = (C (create_float_u ()));;
 let t316_D : t316 = (D (create_float_u ()));;
-let t317_A : t317 = (A (create_int32_u ()));;
+let t317_A : t317 = (A (create_float32_u ()));;
 let t317_B : t317 = (B (create_string (), create_float_u ()));;
 let t318_A : t318 = (A (create_float (), create_float_u ()));;
 let t318_B : t318 = (B (create_float_u ()));;
 let t318_C : t318 = (C (create_float_u ()));;
-let t319_A : t319 = (A (create_string (), create_int32_u ()));;
+let t319_A : t319 = (A (create_string (), create_float32_u ()));;
 let t319_B : t319 = (B (create_float_u ()));;
-let t320_A : t320 = (A (create_int64_u ()));;
+let t320_A : t320 = (A (create_int32_u ()));;
 let t321_A : t321 = (A (create_float_u ()));;
-let t321_B : t321 = (B (create_int32_u ()));;
+let t321_B : t321 = (B (create_float32_u ()));;
 let t322_A : t322 = (A (create_string (), create_float_u ()));;
 let t322_B : t322 = (B (create_string (), create_float_u ()));;
 let t322_C : t322 = (C (create_float_u ()));;
-let t323_A : t323 = (A (create_int32_u ()));;
+let t323_A : t323 = (A (create_float32_u ()));;
 let t323_B : t323 = (B (create_float_u ()));;
 let t323_C : t323 = (C (create_float_u ()));;
 let t323_D : t323 = (D (create_float_u ()));;
 let t324_A : t324 = (A (create_float (), create_float_u ()));;
 let t324_B : t324 = (B (create_string (), create_float_u ()));;
-let t325_A : t325 = (A (create_string (), create_int32_u ()));;
+let t325_A : t325 = (A (create_string (), create_float32_u ()));;
 let t325_B : t325 = (B (create_float_u ()));;
 let t325_C : t325 = (C (create_float_u ()));;
-let t326_A : t326 = (A (create_int64_u ()));;
+let t326_A : t326 = (A (create_int32_u ()));;
 let t326_B : t326 = (B (create_float_u ()));;
 let t327_A : t327 = (A (create_string (), create_string (), create_float_u ()));;
 let t328_A : t328 = (A (create_float_u ()));;
 let t328_B : t328 = (B (create_float_u ()));;
 let t328_C : t328 = (C (create_string (), create_float_u ()));;
 let t329_A : t329 = (A (create_string (), create_float_u ()));;
-let t329_B : t329 = (B (create_int32_u ()));;
-let t330_A : t330 = (A (create_int32_u ()));;
+let t329_B : t329 = (B (create_float32_u ()));;
+let t330_A : t330 = (A (create_float32_u ()));;
 let t330_B : t330 = (B (create_string (), create_float_u ()));;
 let t330_C : t330 = (C (create_float_u ()));;
 let t331_A : t331 = (A (create_float (), create_float_u ()));;
 let t331_B : t331 = (B (create_float_u ()));;
 let t331_C : t331 = (C (create_float_u ()));;
 let t331_D : t331 = (D (create_float_u ()));;
-let t332_A : t332 = (A (create_string (), create_int32_u ()));;
+let t332_A : t332 = (A (create_string (), create_float32_u ()));;
 let t332_B : t332 = (B (create_string (), create_float_u ()));;
-let t333_A : t333 = (A (create_int64_u ()));;
+let t333_A : t333 = (A (create_int32_u ()));;
 let t333_B : t333 = (B (create_float_u ()));;
 let t333_C : t333 = (C (create_float_u ()));;
 let t334_A : t334 = (A (create_string (), create_string (), create_float_u ()));;
 let t334_B : t334 = (B (create_float_u ()));;
-let t335_A : t335 = (A (create_float (), create_int32_u ()));;
+let t335_A : t335 = (A (create_float (), create_float32_u ()));;
 let t336_A : t336 = (A (create_float_u ()));;
 let t336_B : t336 = (B (create_string (), create_float_u ()));;
 let t336_C : t336 = (C (create_float_u ()));;
@@ -1924,77 +1929,77 @@ let t336_D : t336 = (D (create_float_u ()));;
 let t337_A : t337 = (A (create_string (), create_float_u ()));;
 let t337_B : t337 = (B (create_float_u ()));;
 let t337_C : t337 = (C (create_string (), create_float_u ()));;
-let t338_A : t338 = (A (create_int32_u ()));;
-let t338_B : t338 = (B (create_int32_u ()));;
+let t338_A : t338 = (A (create_float32_u ()));;
+let t338_B : t338 = (B (create_float32_u ()));;
 let t339_A : t339 = (A (create_float (), create_float_u ()));;
 let t339_B : t339 = (B (create_string (), create_float_u ()));;
 let t339_C : t339 = (C (create_float_u ()));;
-let t340_A : t340 = (A (create_string (), create_int32_u ()));;
+let t340_A : t340 = (A (create_string (), create_float32_u ()));;
 let t340_B : t340 = (B (create_float_u ()));;
 let t340_C : t340 = (C (create_float_u ()));;
 let t340_D : t340 = (D (create_float_u ()));;
-let t341_A : t341 = (A (create_int64_u ()));;
+let t341_A : t341 = (A (create_int32_u ()));;
 let t341_B : t341 = (B (create_string (), create_float_u ()));;
 let t342_A : t342 = (A (create_string (), create_string (), create_float_u ()));;
 let t342_B : t342 = (B (create_float_u ()));;
 let t342_C : t342 = (C (create_float_u ()));;
-let t343_A : t343 = (A (create_float (), create_int32_u ()));;
+let t343_A : t343 = (A (create_float (), create_float32_u ()));;
 let t343_B : t343 = (B (create_float_u ()));;
-let t344_A : t344 = (A (create_string (), create_int64_u ()));;
+let t344_A : t344 = (A (create_string (), create_int32_u ()));;
 let t345_A : t345 = (A (create_float_u ()));;
-let t345_B : t345 = (B (create_int32_u ()));;
+let t345_B : t345 = (B (create_float32_u ()));;
 let t345_C : t345 = (C (create_float_u ()));;
 let t346_A : t346 = (A (create_string (), create_float_u ()));;
 let t346_B : t346 = (B (create_string (), create_float_u ()));;
 let t346_C : t346 = (C (create_float_u ()));;
 let t346_D : t346 = (D (create_float_u ()));;
-let t347_A : t347 = (A (create_int32_u ()));;
+let t347_A : t347 = (A (create_float32_u ()));;
 let t347_B : t347 = (B (create_float_u ()));;
 let t347_C : t347 = (C (create_string (), create_float_u ()));;
 let t348_A : t348 = (A (create_float (), create_float_u ()));;
-let t348_B : t348 = (B (create_int32_u ()));;
-let t349_A : t349 = (A (create_string (), create_int32_u ()));;
+let t348_B : t348 = (B (create_float32_u ()));;
+let t349_A : t349 = (A (create_string (), create_float32_u ()));;
 let t349_B : t349 = (B (create_string (), create_float_u ()));;
 let t349_C : t349 = (C (create_float_u ()));;
-let t350_A : t350 = (A (create_int64_u ()));;
+let t350_A : t350 = (A (create_int32_u ()));;
 let t350_B : t350 = (B (create_float_u ()));;
 let t350_C : t350 = (C (create_float_u ()));;
 let t350_D : t350 = (D (create_float_u ()));;
 let t351_A : t351 = (A (create_string (), create_string (), create_float_u ()));;
 let t351_B : t351 = (B (create_string (), create_float_u ()));;
-let t352_A : t352 = (A (create_float (), create_int32_u ()));;
+let t352_A : t352 = (A (create_float (), create_float32_u ()));;
 let t352_B : t352 = (B (create_float_u ()));;
 let t352_C : t352 = (C (create_float_u ()));;
-let t353_A : t353 = (A (create_string (), create_int64_u ()));;
+let t353_A : t353 = (A (create_string (), create_int32_u ()));;
 let t353_B : t353 = (B (create_float_u ()));;
-let t354_A : t354 = (A (create_nativeint_u ()));;
+let t354_A : t354 = (A (create_int64_u ()));;
 let t355_A : t355 = (A (create_float_u ()));;
 let t355_B : t355 = (B (create_float (), create_float_u ()));;
 let t356_A : t356 = (A (create_string (), create_float_u ()));;
-let t356_B : t356 = (B (create_int32_u ()));;
+let t356_B : t356 = (B (create_float32_u ()));;
 let t356_C : t356 = (C (create_float_u ()));;
-let t357_A : t357 = (A (create_int32_u ()));;
+let t357_A : t357 = (A (create_float32_u ()));;
 let t357_B : t357 = (B (create_string (), create_float_u ()));;
 let t357_C : t357 = (C (create_float_u ()));;
 let t357_D : t357 = (D (create_float_u ()));;
 let t358_A : t358 = (A (create_float (), create_float_u ()));;
 let t358_B : t358 = (B (create_float_u ()));;
 let t358_C : t358 = (C (create_string (), create_float_u ()));;
-let t359_A : t359 = (A (create_string (), create_int32_u ()));;
-let t359_B : t359 = (B (create_int32_u ()));;
-let t360_A : t360 = (A (create_int64_u ()));;
+let t359_A : t359 = (A (create_string (), create_float32_u ()));;
+let t359_B : t359 = (B (create_float32_u ()));;
+let t360_A : t360 = (A (create_int32_u ()));;
 let t360_B : t360 = (B (create_string (), create_float_u ()));;
 let t360_C : t360 = (C (create_float_u ()));;
 let t361_A : t361 = (A (create_string (), create_string (), create_float_u ()));;
 let t361_B : t361 = (B (create_float_u ()));;
 let t361_C : t361 = (C (create_float_u ()));;
 let t361_D : t361 = (D (create_float_u ()));;
-let t362_A : t362 = (A (create_float (), create_int32_u ()));;
+let t362_A : t362 = (A (create_float (), create_float32_u ()));;
 let t362_B : t362 = (B (create_string (), create_float_u ()));;
-let t363_A : t363 = (A (create_string (), create_int64_u ()));;
+let t363_A : t363 = (A (create_string (), create_int32_u ()));;
 let t363_B : t363 = (B (create_float_u ()));;
 let t363_C : t363 = (C (create_float_u ()));;
-let t364_A : t364 = (A (create_nativeint_u ()));;
+let t364_A : t364 = (A (create_int64_u ()));;
 let t364_B : t364 = (B (create_float_u ()));;
 let t365_A : t365 = (A (create_float (), create_string (), create_float_u ()));;
 let t366_A : t366 = (A (create_float_u ()));;
@@ -2004,33 +2009,33 @@ let t366_D : t366 = (D (create_float_u ()));;
 let t366_E : t366 = (E (create_float_u ()));;
 let t367_A : t367 = (A (create_string (), create_float_u ()));;
 let t367_B : t367 = (B (create_float (), create_float_u ()));;
-let t368_A : t368 = (A (create_int32_u ()));;
-let t368_B : t368 = (B (create_int32_u ()));;
+let t368_A : t368 = (A (create_float32_u ()));;
+let t368_B : t368 = (B (create_float32_u ()));;
 let t368_C : t368 = (C (create_float_u ()));;
 let t369_A : t369 = (A (create_float (), create_float_u ()));;
 let t369_B : t369 = (B (create_string (), create_float_u ()));;
 let t369_C : t369 = (C (create_float_u ()));;
 let t369_D : t369 = (D (create_float_u ()));;
-let t370_A : t370 = (A (create_string (), create_int32_u ()));;
+let t370_A : t370 = (A (create_string (), create_float32_u ()));;
 let t370_B : t370 = (B (create_float_u ()));;
 let t370_C : t370 = (C (create_string (), create_float_u ()));;
-let t371_A : t371 = (A (create_int64_u ()));;
-let t371_B : t371 = (B (create_int32_u ()));;
+let t371_A : t371 = (A (create_int32_u ()));;
+let t371_B : t371 = (B (create_float32_u ()));;
 let t372_A : t372 = (A (create_string (), create_string (), create_float_u ()));;
 let t372_B : t372 = (B (create_string (), create_float_u ()));;
 let t372_C : t372 = (C (create_float_u ()));;
-let t373_A : t373 = (A (create_float (), create_int32_u ()));;
+let t373_A : t373 = (A (create_float (), create_float32_u ()));;
 let t373_B : t373 = (B (create_float_u ()));;
 let t373_C : t373 = (C (create_float_u ()));;
 let t373_D : t373 = (D (create_float_u ()));;
-let t374_A : t374 = (A (create_string (), create_int64_u ()));;
+let t374_A : t374 = (A (create_string (), create_int32_u ()));;
 let t374_B : t374 = (B (create_string (), create_float_u ()));;
-let t375_A : t375 = (A (create_nativeint_u ()));;
+let t375_A : t375 = (A (create_int64_u ()));;
 let t375_B : t375 = (B (create_float_u ()));;
 let t375_C : t375 = (C (create_float_u ()));;
 let t376_A : t376 = (A (create_float (), create_string (), create_float_u ()));;
 let t376_B : t376 = (B (create_float_u ()));;
-let t377_A : t377 = (A (create_string (), create_string (), create_int32_u ()));;
+let t377_A : t377 = (A (create_string (), create_string (), create_float32_u ()));;
 let t378_A : t378 = (A (create_float_u ()));;
 let t378_B : t378 = (B (create_string (), create_float_u ()));;
 let t378_C : t378 = (C (create_string (), create_float_u ()));;
@@ -2039,84 +2044,84 @@ let t379_B : t379 = (B (create_float_u ()));;
 let t379_C : t379 = (C (create_float_u ()));;
 let t379_D : t379 = (D (create_float_u ()));;
 let t379_E : t379 = (E (create_float_u ()));;
-let t380_A : t380 = (A (create_int32_u ()));;
+let t380_A : t380 = (A (create_float32_u ()));;
 let t380_B : t380 = (B (create_float (), create_float_u ()));;
 let t381_A : t381 = (A (create_float (), create_float_u ()));;
-let t381_B : t381 = (B (create_int32_u ()));;
+let t381_B : t381 = (B (create_float32_u ()));;
 let t381_C : t381 = (C (create_float_u ()));;
-let t382_A : t382 = (A (create_string (), create_int32_u ()));;
+let t382_A : t382 = (A (create_string (), create_float32_u ()));;
 let t382_B : t382 = (B (create_string (), create_float_u ()));;
 let t382_C : t382 = (C (create_float_u ()));;
 let t382_D : t382 = (D (create_float_u ()));;
-let t383_A : t383 = (A (create_int64_u ()));;
+let t383_A : t383 = (A (create_int32_u ()));;
 let t383_B : t383 = (B (create_float_u ()));;
 let t383_C : t383 = (C (create_string (), create_float_u ()));;
 let t384_A : t384 = (A (create_string (), create_string (), create_float_u ()));;
-let t384_B : t384 = (B (create_int32_u ()));;
-let t385_A : t385 = (A (create_float (), create_int32_u ()));;
+let t384_B : t384 = (B (create_float32_u ()));;
+let t385_A : t385 = (A (create_float (), create_float32_u ()));;
 let t385_B : t385 = (B (create_string (), create_float_u ()));;
 let t385_C : t385 = (C (create_float_u ()));;
-let t386_A : t386 = (A (create_string (), create_int64_u ()));;
+let t386_A : t386 = (A (create_string (), create_int32_u ()));;
 let t386_B : t386 = (B (create_float_u ()));;
 let t386_C : t386 = (C (create_float_u ()));;
 let t386_D : t386 = (D (create_float_u ()));;
-let t387_A : t387 = (A (create_nativeint_u ()));;
+let t387_A : t387 = (A (create_int64_u ()));;
 let t387_B : t387 = (B (create_string (), create_float_u ()));;
 let t388_A : t388 = (A (create_float (), create_string (), create_float_u ()));;
 let t388_B : t388 = (B (create_float_u ()));;
 let t388_C : t388 = (C (create_float_u ()));;
-let t389_A : t389 = (A (create_string (), create_string (), create_int32_u ()));;
+let t389_A : t389 = (A (create_string (), create_string (), create_float32_u ()));;
 let t389_B : t389 = (B (create_float_u ()));;
-let t390_A : t390 = (A (create_float (), create_int64_u ()));;
+let t390_A : t390 = (A (create_float (), create_int32_u ()));;
 let t391_A : t391 = (A (create_float_u ()));;
-let t391_B : t391 = (B (create_int32_u ()));;
+let t391_B : t391 = (B (create_float32_u ()));;
 let t391_C : t391 = (C (create_float_u ()));;
 let t391_D : t391 = (D (create_float_u ()));;
 let t392_A : t392 = (A (create_string (), create_float_u ()));;
 let t392_B : t392 = (B (create_string (), create_float_u ()));;
 let t392_C : t392 = (C (create_string (), create_float_u ()));;
-let t393_A : t393 = (A (create_int32_u ()));;
+let t393_A : t393 = (A (create_float32_u ()));;
 let t393_B : t393 = (B (create_float_u ()));;
 let t393_C : t393 = (C (create_float_u ()));;
 let t393_D : t393 = (D (create_float_u ()));;
 let t393_E : t393 = (E (create_float_u ()));;
 let t394_A : t394 = (A (create_float (), create_float_u ()));;
 let t394_B : t394 = (B (create_float (), create_float_u ()));;
-let t395_A : t395 = (A (create_string (), create_int32_u ()));;
-let t395_B : t395 = (B (create_int32_u ()));;
+let t395_A : t395 = (A (create_string (), create_float32_u ()));;
+let t395_B : t395 = (B (create_float32_u ()));;
 let t395_C : t395 = (C (create_float_u ()));;
-let t396_A : t396 = (A (create_int64_u ()));;
+let t396_A : t396 = (A (create_int32_u ()));;
 let t396_B : t396 = (B (create_string (), create_float_u ()));;
 let t396_C : t396 = (C (create_float_u ()));;
 let t396_D : t396 = (D (create_float_u ()));;
 let t397_A : t397 = (A (create_string (), create_string (), create_float_u ()));;
 let t397_B : t397 = (B (create_float_u ()));;
 let t397_C : t397 = (C (create_string (), create_float_u ()));;
-let t398_A : t398 = (A (create_float (), create_int32_u ()));;
-let t398_B : t398 = (B (create_int32_u ()));;
-let t399_A : t399 = (A (create_string (), create_int64_u ()));;
+let t398_A : t398 = (A (create_float (), create_float32_u ()));;
+let t398_B : t398 = (B (create_float32_u ()));;
+let t399_A : t399 = (A (create_string (), create_int32_u ()));;
 let t399_B : t399 = (B (create_string (), create_float_u ()));;
 let t399_C : t399 = (C (create_float_u ()));;
-let t400_A : t400 = (A (create_nativeint_u ()));;
+let t400_A : t400 = (A (create_int64_u ()));;
 let t400_B : t400 = (B (create_float_u ()));;
 let t400_C : t400 = (C (create_float_u ()));;
 let t400_D : t400 = (D (create_float_u ()));;
 let t401_A : t401 = (A (create_float (), create_string (), create_float_u ()));;
 let t401_B : t401 = (B (create_string (), create_float_u ()));;
-let t402_A : t402 = (A (create_string (), create_string (), create_int32_u ()));;
+let t402_A : t402 = (A (create_string (), create_string (), create_float32_u ()));;
 let t402_B : t402 = (B (create_float_u ()));;
 let t402_C : t402 = (C (create_float_u ()));;
-let t403_A : t403 = (A (create_float (), create_int64_u ()));;
+let t403_A : t403 = (A (create_float (), create_int32_u ()));;
 let t403_B : t403 = (B (create_float_u ()));;
-let t404_A : t404 = (A (create_string (), create_nativeint_u ()));;
+let t404_A : t404 = (A (create_string (), create_int64_u ()));;
 let t405_A : t405 = (A (create_float_u ()));;
 let t405_B : t405 = (B (create_float (), create_float_u ()));;
 let t405_C : t405 = (C (create_float_u ()));;
 let t406_A : t406 = (A (create_string (), create_float_u ()));;
-let t406_B : t406 = (B (create_int32_u ()));;
+let t406_B : t406 = (B (create_float32_u ()));;
 let t406_C : t406 = (C (create_float_u ()));;
 let t406_D : t406 = (D (create_float_u ()));;
-let t407_A : t407 = (A (create_int32_u ()));;
+let t407_A : t407 = (A (create_float32_u ()));;
 let t407_B : t407 = (B (create_string (), create_float_u ()));;
 let t407_C : t407 = (C (create_string (), create_float_u ()));;
 let t408_A : t408 = (A (create_float (), create_float_u ()));;
@@ -2124,79 +2129,79 @@ let t408_B : t408 = (B (create_float_u ()));;
 let t408_C : t408 = (C (create_float_u ()));;
 let t408_D : t408 = (D (create_float_u ()));;
 let t408_E : t408 = (E (create_float_u ()));;
-let t409_A : t409 = (A (create_string (), create_int32_u ()));;
+let t409_A : t409 = (A (create_string (), create_float32_u ()));;
 let t409_B : t409 = (B (create_float (), create_float_u ()));;
-let t410_A : t410 = (A (create_int64_u ()));;
-let t410_B : t410 = (B (create_int32_u ()));;
+let t410_A : t410 = (A (create_int32_u ()));;
+let t410_B : t410 = (B (create_float32_u ()));;
 let t410_C : t410 = (C (create_float_u ()));;
 let t411_A : t411 = (A (create_string (), create_string (), create_float_u ()));;
 let t411_B : t411 = (B (create_string (), create_float_u ()));;
 let t411_C : t411 = (C (create_float_u ()));;
 let t411_D : t411 = (D (create_float_u ()));;
-let t412_A : t412 = (A (create_float (), create_int32_u ()));;
+let t412_A : t412 = (A (create_float (), create_float32_u ()));;
 let t412_B : t412 = (B (create_float_u ()));;
 let t412_C : t412 = (C (create_string (), create_float_u ()));;
-let t413_A : t413 = (A (create_string (), create_int64_u ()));;
-let t413_B : t413 = (B (create_int32_u ()));;
-let t414_A : t414 = (A (create_nativeint_u ()));;
+let t413_A : t413 = (A (create_string (), create_int32_u ()));;
+let t413_B : t413 = (B (create_float32_u ()));;
+let t414_A : t414 = (A (create_int64_u ()));;
 let t414_B : t414 = (B (create_string (), create_float_u ()));;
 let t414_C : t414 = (C (create_float_u ()));;
 let t415_A : t415 = (A (create_float (), create_string (), create_float_u ()));;
 let t415_B : t415 = (B (create_float_u ()));;
 let t415_C : t415 = (C (create_float_u ()));;
 let t415_D : t415 = (D (create_float_u ()));;
-let t416_A : t416 = (A (create_string (), create_string (), create_int32_u ()));;
+let t416_A : t416 = (A (create_string (), create_string (), create_float32_u ()));;
 let t416_B : t416 = (B (create_string (), create_float_u ()));;
-let t417_A : t417 = (A (create_float (), create_int64_u ()));;
+let t417_A : t417 = (A (create_float (), create_int32_u ()));;
 let t417_B : t417 = (B (create_float_u ()));;
 let t417_C : t417 = (C (create_float_u ()));;
-let t418_A : t418 = (A (create_string (), create_nativeint_u ()));;
+let t418_A : t418 = (A (create_string (), create_int64_u ()));;
 let t418_B : t418 = (B (create_float_u ()));;
-let t419_A : t419 = (A (create_float_u (), create_int ()));;
+let t419_A : t419 = (A (create_nativeint_u ()));;
 let t420_A : t420 = (A (create_float_u ()));;
-let t420_B : t420 = (B (create_string (), create_int32_u ()));;
+let t420_B : t420 = (B (create_string (), create_float32_u ()));;
 let t421_A : t421 = (A (create_string (), create_float_u ()));;
 let t421_B : t421 = (B (create_float (), create_float_u ()));;
 let t421_C : t421 = (C (create_float_u ()));;
-let t422_A : t422 = (A (create_int32_u ()));;
-let t422_B : t422 = (B (create_int32_u ()));;
+let t422_A : t422 = (A (create_float32_u ()));;
+let t422_B : t422 = (B (create_float32_u ()));;
 let t422_C : t422 = (C (create_float_u ()));;
 let t422_D : t422 = (D (create_float_u ()));;
 let t423_A : t423 = (A (create_float (), create_float_u ()));;
 let t423_B : t423 = (B (create_string (), create_float_u ()));;
 let t423_C : t423 = (C (create_string (), create_float_u ()));;
-let t424_A : t424 = (A (create_string (), create_int32_u ()));;
+let t424_A : t424 = (A (create_string (), create_float32_u ()));;
 let t424_B : t424 = (B (create_float_u ()));;
 let t424_C : t424 = (C (create_float_u ()));;
 let t424_D : t424 = (D (create_float_u ()));;
 let t424_E : t424 = (E (create_float_u ()));;
-let t425_A : t425 = (A (create_int64_u ()));;
+let t425_A : t425 = (A (create_int32_u ()));;
 let t425_B : t425 = (B (create_float (), create_float_u ()));;
 let t426_A : t426 = (A (create_string (), create_string (), create_float_u ()));;
-let t426_B : t426 = (B (create_int32_u ()));;
+let t426_B : t426 = (B (create_float32_u ()));;
 let t426_C : t426 = (C (create_float_u ()));;
-let t427_A : t427 = (A (create_float (), create_int32_u ()));;
+let t427_A : t427 = (A (create_float (), create_float32_u ()));;
 let t427_B : t427 = (B (create_string (), create_float_u ()));;
 let t427_C : t427 = (C (create_float_u ()));;
 let t427_D : t427 = (D (create_float_u ()));;
-let t428_A : t428 = (A (create_string (), create_int64_u ()));;
+let t428_A : t428 = (A (create_string (), create_int32_u ()));;
 let t428_B : t428 = (B (create_float_u ()));;
 let t428_C : t428 = (C (create_string (), create_float_u ()));;
-let t429_A : t429 = (A (create_nativeint_u ()));;
-let t429_B : t429 = (B (create_int32_u ()));;
+let t429_A : t429 = (A (create_int64_u ()));;
+let t429_B : t429 = (B (create_float32_u ()));;
 let t430_A : t430 = (A (create_float (), create_string (), create_float_u ()));;
 let t430_B : t430 = (B (create_string (), create_float_u ()));;
 let t430_C : t430 = (C (create_float_u ()));;
-let t431_A : t431 = (A (create_string (), create_string (), create_int32_u ()));;
+let t431_A : t431 = (A (create_string (), create_string (), create_float32_u ()));;
 let t431_B : t431 = (B (create_float_u ()));;
 let t431_C : t431 = (C (create_float_u ()));;
 let t431_D : t431 = (D (create_float_u ()));;
-let t432_A : t432 = (A (create_float (), create_int64_u ()));;
+let t432_A : t432 = (A (create_float (), create_int32_u ()));;
 let t432_B : t432 = (B (create_string (), create_float_u ()));;
-let t433_A : t433 = (A (create_string (), create_nativeint_u ()));;
+let t433_A : t433 = (A (create_string (), create_int64_u ()));;
 let t433_B : t433 = (B (create_float_u ()));;
 let t433_C : t433 = (C (create_float_u ()));;
-let t434_A : t434 = (A (create_float_u (), create_int ()));;
+let t434_A : t434 = (A (create_nativeint_u ()));;
 let t434_B : t434 = (B (create_float_u ()));;
 let t435_A : t435 = (A (create_int (), create_string (), create_float_u ()));;
 let t436_A : t436 = (A (create_float_u ()));;
@@ -2204,51 +2209,51 @@ let t436_B : t436 = (B (create_float_u ()));;
 let t436_C : t436 = (C (create_string (), create_float_u ()));;
 let t436_D : t436 = (D (create_float_u ()));;
 let t437_A : t437 = (A (create_string (), create_float_u ()));;
-let t437_B : t437 = (B (create_string (), create_int32_u ()));;
-let t438_A : t438 = (A (create_int32_u ()));;
+let t437_B : t437 = (B (create_string (), create_float32_u ()));;
+let t438_A : t438 = (A (create_float32_u ()));;
 let t438_B : t438 = (B (create_float (), create_float_u ()));;
 let t438_C : t438 = (C (create_float_u ()));;
 let t439_A : t439 = (A (create_float (), create_float_u ()));;
-let t439_B : t439 = (B (create_int32_u ()));;
+let t439_B : t439 = (B (create_float32_u ()));;
 let t439_C : t439 = (C (create_float_u ()));;
 let t439_D : t439 = (D (create_float_u ()));;
-let t440_A : t440 = (A (create_string (), create_int32_u ()));;
+let t440_A : t440 = (A (create_string (), create_float32_u ()));;
 let t440_B : t440 = (B (create_string (), create_float_u ()));;
 let t440_C : t440 = (C (create_string (), create_float_u ()));;
-let t441_A : t441 = (A (create_int64_u ()));;
+let t441_A : t441 = (A (create_int32_u ()));;
 let t441_B : t441 = (B (create_float_u ()));;
 let t441_C : t441 = (C (create_float_u ()));;
 let t441_D : t441 = (D (create_float_u ()));;
 let t441_E : t441 = (E (create_float_u ()));;
 let t442_A : t442 = (A (create_string (), create_string (), create_float_u ()));;
 let t442_B : t442 = (B (create_float (), create_float_u ()));;
-let t443_A : t443 = (A (create_float (), create_int32_u ()));;
-let t443_B : t443 = (B (create_int32_u ()));;
+let t443_A : t443 = (A (create_float (), create_float32_u ()));;
+let t443_B : t443 = (B (create_float32_u ()));;
 let t443_C : t443 = (C (create_float_u ()));;
-let t444_A : t444 = (A (create_string (), create_int64_u ()));;
+let t444_A : t444 = (A (create_string (), create_int32_u ()));;
 let t444_B : t444 = (B (create_string (), create_float_u ()));;
 let t444_C : t444 = (C (create_float_u ()));;
 let t444_D : t444 = (D (create_float_u ()));;
-let t445_A : t445 = (A (create_nativeint_u ()));;
+let t445_A : t445 = (A (create_int64_u ()));;
 let t445_B : t445 = (B (create_float_u ()));;
 let t445_C : t445 = (C (create_string (), create_float_u ()));;
 let t446_A : t446 = (A (create_float (), create_string (), create_float_u ()));;
-let t446_B : t446 = (B (create_int32_u ()));;
-let t447_A : t447 = (A (create_string (), create_string (), create_int32_u ()));;
+let t446_B : t446 = (B (create_float32_u ()));;
+let t447_A : t447 = (A (create_string (), create_string (), create_float32_u ()));;
 let t447_B : t447 = (B (create_string (), create_float_u ()));;
 let t447_C : t447 = (C (create_float_u ()));;
-let t448_A : t448 = (A (create_float (), create_int64_u ()));;
+let t448_A : t448 = (A (create_float (), create_int32_u ()));;
 let t448_B : t448 = (B (create_float_u ()));;
 let t448_C : t448 = (C (create_float_u ()));;
 let t448_D : t448 = (D (create_float_u ()));;
-let t449_A : t449 = (A (create_string (), create_nativeint_u ()));;
+let t449_A : t449 = (A (create_string (), create_int64_u ()));;
 let t449_B : t449 = (B (create_string (), create_float_u ()));;
-let t450_A : t450 = (A (create_float_u (), create_int ()));;
+let t450_A : t450 = (A (create_nativeint_u ()));;
 let t450_B : t450 = (B (create_float_u ()));;
 let t450_C : t450 = (C (create_float_u ()));;
 let t451_A : t451 = (A (create_int (), create_string (), create_float_u ()));;
 let t451_B : t451 = (B (create_float_u ()));;
-let t452_A : t452 = (A (create_float (), create_string (), create_int32_u ()));;
+let t452_A : t452 = (A (create_float (), create_string (), create_float32_u ()));;
 let t453_A : t453 = (A (create_float_u ()));;
 let t453_B : t453 = (B (create_string (), create_float_u ()));;
 let t453_C : t453 = (C (create_float_u ()));;
@@ -2258,16 +2263,16 @@ let t454_A : t454 = (A (create_string (), create_float_u ()));;
 let t454_B : t454 = (B (create_float_u ()));;
 let t454_C : t454 = (C (create_string (), create_float_u ()));;
 let t454_D : t454 = (D (create_float_u ()));;
-let t455_A : t455 = (A (create_int32_u ()));;
-let t455_B : t455 = (B (create_string (), create_int32_u ()));;
+let t455_A : t455 = (A (create_float32_u ()));;
+let t455_B : t455 = (B (create_string (), create_float32_u ()));;
 let t456_A : t456 = (A (create_float (), create_float_u ()));;
 let t456_B : t456 = (B (create_float (), create_float_u ()));;
 let t456_C : t456 = (C (create_float_u ()));;
-let t457_A : t457 = (A (create_string (), create_int32_u ()));;
-let t457_B : t457 = (B (create_int32_u ()));;
+let t457_A : t457 = (A (create_string (), create_float32_u ()));;
+let t457_B : t457 = (B (create_float32_u ()));;
 let t457_C : t457 = (C (create_float_u ()));;
 let t457_D : t457 = (D (create_float_u ()));;
-let t458_A : t458 = (A (create_int64_u ()));;
+let t458_A : t458 = (A (create_int32_u ()));;
 let t458_B : t458 = (B (create_string (), create_float_u ()));;
 let t458_C : t458 = (C (create_string (), create_float_u ()));;
 let t459_A : t459 = (A (create_string (), create_string (), create_float_u ()));;
@@ -2275,101 +2280,101 @@ let t459_B : t459 = (B (create_float_u ()));;
 let t459_C : t459 = (C (create_float_u ()));;
 let t459_D : t459 = (D (create_float_u ()));;
 let t459_E : t459 = (E (create_float_u ()));;
-let t460_A : t460 = (A (create_float (), create_int32_u ()));;
+let t460_A : t460 = (A (create_float (), create_float32_u ()));;
 let t460_B : t460 = (B (create_float (), create_float_u ()));;
-let t461_A : t461 = (A (create_string (), create_int64_u ()));;
-let t461_B : t461 = (B (create_int32_u ()));;
+let t461_A : t461 = (A (create_string (), create_int32_u ()));;
+let t461_B : t461 = (B (create_float32_u ()));;
 let t461_C : t461 = (C (create_float_u ()));;
-let t462_A : t462 = (A (create_nativeint_u ()));;
+let t462_A : t462 = (A (create_int64_u ()));;
 let t462_B : t462 = (B (create_string (), create_float_u ()));;
 let t462_C : t462 = (C (create_float_u ()));;
 let t462_D : t462 = (D (create_float_u ()));;
 let t463_A : t463 = (A (create_float (), create_string (), create_float_u ()));;
 let t463_B : t463 = (B (create_float_u ()));;
 let t463_C : t463 = (C (create_string (), create_float_u ()));;
-let t464_A : t464 = (A (create_string (), create_string (), create_int32_u ()));;
-let t464_B : t464 = (B (create_int32_u ()));;
-let t465_A : t465 = (A (create_float (), create_int64_u ()));;
+let t464_A : t464 = (A (create_string (), create_string (), create_float32_u ()));;
+let t464_B : t464 = (B (create_float32_u ()));;
+let t465_A : t465 = (A (create_float (), create_int32_u ()));;
 let t465_B : t465 = (B (create_string (), create_float_u ()));;
 let t465_C : t465 = (C (create_float_u ()));;
-let t466_A : t466 = (A (create_string (), create_nativeint_u ()));;
+let t466_A : t466 = (A (create_string (), create_int64_u ()));;
 let t466_B : t466 = (B (create_float_u ()));;
 let t466_C : t466 = (C (create_float_u ()));;
 let t466_D : t466 = (D (create_float_u ()));;
-let t467_A : t467 = (A (create_float_u (), create_int ()));;
+let t467_A : t467 = (A (create_nativeint_u ()));;
 let t467_B : t467 = (B (create_string (), create_float_u ()));;
 let t468_A : t468 = (A (create_int (), create_string (), create_float_u ()));;
 let t468_B : t468 = (B (create_float_u ()));;
 let t468_C : t468 = (C (create_float_u ()));;
-let t469_A : t469 = (A (create_float (), create_string (), create_int32_u ()));;
+let t469_A : t469 = (A (create_float (), create_string (), create_float32_u ()));;
 let t469_B : t469 = (B (create_float_u ()));;
-let t470_A : t470 = (A (create_string (), create_string (), create_int64_u ()));;
+let t470_A : t470 = (A (create_string (), create_string (), create_int32_u ()));;
 let t471_A : t471 = (A (create_float_u ()));;
-let t471_B : t471 = (B (create_int32_u ()));;
+let t471_B : t471 = (B (create_float32_u ()));;
 let t471_C : t471 = (C (create_string (), create_float_u ()));;
 let t472_A : t472 = (A (create_string (), create_float_u ()));;
 let t472_B : t472 = (B (create_string (), create_float_u ()));;
 let t472_C : t472 = (C (create_float_u ()));;
 let t472_D : t472 = (D (create_float_u ()));;
 let t472_E : t472 = (E (create_float_u ()));;
-let t473_A : t473 = (A (create_int32_u ()));;
+let t473_A : t473 = (A (create_float32_u ()));;
 let t473_B : t473 = (B (create_float_u ()));;
 let t473_C : t473 = (C (create_string (), create_float_u ()));;
 let t473_D : t473 = (D (create_float_u ()));;
 let t474_A : t474 = (A (create_float (), create_float_u ()));;
-let t474_B : t474 = (B (create_string (), create_int32_u ()));;
-let t475_A : t475 = (A (create_string (), create_int32_u ()));;
+let t474_B : t474 = (B (create_string (), create_float32_u ()));;
+let t475_A : t475 = (A (create_string (), create_float32_u ()));;
 let t475_B : t475 = (B (create_float (), create_float_u ()));;
 let t475_C : t475 = (C (create_float_u ()));;
-let t476_A : t476 = (A (create_int64_u ()));;
-let t476_B : t476 = (B (create_int32_u ()));;
+let t476_A : t476 = (A (create_int32_u ()));;
+let t476_B : t476 = (B (create_float32_u ()));;
 let t476_C : t476 = (C (create_float_u ()));;
 let t476_D : t476 = (D (create_float_u ()));;
 let t477_A : t477 = (A (create_string (), create_string (), create_float_u ()));;
 let t477_B : t477 = (B (create_string (), create_float_u ()));;
 let t477_C : t477 = (C (create_string (), create_float_u ()));;
-let t478_A : t478 = (A (create_float (), create_int32_u ()));;
+let t478_A : t478 = (A (create_float (), create_float32_u ()));;
 let t478_B : t478 = (B (create_float_u ()));;
 let t478_C : t478 = (C (create_float_u ()));;
 let t478_D : t478 = (D (create_float_u ()));;
 let t478_E : t478 = (E (create_float_u ()));;
-let t479_A : t479 = (A (create_string (), create_int64_u ()));;
+let t479_A : t479 = (A (create_string (), create_int32_u ()));;
 let t479_B : t479 = (B (create_float (), create_float_u ()));;
-let t480_A : t480 = (A (create_nativeint_u ()));;
-let t480_B : t480 = (B (create_int32_u ()));;
+let t480_A : t480 = (A (create_int64_u ()));;
+let t480_B : t480 = (B (create_float32_u ()));;
 let t480_C : t480 = (C (create_float_u ()));;
 let t481_A : t481 = (A (create_float (), create_string (), create_float_u ()));;
 let t481_B : t481 = (B (create_string (), create_float_u ()));;
 let t481_C : t481 = (C (create_float_u ()));;
 let t481_D : t481 = (D (create_float_u ()));;
-let t482_A : t482 = (A (create_string (), create_string (), create_int32_u ()));;
+let t482_A : t482 = (A (create_string (), create_string (), create_float32_u ()));;
 let t482_B : t482 = (B (create_float_u ()));;
 let t482_C : t482 = (C (create_string (), create_float_u ()));;
-let t483_A : t483 = (A (create_float (), create_int64_u ()));;
-let t483_B : t483 = (B (create_int32_u ()));;
-let t484_A : t484 = (A (create_string (), create_nativeint_u ()));;
+let t483_A : t483 = (A (create_float (), create_int32_u ()));;
+let t483_B : t483 = (B (create_float32_u ()));;
+let t484_A : t484 = (A (create_string (), create_int64_u ()));;
 let t484_B : t484 = (B (create_string (), create_float_u ()));;
 let t484_C : t484 = (C (create_float_u ()));;
-let t485_A : t485 = (A (create_float_u (), create_int ()));;
+let t485_A : t485 = (A (create_nativeint_u ()));;
 let t485_B : t485 = (B (create_float_u ()));;
 let t485_C : t485 = (C (create_float_u ()));;
 let t485_D : t485 = (D (create_float_u ()));;
 let t486_A : t486 = (A (create_int (), create_string (), create_float_u ()));;
 let t486_B : t486 = (B (create_string (), create_float_u ()));;
-let t487_A : t487 = (A (create_float (), create_string (), create_int32_u ()));;
+let t487_A : t487 = (A (create_float (), create_string (), create_float32_u ()));;
 let t487_B : t487 = (B (create_float_u ()));;
 let t487_C : t487 = (C (create_float_u ()));;
-let t488_A : t488 = (A (create_string (), create_string (), create_int64_u ()));;
+let t488_A : t488 = (A (create_string (), create_string (), create_int32_u ()));;
 let t488_B : t488 = (B (create_float_u ()));;
-let t489_A : t489 = (A (create_float (), create_nativeint_u ()));;
+let t489_A : t489 = (A (create_float (), create_int64_u ()));;
 let t490_A : t490 = (A (create_float_u ()));;
 let t490_B : t490 = (B (create_float (), create_float_u ()));;
 let t490_C : t490 = (C (create_float_u ()));;
 let t490_D : t490 = (D (create_float_u ()));;
 let t491_A : t491 = (A (create_string (), create_float_u ()));;
-let t491_B : t491 = (B (create_int32_u ()));;
+let t491_B : t491 = (B (create_float32_u ()));;
 let t491_C : t491 = (C (create_string (), create_float_u ()));;
-let t492_A : t492 = (A (create_int32_u ()));;
+let t492_A : t492 = (A (create_float32_u ()));;
 let t492_B : t492 = (B (create_string (), create_float_u ()));;
 let t492_C : t492 = (C (create_float_u ()));;
 let t492_D : t492 = (D (create_float_u ()));;
@@ -2378,148 +2383,148 @@ let t493_A : t493 = (A (create_float (), create_float_u ()));;
 let t493_B : t493 = (B (create_float_u ()));;
 let t493_C : t493 = (C (create_string (), create_float_u ()));;
 let t493_D : t493 = (D (create_float_u ()));;
-let t494_A : t494 = (A (create_string (), create_int32_u ()));;
-let t494_B : t494 = (B (create_string (), create_int32_u ()));;
-let t495_A : t495 = (A (create_int64_u ()));;
+let t494_A : t494 = (A (create_string (), create_float32_u ()));;
+let t494_B : t494 = (B (create_string (), create_float32_u ()));;
+let t495_A : t495 = (A (create_int32_u ()));;
 let t495_B : t495 = (B (create_float (), create_float_u ()));;
 let t495_C : t495 = (C (create_float_u ()));;
 let t496_A : t496 = (A (create_string (), create_string (), create_float_u ()));;
-let t496_B : t496 = (B (create_int32_u ()));;
+let t496_B : t496 = (B (create_float32_u ()));;
 let t496_C : t496 = (C (create_float_u ()));;
 let t496_D : t496 = (D (create_float_u ()));;
-let t497_A : t497 = (A (create_float (), create_int32_u ()));;
+let t497_A : t497 = (A (create_float (), create_float32_u ()));;
 let t497_B : t497 = (B (create_string (), create_float_u ()));;
 let t497_C : t497 = (C (create_string (), create_float_u ()));;
-let t498_A : t498 = (A (create_string (), create_int64_u ()));;
+let t498_A : t498 = (A (create_string (), create_int32_u ()));;
 let t498_B : t498 = (B (create_float_u ()));;
 let t498_C : t498 = (C (create_float_u ()));;
 let t498_D : t498 = (D (create_float_u ()));;
 let t498_E : t498 = (E (create_float_u ()));;
-let t499_A : t499 = (A (create_nativeint_u ()));;
+let t499_A : t499 = (A (create_int64_u ()));;
 let t499_B : t499 = (B (create_float (), create_float_u ()));;
 let t500_A : t500 = (A (create_float (), create_string (), create_float_u ()));;
-let t500_B : t500 = (B (create_int32_u ()));;
+let t500_B : t500 = (B (create_float32_u ()));;
 let t500_C : t500 = (C (create_float_u ()));;
-let t501_A : t501 = (A (create_string (), create_string (), create_int32_u ()));;
+let t501_A : t501 = (A (create_string (), create_string (), create_float32_u ()));;
 let t501_B : t501 = (B (create_string (), create_float_u ()));;
 let t501_C : t501 = (C (create_float_u ()));;
 let t501_D : t501 = (D (create_float_u ()));;
-let t502_A : t502 = (A (create_float (), create_int64_u ()));;
+let t502_A : t502 = (A (create_float (), create_int32_u ()));;
 let t502_B : t502 = (B (create_float_u ()));;
 let t502_C : t502 = (C (create_string (), create_float_u ()));;
-let t503_A : t503 = (A (create_string (), create_nativeint_u ()));;
-let t503_B : t503 = (B (create_int32_u ()));;
-let t504_A : t504 = (A (create_float_u (), create_int ()));;
+let t503_A : t503 = (A (create_string (), create_int64_u ()));;
+let t503_B : t503 = (B (create_float32_u ()));;
+let t504_A : t504 = (A (create_nativeint_u ()));;
 let t504_B : t504 = (B (create_string (), create_float_u ()));;
 let t504_C : t504 = (C (create_float_u ()));;
 let t505_A : t505 = (A (create_int (), create_string (), create_float_u ()));;
 let t505_B : t505 = (B (create_float_u ()));;
 let t505_C : t505 = (C (create_float_u ()));;
 let t505_D : t505 = (D (create_float_u ()));;
-let t506_A : t506 = (A (create_float (), create_string (), create_int32_u ()));;
+let t506_A : t506 = (A (create_float (), create_string (), create_float32_u ()));;
 let t506_B : t506 = (B (create_string (), create_float_u ()));;
-let t507_A : t507 = (A (create_string (), create_string (), create_int64_u ()));;
+let t507_A : t507 = (A (create_string (), create_string (), create_int32_u ()));;
 let t507_B : t507 = (B (create_float_u ()));;
 let t507_C : t507 = (C (create_float_u ()));;
-let t508_A : t508 = (A (create_float (), create_nativeint_u ()));;
+let t508_A : t508 = (A (create_float (), create_int64_u ()));;
 let t508_B : t508 = (B (create_float_u ()));;
-let t509_A : t509 = (A (create_string (), create_float_u (), create_int ()));;
+let t509_A : t509 = (A (create_string (), create_nativeint_u ()));;
 let t510_A : t510 = (A (create_float_u ()));;
-let t510_B : t510 = (B (create_string (), create_int32_u ()));;
+let t510_B : t510 = (B (create_string (), create_float32_u ()));;
 let t510_C : t510 = (C (create_float_u ()));;
 let t511_A : t511 = (A (create_string (), create_float_u ()));;
 let t511_B : t511 = (B (create_float (), create_float_u ()));;
 let t511_C : t511 = (C (create_float_u ()));;
 let t511_D : t511 = (D (create_float_u ()));;
-let t512_A : t512 = (A (create_int32_u ()));;
-let t512_B : t512 = (B (create_int32_u ()));;
+let t512_A : t512 = (A (create_float32_u ()));;
+let t512_B : t512 = (B (create_float32_u ()));;
 let t512_C : t512 = (C (create_string (), create_float_u ()));;
 let t513_A : t513 = (A (create_float (), create_float_u ()));;
 let t513_B : t513 = (B (create_string (), create_float_u ()));;
 let t513_C : t513 = (C (create_float_u ()));;
 let t513_D : t513 = (D (create_float_u ()));;
 let t513_E : t513 = (E (create_float_u ()));;
-let t514_A : t514 = (A (create_string (), create_int32_u ()));;
+let t514_A : t514 = (A (create_string (), create_float32_u ()));;
 let t514_B : t514 = (B (create_float_u ()));;
 let t514_C : t514 = (C (create_string (), create_float_u ()));;
 let t514_D : t514 = (D (create_float_u ()));;
-let t515_A : t515 = (A (create_int64_u ()));;
-let t515_B : t515 = (B (create_string (), create_int32_u ()));;
+let t515_A : t515 = (A (create_int32_u ()));;
+let t515_B : t515 = (B (create_string (), create_float32_u ()));;
 let t516_A : t516 = (A (create_string (), create_string (), create_float_u ()));;
 let t516_B : t516 = (B (create_float (), create_float_u ()));;
 let t516_C : t516 = (C (create_float_u ()));;
-let t517_A : t517 = (A (create_float (), create_int32_u ()));;
-let t517_B : t517 = (B (create_int32_u ()));;
+let t517_A : t517 = (A (create_float (), create_float32_u ()));;
+let t517_B : t517 = (B (create_float32_u ()));;
 let t517_C : t517 = (C (create_float_u ()));;
 let t517_D : t517 = (D (create_float_u ()));;
-let t518_A : t518 = (A (create_string (), create_int64_u ()));;
+let t518_A : t518 = (A (create_string (), create_int32_u ()));;
 let t518_B : t518 = (B (create_string (), create_float_u ()));;
 let t518_C : t518 = (C (create_string (), create_float_u ()));;
-let t519_A : t519 = (A (create_nativeint_u ()));;
+let t519_A : t519 = (A (create_int64_u ()));;
 let t519_B : t519 = (B (create_float_u ()));;
 let t519_C : t519 = (C (create_float_u ()));;
 let t519_D : t519 = (D (create_float_u ()));;
 let t519_E : t519 = (E (create_float_u ()));;
 let t520_A : t520 = (A (create_float (), create_string (), create_float_u ()));;
 let t520_B : t520 = (B (create_float (), create_float_u ()));;
-let t521_A : t521 = (A (create_string (), create_string (), create_int32_u ()));;
-let t521_B : t521 = (B (create_int32_u ()));;
+let t521_A : t521 = (A (create_string (), create_string (), create_float32_u ()));;
+let t521_B : t521 = (B (create_float32_u ()));;
 let t521_C : t521 = (C (create_float_u ()));;
-let t522_A : t522 = (A (create_float (), create_int64_u ()));;
+let t522_A : t522 = (A (create_float (), create_int32_u ()));;
 let t522_B : t522 = (B (create_string (), create_float_u ()));;
 let t522_C : t522 = (C (create_float_u ()));;
 let t522_D : t522 = (D (create_float_u ()));;
-let t523_A : t523 = (A (create_string (), create_nativeint_u ()));;
+let t523_A : t523 = (A (create_string (), create_int64_u ()));;
 let t523_B : t523 = (B (create_float_u ()));;
 let t523_C : t523 = (C (create_string (), create_float_u ()));;
-let t524_A : t524 = (A (create_float_u (), create_int ()));;
-let t524_B : t524 = (B (create_int32_u ()));;
+let t524_A : t524 = (A (create_nativeint_u ()));;
+let t524_B : t524 = (B (create_float32_u ()));;
 let t525_A : t525 = (A (create_int (), create_string (), create_float_u ()));;
 let t525_B : t525 = (B (create_string (), create_float_u ()));;
 let t525_C : t525 = (C (create_float_u ()));;
-let t526_A : t526 = (A (create_float (), create_string (), create_int32_u ()));;
+let t526_A : t526 = (A (create_float (), create_string (), create_float32_u ()));;
 let t526_B : t526 = (B (create_float_u ()));;
 let t526_C : t526 = (C (create_float_u ()));;
 let t526_D : t526 = (D (create_float_u ()));;
-let t527_A : t527 = (A (create_string (), create_string (), create_int64_u ()));;
+let t527_A : t527 = (A (create_string (), create_string (), create_int32_u ()));;
 let t527_B : t527 = (B (create_string (), create_float_u ()));;
-let t528_A : t528 = (A (create_float (), create_nativeint_u ()));;
+let t528_A : t528 = (A (create_float (), create_int64_u ()));;
 let t528_B : t528 = (B (create_float_u ()));;
 let t528_C : t528 = (C (create_float_u ()));;
-let t529_A : t529 = (A (create_string (), create_float_u (), create_int ()));;
+let t529_A : t529 = (A (create_string (), create_nativeint_u ()));;
 let t529_B : t529 = (B (create_float_u ()));;
-let t530_A : t530 = (A (create_int32_u (), create_int ()));;
+let t530_A : t530 = (A (create_float_u (), create_int ()));;
 let t531_A : t531 = (A (create_float_u ()));;
-let t531_B : t531 = (B (create_int64_u ()));;
+let t531_B : t531 = (B (create_int32_u ()));;
 let t532_A : t532 = (A (create_string (), create_float_u ()));;
-let t532_B : t532 = (B (create_string (), create_int32_u ()));;
+let t532_B : t532 = (B (create_string (), create_float32_u ()));;
 let t532_C : t532 = (C (create_float_u ()));;
-let t533_A : t533 = (A (create_int32_u ()));;
+let t533_A : t533 = (A (create_float32_u ()));;
 let t533_B : t533 = (B (create_float (), create_float_u ()));;
 let t533_C : t533 = (C (create_float_u ()));;
 let t533_D : t533 = (D (create_float_u ()));;
 let t534_A : t534 = (A (create_float (), create_float_u ()));;
-let t534_B : t534 = (B (create_int32_u ()));;
+let t534_B : t534 = (B (create_float32_u ()));;
 let t534_C : t534 = (C (create_string (), create_float_u ()));;
-let t535_A : t535 = (A (create_string (), create_int32_u ()));;
+let t535_A : t535 = (A (create_string (), create_float32_u ()));;
 let t535_B : t535 = (B (create_string (), create_float_u ()));;
 let t535_C : t535 = (C (create_float_u ()));;
 let t535_D : t535 = (D (create_float_u ()));;
 let t535_E : t535 = (E (create_float_u ()));;
-let t536_A : t536 = (A (create_int64_u ()));;
+let t536_A : t536 = (A (create_int32_u ()));;
 let t536_B : t536 = (B (create_float_u ()));;
 let t536_C : t536 = (C (create_string (), create_float_u ()));;
 let t536_D : t536 = (D (create_float_u ()));;
 let t537_A : t537 = (A (create_string (), create_string (), create_float_u ()));;
-let t537_B : t537 = (B (create_string (), create_int32_u ()));;
-let t538_A : t538 = (A (create_float (), create_int32_u ()));;
+let t537_B : t537 = (B (create_string (), create_float32_u ()));;
+let t538_A : t538 = (A (create_float (), create_float32_u ()));;
 let t538_B : t538 = (B (create_float (), create_float_u ()));;
 let t538_C : t538 = (C (create_float_u ()));;
-let t539_A : t539 = (A (create_string (), create_int64_u ()));;
-let t539_B : t539 = (B (create_int32_u ()));;
+let t539_A : t539 = (A (create_string (), create_int32_u ()));;
+let t539_B : t539 = (B (create_float32_u ()));;
 let t539_C : t539 = (C (create_float_u ()));;
 let t539_D : t539 = (D (create_float_u ()));;
-let t540_A : t540 = (A (create_nativeint_u ()));;
+let t540_A : t540 = (A (create_int64_u ()));;
 let t540_B : t540 = (B (create_string (), create_float_u ()));;
 let t540_C : t540 = (C (create_string (), create_float_u ()));;
 let t541_A : t541 = (A (create_float (), create_string (), create_float_u ()));;
@@ -2527,51 +2532,51 @@ let t541_B : t541 = (B (create_float_u ()));;
 let t541_C : t541 = (C (create_float_u ()));;
 let t541_D : t541 = (D (create_float_u ()));;
 let t541_E : t541 = (E (create_float_u ()));;
-let t542_A : t542 = (A (create_string (), create_string (), create_int32_u ()));;
+let t542_A : t542 = (A (create_string (), create_string (), create_float32_u ()));;
 let t542_B : t542 = (B (create_float (), create_float_u ()));;
-let t543_A : t543 = (A (create_float (), create_int64_u ()));;
-let t543_B : t543 = (B (create_int32_u ()));;
+let t543_A : t543 = (A (create_float (), create_int32_u ()));;
+let t543_B : t543 = (B (create_float32_u ()));;
 let t543_C : t543 = (C (create_float_u ()));;
-let t544_A : t544 = (A (create_string (), create_nativeint_u ()));;
+let t544_A : t544 = (A (create_string (), create_int64_u ()));;
 let t544_B : t544 = (B (create_string (), create_float_u ()));;
 let t544_C : t544 = (C (create_float_u ()));;
 let t544_D : t544 = (D (create_float_u ()));;
-let t545_A : t545 = (A (create_float_u (), create_int ()));;
+let t545_A : t545 = (A (create_nativeint_u ()));;
 let t545_B : t545 = (B (create_float_u ()));;
 let t545_C : t545 = (C (create_string (), create_float_u ()));;
 let t546_A : t546 = (A (create_int (), create_string (), create_float_u ()));;
-let t546_B : t546 = (B (create_int32_u ()));;
-let t547_A : t547 = (A (create_float (), create_string (), create_int32_u ()));;
+let t546_B : t546 = (B (create_float32_u ()));;
+let t547_A : t547 = (A (create_float (), create_string (), create_float32_u ()));;
 let t547_B : t547 = (B (create_string (), create_float_u ()));;
 let t547_C : t547 = (C (create_float_u ()));;
-let t548_A : t548 = (A (create_string (), create_string (), create_int64_u ()));;
+let t548_A : t548 = (A (create_string (), create_string (), create_int32_u ()));;
 let t548_B : t548 = (B (create_float_u ()));;
 let t548_C : t548 = (C (create_float_u ()));;
 let t548_D : t548 = (D (create_float_u ()));;
-let t549_A : t549 = (A (create_float (), create_nativeint_u ()));;
+let t549_A : t549 = (A (create_float (), create_int64_u ()));;
 let t549_B : t549 = (B (create_string (), create_float_u ()));;
-let t550_A : t550 = (A (create_string (), create_float_u (), create_int ()));;
+let t550_A : t550 = (A (create_string (), create_nativeint_u ()));;
 let t550_B : t550 = (B (create_float_u ()));;
 let t550_C : t550 = (C (create_float_u ()));;
-let t551_A : t551 = (A (create_int32_u (), create_int ()));;
+let t551_A : t551 = (A (create_float_u (), create_int ()));;
 let t551_B : t551 = (B (create_float_u ()));;
 let t552_A : t552 = (A (create_string (), create_float (), create_float_u ()));;
 let t553_A : t553 = (A (create_float_u ()));;
 let t553_B : t553 = (B (create_float_u ()));;
-let t553_C : t553 = (C (create_int32_u ()));;
+let t553_C : t553 = (C (create_float32_u ()));;
 let t554_A : t554 = (A (create_string (), create_float_u ()));;
-let t554_B : t554 = (B (create_int64_u ()));;
-let t555_A : t555 = (A (create_int32_u ()));;
-let t555_B : t555 = (B (create_string (), create_int32_u ()));;
+let t554_B : t554 = (B (create_int32_u ()));;
+let t555_A : t555 = (A (create_float32_u ()));;
+let t555_B : t555 = (B (create_string (), create_float32_u ()));;
 let t555_C : t555 = (C (create_float_u ()));;
 let t556_A : t556 = (A (create_float (), create_float_u ()));;
 let t556_B : t556 = (B (create_float (), create_float_u ()));;
 let t556_C : t556 = (C (create_float_u ()));;
 let t556_D : t556 = (D (create_float_u ()));;
-let t557_A : t557 = (A (create_string (), create_int32_u ()));;
-let t557_B : t557 = (B (create_int32_u ()));;
+let t557_A : t557 = (A (create_string (), create_float32_u ()));;
+let t557_B : t557 = (B (create_float32_u ()));;
 let t557_C : t557 = (C (create_string (), create_float_u ()));;
-let t558_A : t558 = (A (create_int64_u ()));;
+let t558_A : t558 = (A (create_int32_u ()));;
 let t558_B : t558 = (B (create_string (), create_float_u ()));;
 let t558_C : t558 = (C (create_float_u ()));;
 let t558_D : t558 = (D (create_float_u ()));;
@@ -2580,126 +2585,126 @@ let t559_A : t559 = (A (create_string (), create_string (), create_float_u ()));
 let t559_B : t559 = (B (create_float_u ()));;
 let t559_C : t559 = (C (create_string (), create_float_u ()));;
 let t559_D : t559 = (D (create_float_u ()));;
-let t560_A : t560 = (A (create_float (), create_int32_u ()));;
-let t560_B : t560 = (B (create_string (), create_int32_u ()));;
-let t561_A : t561 = (A (create_string (), create_int64_u ()));;
+let t560_A : t560 = (A (create_float (), create_float32_u ()));;
+let t560_B : t560 = (B (create_string (), create_float32_u ()));;
+let t561_A : t561 = (A (create_string (), create_int32_u ()));;
 let t561_B : t561 = (B (create_float (), create_float_u ()));;
 let t561_C : t561 = (C (create_float_u ()));;
-let t562_A : t562 = (A (create_nativeint_u ()));;
-let t562_B : t562 = (B (create_int32_u ()));;
+let t562_A : t562 = (A (create_int64_u ()));;
+let t562_B : t562 = (B (create_float32_u ()));;
 let t562_C : t562 = (C (create_float_u ()));;
 let t562_D : t562 = (D (create_float_u ()));;
 let t563_A : t563 = (A (create_float (), create_string (), create_float_u ()));;
 let t563_B : t563 = (B (create_string (), create_float_u ()));;
 let t563_C : t563 = (C (create_string (), create_float_u ()));;
-let t564_A : t564 = (A (create_string (), create_string (), create_int32_u ()));;
+let t564_A : t564 = (A (create_string (), create_string (), create_float32_u ()));;
 let t564_B : t564 = (B (create_float_u ()));;
 let t564_C : t564 = (C (create_float_u ()));;
 let t564_D : t564 = (D (create_float_u ()));;
 let t564_E : t564 = (E (create_float_u ()));;
-let t565_A : t565 = (A (create_float (), create_int64_u ()));;
+let t565_A : t565 = (A (create_float (), create_int32_u ()));;
 let t565_B : t565 = (B (create_float (), create_float_u ()));;
-let t566_A : t566 = (A (create_string (), create_nativeint_u ()));;
-let t566_B : t566 = (B (create_int32_u ()));;
+let t566_A : t566 = (A (create_string (), create_int64_u ()));;
+let t566_B : t566 = (B (create_float32_u ()));;
 let t566_C : t566 = (C (create_float_u ()));;
-let t567_A : t567 = (A (create_float_u (), create_int ()));;
+let t567_A : t567 = (A (create_nativeint_u ()));;
 let t567_B : t567 = (B (create_string (), create_float_u ()));;
 let t567_C : t567 = (C (create_float_u ()));;
 let t567_D : t567 = (D (create_float_u ()));;
 let t568_A : t568 = (A (create_int (), create_string (), create_float_u ()));;
 let t568_B : t568 = (B (create_float_u ()));;
 let t568_C : t568 = (C (create_string (), create_float_u ()));;
-let t569_A : t569 = (A (create_float (), create_string (), create_int32_u ()));;
-let t569_B : t569 = (B (create_int32_u ()));;
-let t570_A : t570 = (A (create_string (), create_string (), create_int64_u ()));;
+let t569_A : t569 = (A (create_float (), create_string (), create_float32_u ()));;
+let t569_B : t569 = (B (create_float32_u ()));;
+let t570_A : t570 = (A (create_string (), create_string (), create_int32_u ()));;
 let t570_B : t570 = (B (create_string (), create_float_u ()));;
 let t570_C : t570 = (C (create_float_u ()));;
-let t571_A : t571 = (A (create_float (), create_nativeint_u ()));;
+let t571_A : t571 = (A (create_float (), create_int64_u ()));;
 let t571_B : t571 = (B (create_float_u ()));;
 let t571_C : t571 = (C (create_float_u ()));;
 let t571_D : t571 = (D (create_float_u ()));;
-let t572_A : t572 = (A (create_string (), create_float_u (), create_int ()));;
+let t572_A : t572 = (A (create_string (), create_nativeint_u ()));;
 let t572_B : t572 = (B (create_string (), create_float_u ()));;
-let t573_A : t573 = (A (create_int32_u (), create_int ()));;
+let t573_A : t573 = (A (create_float_u (), create_int ()));;
 let t573_B : t573 = (B (create_float_u ()));;
 let t573_C : t573 = (C (create_float_u ()));;
 let t574_A : t574 = (A (create_string (), create_float (), create_float_u ()));;
 let t574_B : t574 = (B (create_float_u ()));;
-let t575_A : t575 = (A (create_int (), create_string (), create_int32_u ()));;
+let t575_A : t575 = (A (create_int (), create_string (), create_float32_u ()));;
 let t576_A : t576 = (A (create_float_u ()));;
 let t576_B : t576 = (B (create_string (), create_float_u ()));;
 let t576_C : t576 = (C (create_string (), create_float_u ()));;
 let t576_D : t576 = (D (create_float_u ()));;
 let t577_A : t577 = (A (create_string (), create_float_u ()));;
 let t577_B : t577 = (B (create_float_u ()));;
-let t577_C : t577 = (C (create_int32_u ()));;
-let t578_A : t578 = (A (create_int32_u ()));;
-let t578_B : t578 = (B (create_int64_u ()));;
+let t577_C : t577 = (C (create_float32_u ()));;
+let t578_A : t578 = (A (create_float32_u ()));;
+let t578_B : t578 = (B (create_int32_u ()));;
 let t579_A : t579 = (A (create_float (), create_float_u ()));;
-let t579_B : t579 = (B (create_string (), create_int32_u ()));;
+let t579_B : t579 = (B (create_string (), create_float32_u ()));;
 let t579_C : t579 = (C (create_float_u ()));;
-let t580_A : t580 = (A (create_string (), create_int32_u ()));;
+let t580_A : t580 = (A (create_string (), create_float32_u ()));;
 let t580_B : t580 = (B (create_float (), create_float_u ()));;
 let t580_C : t580 = (C (create_float_u ()));;
 let t580_D : t580 = (D (create_float_u ()));;
-let t581_A : t581 = (A (create_int64_u ()));;
-let t581_B : t581 = (B (create_int32_u ()));;
+let t581_A : t581 = (A (create_int32_u ()));;
+let t581_B : t581 = (B (create_float32_u ()));;
 let t581_C : t581 = (C (create_string (), create_float_u ()));;
 let t582_A : t582 = (A (create_string (), create_string (), create_float_u ()));;
 let t582_B : t582 = (B (create_string (), create_float_u ()));;
 let t582_C : t582 = (C (create_float_u ()));;
 let t582_D : t582 = (D (create_float_u ()));;
 let t582_E : t582 = (E (create_float_u ()));;
-let t583_A : t583 = (A (create_float (), create_int32_u ()));;
+let t583_A : t583 = (A (create_float (), create_float32_u ()));;
 let t583_B : t583 = (B (create_float_u ()));;
 let t583_C : t583 = (C (create_string (), create_float_u ()));;
 let t583_D : t583 = (D (create_float_u ()));;
-let t584_A : t584 = (A (create_string (), create_int64_u ()));;
-let t584_B : t584 = (B (create_string (), create_int32_u ()));;
-let t585_A : t585 = (A (create_nativeint_u ()));;
+let t584_A : t584 = (A (create_string (), create_int32_u ()));;
+let t584_B : t584 = (B (create_string (), create_float32_u ()));;
+let t585_A : t585 = (A (create_int64_u ()));;
 let t585_B : t585 = (B (create_float (), create_float_u ()));;
 let t585_C : t585 = (C (create_float_u ()));;
 let t586_A : t586 = (A (create_float (), create_string (), create_float_u ()));;
-let t586_B : t586 = (B (create_int32_u ()));;
+let t586_B : t586 = (B (create_float32_u ()));;
 let t586_C : t586 = (C (create_float_u ()));;
 let t586_D : t586 = (D (create_float_u ()));;
-let t587_A : t587 = (A (create_string (), create_string (), create_int32_u ()));;
+let t587_A : t587 = (A (create_string (), create_string (), create_float32_u ()));;
 let t587_B : t587 = (B (create_string (), create_float_u ()));;
 let t587_C : t587 = (C (create_string (), create_float_u ()));;
-let t588_A : t588 = (A (create_float (), create_int64_u ()));;
+let t588_A : t588 = (A (create_float (), create_int32_u ()));;
 let t588_B : t588 = (B (create_float_u ()));;
 let t588_C : t588 = (C (create_float_u ()));;
 let t588_D : t588 = (D (create_float_u ()));;
 let t588_E : t588 = (E (create_float_u ()));;
-let t589_A : t589 = (A (create_string (), create_nativeint_u ()));;
+let t589_A : t589 = (A (create_string (), create_int64_u ()));;
 let t589_B : t589 = (B (create_float (), create_float_u ()));;
-let t590_A : t590 = (A (create_float_u (), create_int ()));;
-let t590_B : t590 = (B (create_int32_u ()));;
+let t590_A : t590 = (A (create_nativeint_u ()));;
+let t590_B : t590 = (B (create_float32_u ()));;
 let t590_C : t590 = (C (create_float_u ()));;
 let t591_A : t591 = (A (create_int (), create_string (), create_float_u ()));;
 let t591_B : t591 = (B (create_string (), create_float_u ()));;
 let t591_C : t591 = (C (create_float_u ()));;
 let t591_D : t591 = (D (create_float_u ()));;
-let t592_A : t592 = (A (create_float (), create_string (), create_int32_u ()));;
+let t592_A : t592 = (A (create_float (), create_string (), create_float32_u ()));;
 let t592_B : t592 = (B (create_float_u ()));;
 let t592_C : t592 = (C (create_string (), create_float_u ()));;
-let t593_A : t593 = (A (create_string (), create_string (), create_int64_u ()));;
-let t593_B : t593 = (B (create_int32_u ()));;
-let t594_A : t594 = (A (create_float (), create_nativeint_u ()));;
+let t593_A : t593 = (A (create_string (), create_string (), create_int32_u ()));;
+let t593_B : t593 = (B (create_float32_u ()));;
+let t594_A : t594 = (A (create_float (), create_int64_u ()));;
 let t594_B : t594 = (B (create_string (), create_float_u ()));;
 let t594_C : t594 = (C (create_float_u ()));;
-let t595_A : t595 = (A (create_string (), create_float_u (), create_int ()));;
+let t595_A : t595 = (A (create_string (), create_nativeint_u ()));;
 let t595_B : t595 = (B (create_float_u ()));;
 let t595_C : t595 = (C (create_float_u ()));;
 let t595_D : t595 = (D (create_float_u ()));;
-let t596_A : t596 = (A (create_int32_u (), create_int ()));;
+let t596_A : t596 = (A (create_float_u (), create_int ()));;
 let t596_B : t596 = (B (create_string (), create_float_u ()));;
 let t597_A : t597 = (A (create_string (), create_float (), create_float_u ()));;
 let t597_B : t597 = (B (create_float_u ()));;
 let t597_C : t597 = (C (create_float_u ()));;
-let t598_A : t598 = (A (create_int (), create_string (), create_int32_u ()));;
+let t598_A : t598 = (A (create_int (), create_string (), create_float32_u ()));;
 let t598_B : t598 = (B (create_float_u ()));;
-let t599_A : t599 = (A (create_float (), create_string (), create_int64_u ()));;
+let t599_A : t599 = (A (create_float (), create_string (), create_int32_u ()));;
 let () = print_endline " - Doing GC";;
 let () = Gc.full_major ();;
 
@@ -2783,25 +2788,25 @@ let t_orig74 = { t74 with float0 = t74.float0 };;
 let t_orig75 = { t75 with str0 = t75.str0 };;
 let t_orig76 = { t76 with str0 = t76.str0 };;
 let t_orig77 = { t77 with str0 = t77.str0 };;
-let t_orig78 = { i32_0 = t78.i32_0 };;
+let t_orig78 = { float32_u0 = t78.float32_u0 };;
 let t_orig79 = { t79 with str0 = t79.str0 };;
 let t_orig80 = { t80 with str0 = t80.str0 };;
-let t_orig81 = { i32_0 = t81.i32_0 };;
+let t_orig81 = { float32_u0 = t81.float32_u0 };;
 let t_orig82 = { t82 with str0 = t82.str0 };;
 let t_orig83 = { t83 with str0 = t83.str0 };;
-let t_orig84 = { i64_0 = t84.i64_0 };;
+let t_orig84 = { i32_0 = t84.i32_0 };;
 let t_orig85 = { t85 with str0 = t85.str0 };;
 let t_orig86 = { t86 with float0 = t86.float0 };;
 let t_orig87 = { t87 with str0 = t87.str0 };;
 let t_orig88 = { t88 with str0 = t88.str0 };;
-let t_orig89 = { i64_0 = t89.i64_0 };;
+let t_orig89 = { i32_0 = t89.i32_0 };;
 let t_orig90 = { t90 with str0 = t90.str0 };;
 let t_orig91 = { t91 with str0 = t91.str0 };;
 let t_orig92 = { t92 with float0 = t92.float0 };;
 let t_orig93 = { t93 with float0 = t93.float0 };;
 let t_orig94 = { t94 with str0 = t94.str0 };;
 let t_orig95 = { t95 with str0 = t95.str0 };;
-let t_orig96 = { n0 = t96.n0 };;
+let t_orig96 = { i64_0 = t96.i64_0 };;
 let t_orig97 = { t97 with float0 = t97.float0 };;
 let t_orig98 = { t98 with str0 = t98.str0 };;
 let t_orig99 = { t99 with str0 = t99.str0 };;
@@ -2809,7 +2814,7 @@ let t_orig100 = { t100 with float0 = t100.float0 };;
 let t_orig101 = { t101 with float0 = t101.float0 };;
 let t_orig102 = { t102 with str0 = t102.str0 };;
 let t_orig103 = { t103 with str0 = t103.str0 };;
-let t_orig104 = { n0 = t104.n0 };;
+let t_orig104 = { i64_0 = t104.i64_0 };;
 let t_orig105 = { t105 with float0 = t105.float0 };;
 let t_orig106 = { t106 with float0 = t106.float0 };;
 let t_orig107 = { t107 with str0 = t107.str0 };;
@@ -2818,7 +2823,7 @@ let t_orig109 = { t109 with float0 = t109.float0 };;
 let t_orig110 = { t110 with float0 = t110.float0 };;
 let t_orig111 = { t111 with str0 = t111.str0 };;
 let t_orig112 = { t112 with str0 = t112.str0 };;
-let t_orig113 = { t113 with float_u0 = t113.float_u0 };;
+let t_orig113 = { n0 = t113.n0 };;
 let t_orig114 = { t114 with imm0 = t114.imm0 };;
 let t_orig115 = { t115 with float0 = t115.float0 };;
 let t_orig116 = { t116 with float0 = t116.float0 };;
@@ -2828,7 +2833,7 @@ let t_orig119 = { t119 with float0 = t119.float0 };;
 let t_orig120 = { t120 with float0 = t120.float0 };;
 let t_orig121 = { t121 with str0 = t121.str0 };;
 let t_orig122 = { t122 with str0 = t122.str0 };;
-let t_orig123 = { t123 with float_u0 = t123.float_u0 };;
+let t_orig123 = { n0 = t123.n0 };;
 let t_orig124 = { t124 with imm0 = t124.imm0 };;
 let t_orig125 = { t125 with imm0 = t125.imm0 };;
 let t_orig126 = { t126 with float0 = t126.float0 };;
@@ -2839,7 +2844,7 @@ let t_orig130 = { t130 with float0 = t130.float0 };;
 let t_orig131 = { t131 with float0 = t131.float0 };;
 let t_orig132 = { t132 with str0 = t132.str0 };;
 let t_orig133 = { t133 with str0 = t133.str0 };;
-let t_orig134 = { t134 with i32_0 = t134.i32_0 };;
+let t_orig134 = { t134 with float_u0 = t134.float_u0 };;
 let t_orig135 = { t135 with str0 = t135.str0 };;
 let t_orig136 = { t136 with imm0 = t136.imm0 };;
 let t_orig137 = { t137 with imm0 = t137.imm0 };;
@@ -2851,7 +2856,7 @@ let t_orig142 = { t142 with float0 = t142.float0 };;
 let t_orig143 = { t143 with float0 = t143.float0 };;
 let t_orig144 = { t144 with str0 = t144.str0 };;
 let t_orig145 = { t145 with str0 = t145.str0 };;
-let t_orig146 = { t146 with i32_0 = t146.i32_0 };;
+let t_orig146 = { t146 with float_u0 = t146.float_u0 };;
 let t_orig147 = { t147 with str0 = t147.str0 };;
 let t_orig148 = { t148 with str0 = t148.str0 };;
 let t_orig149 = { t149 with imm0 = t149.imm0 };;
@@ -2864,7 +2869,7 @@ let t_orig155 = { t155 with float0 = t155.float0 };;
 let t_orig156 = { t156 with float0 = t156.float0 };;
 let t_orig157 = { t157 with str0 = t157.str0 };;
 let t_orig158 = { t158 with str0 = t158.str0 };;
-let t_orig159 = { t159 with i64_0 = t159.i64_0 };;
+let t_orig159 = { t159 with float32_u0 = t159.float32_u0 };;
 let t_orig160 = { t160 with float0 = t160.float0 };;
 let t_orig161 = { t161 with str0 = t161.str0 };;
 let t_orig162 = { t162 with str0 = t162.str0 };;
@@ -2878,7 +2883,7 @@ let t_orig169 = { t169 with float0 = t169.float0 };;
 let t_orig170 = { t170 with float0 = t170.float0 };;
 let t_orig171 = { t171 with str0 = t171.str0 };;
 let t_orig172 = { t172 with str0 = t172.str0 };;
-let t_orig173 = { t173 with i64_0 = t173.i64_0 };;
+let t_orig173 = { t173 with float32_u0 = t173.float32_u0 };;
 let t_orig174 = { t174 with float0 = t174.float0 };;
 let t_orig175 = { t175 with float0 = t175.float0 };;
 let t_orig176 = { t176 with str0 = t176.str0 };;
@@ -2893,7 +2898,7 @@ let t_orig184 = { t184 with float0 = t184.float0 };;
 let t_orig185 = { t185 with float0 = t185.float0 };;
 let t_orig186 = { t186 with str0 = t186.str0 };;
 let t_orig187 = { t187 with str0 = t187.str0 };;
-let t_orig188 = { t188 with n0 = t188.n0 };;
+let t_orig188 = { t188 with i32_0 = t188.i32_0 };;
 let t_orig189 = { t189 with imm0 = t189.imm0 };;
 let t_orig190 = { t190 with float0 = t190.float0 };;
 let t_orig191 = { t191 with float0 = t191.float0 };;
@@ -2909,7 +2914,7 @@ let t_orig200 = { t200 with float0 = t200.float0 };;
 let t_orig201 = { t201 with float0 = t201.float0 };;
 let t_orig202 = { t202 with str0 = t202.str0 };;
 let t_orig203 = { t203 with str0 = t203.str0 };;
-let t_orig204 = { t204 with n0 = t204.n0 };;
+let t_orig204 = { t204 with i32_0 = t204.i32_0 };;
 let t_orig205 = { t205 with imm0 = t205.imm0 };;
 let t_orig206 = { t206 with imm0 = t206.imm0 };;
 let t_orig207 = { t207 with float0 = t207.float0 };;
@@ -2926,7 +2931,7 @@ let t_orig217 = { t217 with float0 = t217.float0 };;
 let t_orig218 = { t218 with float0 = t218.float0 };;
 let t_orig219 = { t219 with str0 = t219.str0 };;
 let t_orig220 = { t220 with str0 = t220.str0 };;
-let t_orig221 = { t221 with float_u0 = t221.float_u0 };;
+let t_orig221 = { t221 with i64_0 = t221.i64_0 };;
 let t_orig222 = { t222 with str0 = t222.str0 };;
 let t_orig223 = { t223 with imm0 = t223.imm0 };;
 let t_orig224 = { t224 with imm0 = t224.imm0 };;
@@ -2944,7 +2949,7 @@ let t_orig235 = { t235 with float0 = t235.float0 };;
 let t_orig236 = { t236 with float0 = t236.float0 };;
 let t_orig237 = { t237 with str0 = t237.str0 };;
 let t_orig238 = { t238 with str0 = t238.str0 };;
-let t_orig239 = { t239 with float_u0 = t239.float_u0 };;
+let t_orig239 = { t239 with i64_0 = t239.i64_0 };;
 let t_orig240 = { t240 with str0 = t240.str0 };;
 let t_orig241 = { t241 with str0 = t241.str0 };;
 let t_orig242 = { t242 with imm0 = t242.imm0 };;
@@ -2963,7 +2968,7 @@ let t_orig254 = { t254 with float0 = t254.float0 };;
 let t_orig255 = { t255 with float0 = t255.float0 };;
 let t_orig256 = { t256 with str0 = t256.str0 };;
 let t_orig257 = { t257 with str0 = t257.str0 };;
-let t_orig258 = { t258 with i32_0 = t258.i32_0 };;
+let t_orig258 = { t258 with n0 = t258.n0 };;
 let t_orig259 = { t259 with str0 = t259.str0 };;
 let t_orig260 = { t260 with str0 = t260.str0 };;
 let t_orig261 = { t261 with imm0 = t261.imm0 };;
@@ -2982,7 +2987,7 @@ let t_orig273 = { t273 with float0 = t273.float0 };;
 let t_orig274 = { t274 with float0 = t274.float0 };;
 let t_orig275 = { t275 with str0 = t275.str0 };;
 let t_orig276 = { t276 with str0 = t276.str0 };;
-let t_orig277 = { t277 with i32_0 = t277.i32_0 };;
+let t_orig277 = { t277 with n0 = t277.n0 };;
 let t_orig278 = { t278 with str0 = t278.str0 };;
 let t_orig279 = { t279 with str0 = t279.str0 };;
 let t_orig280 = { t280 with imm0 = t280.imm0 };;
@@ -3001,7 +3006,7 @@ let t_orig292 = { t292 with float0 = t292.float0 };;
 let t_orig293 = { t293 with float0 = t293.float0 };;
 let t_orig294 = { t294 with str0 = t294.str0 };;
 let t_orig295 = { t295 with str0 = t295.str0 };;
-let t_orig296 = { t296 with i64_0 = t296.i64_0 };;
+let t_orig296 = { t296 with float_u0 = t296.float_u0 };;
 let t_orig297 = { t297 with imm0 = t297.imm0 };;
 let t_orig298 = { t298 with float0 = t298.float0 };;
 let t_orig299 = { t299 with str0 = t299.str0 };;
@@ -7614,27 +7619,27 @@ let t_orig599_A = t599_A;;
   check_float (Stdlib__Float_u.to_float t76.float_u1) (Stdlib__Float_u.to_float t_orig76.float_u1) ~message:"t76.float_u1";
   check_string t77.str0 t_orig77.str0 ~message:"t77.str0";
   check_float (Stdlib__Float_u.to_float t77.float_u1) (Stdlib__Float_u.to_float t_orig77.float_u1) ~message:"t77.float_u1";
-  check_int32 (Stdlib__Int32_u.to_int32 t78.i32_0) (Stdlib__Int32_u.to_int32 t_orig78.i32_0) ~message:"t78.i32_0";
+  check_float32 (Beta.Float32_u.to_float32 t78.float32_u0) (Beta.Float32_u.to_float32 t_orig78.float32_u0) ~message:"t78.float32_u0";
   check_string t79.str0 t_orig79.str0 ~message:"t79.str0";
   check_float (Stdlib__Float_u.to_float t79.float_u1) (Stdlib__Float_u.to_float t_orig79.float_u1) ~message:"t79.float_u1";
   check_string t80.str0 t_orig80.str0 ~message:"t80.str0";
-  check_int32 (Stdlib__Int32_u.to_int32 t80.i32_1) (Stdlib__Int32_u.to_int32 t_orig80.i32_1) ~message:"t80.i32_1";
-  check_int32 (Stdlib__Int32_u.to_int32 t81.i32_0) (Stdlib__Int32_u.to_int32 t_orig81.i32_0) ~message:"t81.i32_0";
+  check_float32 (Beta.Float32_u.to_float32 t80.float32_u1) (Beta.Float32_u.to_float32 t_orig80.float32_u1) ~message:"t80.float32_u1";
+  check_float32 (Beta.Float32_u.to_float32 t81.float32_u0) (Beta.Float32_u.to_float32 t_orig81.float32_u0) ~message:"t81.float32_u0";
   check_string t82.str0 t_orig82.str0 ~message:"t82.str0";
-  check_int32 (Stdlib__Int32_u.to_int32 t82.i32_1) (Stdlib__Int32_u.to_int32 t_orig82.i32_1) ~message:"t82.i32_1";
+  check_float32 (Beta.Float32_u.to_float32 t82.float32_u1) (Beta.Float32_u.to_float32 t_orig82.float32_u1) ~message:"t82.float32_u1";
   check_string t83.str0 t_orig83.str0 ~message:"t83.str0";
-  check_int32 (Stdlib__Int32_u.to_int32 t83.i32_1) (Stdlib__Int32_u.to_int32 t_orig83.i32_1) ~message:"t83.i32_1";
-  check_int64 (Stdlib__Int64_u.to_int64 t84.i64_0) (Stdlib__Int64_u.to_int64 t_orig84.i64_0) ~message:"t84.i64_0";
+  check_float32 (Beta.Float32_u.to_float32 t83.float32_u1) (Beta.Float32_u.to_float32 t_orig83.float32_u1) ~message:"t83.float32_u1";
+  check_int32 (Stdlib__Int32_u.to_int32 t84.i32_0) (Stdlib__Int32_u.to_int32 t_orig84.i32_0) ~message:"t84.i32_0";
   check_string t85.str0 t_orig85.str0 ~message:"t85.str0";
   check_string t85.str1 t_orig85.str1 ~message:"t85.str1";
   check_float (Stdlib__Float_u.to_float t85.float_u2) (Stdlib__Float_u.to_float t_orig85.float_u2) ~message:"t85.float_u2";
   check_float t86.float0 t_orig86.float0 ~message:"t86.float0";
-  check_int32 (Stdlib__Int32_u.to_int32 t86.i32_1) (Stdlib__Int32_u.to_int32 t_orig86.i32_1) ~message:"t86.i32_1";
+  check_float32 (Beta.Float32_u.to_float32 t86.float32_u1) (Beta.Float32_u.to_float32 t_orig86.float32_u1) ~message:"t86.float32_u1";
   check_string t87.str0 t_orig87.str0 ~message:"t87.str0";
-  check_int32 (Stdlib__Int32_u.to_int32 t87.i32_1) (Stdlib__Int32_u.to_int32 t_orig87.i32_1) ~message:"t87.i32_1";
+  check_float32 (Beta.Float32_u.to_float32 t87.float32_u1) (Beta.Float32_u.to_float32 t_orig87.float32_u1) ~message:"t87.float32_u1";
   check_string t88.str0 t_orig88.str0 ~message:"t88.str0";
-  check_int64 (Stdlib__Int64_u.to_int64 t88.i64_1) (Stdlib__Int64_u.to_int64 t_orig88.i64_1) ~message:"t88.i64_1";
-  check_int64 (Stdlib__Int64_u.to_int64 t89.i64_0) (Stdlib__Int64_u.to_int64 t_orig89.i64_0) ~message:"t89.i64_0";
+  check_int32 (Stdlib__Int32_u.to_int32 t88.i32_1) (Stdlib__Int32_u.to_int32 t_orig88.i32_1) ~message:"t88.i32_1";
+  check_int32 (Stdlib__Int32_u.to_int32 t89.i32_0) (Stdlib__Int32_u.to_int32 t_orig89.i32_0) ~message:"t89.i32_0";
   check_string t90.str0 t_orig90.str0 ~message:"t90.str0";
   check_string t90.str1 t_orig90.str1 ~message:"t90.str1";
   check_float (Stdlib__Float_u.to_float t90.float_u2) (Stdlib__Float_u.to_float t_orig90.float_u2) ~message:"t90.float_u2";
@@ -7642,14 +7647,14 @@ let t_orig599_A = t599_A;;
   check_string t91.str1 t_orig91.str1 ~message:"t91.str1";
   check_float (Stdlib__Float_u.to_float t91.float_u2) (Stdlib__Float_u.to_float t_orig91.float_u2) ~message:"t91.float_u2";
   check_float t92.float0 t_orig92.float0 ~message:"t92.float0";
-  check_int32 (Stdlib__Int32_u.to_int32 t92.i32_1) (Stdlib__Int32_u.to_int32 t_orig92.i32_1) ~message:"t92.i32_1";
+  check_float32 (Beta.Float32_u.to_float32 t92.float32_u1) (Beta.Float32_u.to_float32 t_orig92.float32_u1) ~message:"t92.float32_u1";
   check_float t93.float0 t_orig93.float0 ~message:"t93.float0";
-  check_int32 (Stdlib__Int32_u.to_int32 t93.i32_1) (Stdlib__Int32_u.to_int32 t_orig93.i32_1) ~message:"t93.i32_1";
+  check_float32 (Beta.Float32_u.to_float32 t93.float32_u1) (Beta.Float32_u.to_float32 t_orig93.float32_u1) ~message:"t93.float32_u1";
   check_string t94.str0 t_orig94.str0 ~message:"t94.str0";
-  check_int64 (Stdlib__Int64_u.to_int64 t94.i64_1) (Stdlib__Int64_u.to_int64 t_orig94.i64_1) ~message:"t94.i64_1";
+  check_int32 (Stdlib__Int32_u.to_int32 t94.i32_1) (Stdlib__Int32_u.to_int32 t_orig94.i32_1) ~message:"t94.i32_1";
   check_string t95.str0 t_orig95.str0 ~message:"t95.str0";
-  check_int64 (Stdlib__Int64_u.to_int64 t95.i64_1) (Stdlib__Int64_u.to_int64 t_orig95.i64_1) ~message:"t95.i64_1";
-  check_int (Stdlib__Nativeint_u.to_int t96.n0) (Stdlib__Nativeint_u.to_int t_orig96.n0) ~message:"t96.n0";
+  check_int32 (Stdlib__Int32_u.to_int32 t95.i32_1) (Stdlib__Int32_u.to_int32 t_orig95.i32_1) ~message:"t95.i32_1";
+  check_int64 (Stdlib__Int64_u.to_int64 t96.i64_0) (Stdlib__Int64_u.to_int64 t_orig96.i64_0) ~message:"t96.i64_0";
   check_float t97.float0 t_orig97.float0 ~message:"t97.float0";
   check_string t97.str1 t_orig97.str1 ~message:"t97.str1";
   check_float (Stdlib__Float_u.to_float t97.float_u2) (Stdlib__Float_u.to_float t_orig97.float_u2) ~message:"t97.float_u2";
@@ -7658,16 +7663,16 @@ let t_orig599_A = t599_A;;
   check_float (Stdlib__Float_u.to_float t98.float_u2) (Stdlib__Float_u.to_float t_orig98.float_u2) ~message:"t98.float_u2";
   check_string t99.str0 t_orig99.str0 ~message:"t99.str0";
   check_string t99.str1 t_orig99.str1 ~message:"t99.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t99.i32_2) (Stdlib__Int32_u.to_int32 t_orig99.i32_2) ~message:"t99.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t99.float32_u2) (Beta.Float32_u.to_float32 t_orig99.float32_u2) ~message:"t99.float32_u2";
   check_float t100.float0 t_orig100.float0 ~message:"t100.float0";
-  check_int32 (Stdlib__Int32_u.to_int32 t100.i32_1) (Stdlib__Int32_u.to_int32 t_orig100.i32_1) ~message:"t100.i32_1";
+  check_float32 (Beta.Float32_u.to_float32 t100.float32_u1) (Beta.Float32_u.to_float32 t_orig100.float32_u1) ~message:"t100.float32_u1";
   check_float t101.float0 t_orig101.float0 ~message:"t101.float0";
-  check_int64 (Stdlib__Int64_u.to_int64 t101.i64_1) (Stdlib__Int64_u.to_int64 t_orig101.i64_1) ~message:"t101.i64_1";
+  check_int32 (Stdlib__Int32_u.to_int32 t101.i32_1) (Stdlib__Int32_u.to_int32 t_orig101.i32_1) ~message:"t101.i32_1";
   check_string t102.str0 t_orig102.str0 ~message:"t102.str0";
-  check_int64 (Stdlib__Int64_u.to_int64 t102.i64_1) (Stdlib__Int64_u.to_int64 t_orig102.i64_1) ~message:"t102.i64_1";
+  check_int32 (Stdlib__Int32_u.to_int32 t102.i32_1) (Stdlib__Int32_u.to_int32 t_orig102.i32_1) ~message:"t102.i32_1";
   check_string t103.str0 t_orig103.str0 ~message:"t103.str0";
-  check_int (Stdlib__Nativeint_u.to_int t103.n1) (Stdlib__Nativeint_u.to_int t_orig103.n1) ~message:"t103.n1";
-  check_int (Stdlib__Nativeint_u.to_int t104.n0) (Stdlib__Nativeint_u.to_int t_orig104.n0) ~message:"t104.n0";
+  check_int64 (Stdlib__Int64_u.to_int64 t103.i64_1) (Stdlib__Int64_u.to_int64 t_orig103.i64_1) ~message:"t103.i64_1";
+  check_int64 (Stdlib__Int64_u.to_int64 t104.i64_0) (Stdlib__Int64_u.to_int64 t_orig104.i64_0) ~message:"t104.i64_0";
   check_float t105.float0 t_orig105.float0 ~message:"t105.float0";
   check_string t105.str1 t_orig105.str1 ~message:"t105.str1";
   check_float (Stdlib__Float_u.to_float t105.float_u2) (Stdlib__Float_u.to_float t_orig105.float_u2) ~message:"t105.float_u2";
@@ -7676,20 +7681,19 @@ let t_orig599_A = t599_A;;
   check_float (Stdlib__Float_u.to_float t106.float_u2) (Stdlib__Float_u.to_float t_orig106.float_u2) ~message:"t106.float_u2";
   check_string t107.str0 t_orig107.str0 ~message:"t107.str0";
   check_string t107.str1 t_orig107.str1 ~message:"t107.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t107.i32_2) (Stdlib__Int32_u.to_int32 t_orig107.i32_2) ~message:"t107.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t107.float32_u2) (Beta.Float32_u.to_float32 t_orig107.float32_u2) ~message:"t107.float32_u2";
   check_string t108.str0 t_orig108.str0 ~message:"t108.str0";
   check_string t108.str1 t_orig108.str1 ~message:"t108.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t108.i32_2) (Stdlib__Int32_u.to_int32 t_orig108.i32_2) ~message:"t108.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t108.float32_u2) (Beta.Float32_u.to_float32 t_orig108.float32_u2) ~message:"t108.float32_u2";
   check_float t109.float0 t_orig109.float0 ~message:"t109.float0";
-  check_int64 (Stdlib__Int64_u.to_int64 t109.i64_1) (Stdlib__Int64_u.to_int64 t_orig109.i64_1) ~message:"t109.i64_1";
+  check_int32 (Stdlib__Int32_u.to_int32 t109.i32_1) (Stdlib__Int32_u.to_int32 t_orig109.i32_1) ~message:"t109.i32_1";
   check_float t110.float0 t_orig110.float0 ~message:"t110.float0";
-  check_int64 (Stdlib__Int64_u.to_int64 t110.i64_1) (Stdlib__Int64_u.to_int64 t_orig110.i64_1) ~message:"t110.i64_1";
+  check_int32 (Stdlib__Int32_u.to_int32 t110.i32_1) (Stdlib__Int32_u.to_int32 t_orig110.i32_1) ~message:"t110.i32_1";
   check_string t111.str0 t_orig111.str0 ~message:"t111.str0";
-  check_int (Stdlib__Nativeint_u.to_int t111.n1) (Stdlib__Nativeint_u.to_int t_orig111.n1) ~message:"t111.n1";
+  check_int64 (Stdlib__Int64_u.to_int64 t111.i64_1) (Stdlib__Int64_u.to_int64 t_orig111.i64_1) ~message:"t111.i64_1";
   check_string t112.str0 t_orig112.str0 ~message:"t112.str0";
-  check_int (Stdlib__Nativeint_u.to_int t112.n1) (Stdlib__Nativeint_u.to_int t_orig112.n1) ~message:"t112.n1";
-  check_float (Stdlib__Float_u.to_float t113.float_u0) (Stdlib__Float_u.to_float t_orig113.float_u0) ~message:"t113.float_u0";
-  check_int t113.imm1 t_orig113.imm1 ~message:"t113.imm1";
+  check_int64 (Stdlib__Int64_u.to_int64 t112.i64_1) (Stdlib__Int64_u.to_int64 t_orig112.i64_1) ~message:"t112.i64_1";
+  check_int (Stdlib__Nativeint_u.to_int t113.n0) (Stdlib__Nativeint_u.to_int t_orig113.n0) ~message:"t113.n0";
   check_int t114.imm0 t_orig114.imm0 ~message:"t114.imm0";
   check_string t114.str1 t_orig114.str1 ~message:"t114.str1";
   check_float (Stdlib__Float_u.to_float t114.float_u2) (Stdlib__Float_u.to_float t_orig114.float_u2) ~message:"t114.float_u2";
@@ -7698,24 +7702,22 @@ let t_orig599_A = t599_A;;
   check_float (Stdlib__Float_u.to_float t115.float_u2) (Stdlib__Float_u.to_float t_orig115.float_u2) ~message:"t115.float_u2";
   check_float t116.float0 t_orig116.float0 ~message:"t116.float0";
   check_string t116.str1 t_orig116.str1 ~message:"t116.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t116.i32_2) (Stdlib__Int32_u.to_int32 t_orig116.i32_2) ~message:"t116.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t116.float32_u2) (Beta.Float32_u.to_float32 t_orig116.float32_u2) ~message:"t116.float32_u2";
   check_string t117.str0 t_orig117.str0 ~message:"t117.str0";
   check_string t117.str1 t_orig117.str1 ~message:"t117.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t117.i32_2) (Stdlib__Int32_u.to_int32 t_orig117.i32_2) ~message:"t117.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t117.float32_u2) (Beta.Float32_u.to_float32 t_orig117.float32_u2) ~message:"t117.float32_u2";
   check_string t118.str0 t_orig118.str0 ~message:"t118.str0";
   check_string t118.str1 t_orig118.str1 ~message:"t118.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t118.i64_2) (Stdlib__Int64_u.to_int64 t_orig118.i64_2) ~message:"t118.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t118.i32_2) (Stdlib__Int32_u.to_int32 t_orig118.i32_2) ~message:"t118.i32_2";
   check_float t119.float0 t_orig119.float0 ~message:"t119.float0";
-  check_int64 (Stdlib__Int64_u.to_int64 t119.i64_1) (Stdlib__Int64_u.to_int64 t_orig119.i64_1) ~message:"t119.i64_1";
+  check_int32 (Stdlib__Int32_u.to_int32 t119.i32_1) (Stdlib__Int32_u.to_int32 t_orig119.i32_1) ~message:"t119.i32_1";
   check_float t120.float0 t_orig120.float0 ~message:"t120.float0";
-  check_int (Stdlib__Nativeint_u.to_int t120.n1) (Stdlib__Nativeint_u.to_int t_orig120.n1) ~message:"t120.n1";
+  check_int64 (Stdlib__Int64_u.to_int64 t120.i64_1) (Stdlib__Int64_u.to_int64 t_orig120.i64_1) ~message:"t120.i64_1";
   check_string t121.str0 t_orig121.str0 ~message:"t121.str0";
-  check_int (Stdlib__Nativeint_u.to_int t121.n1) (Stdlib__Nativeint_u.to_int t_orig121.n1) ~message:"t121.n1";
+  check_int64 (Stdlib__Int64_u.to_int64 t121.i64_1) (Stdlib__Int64_u.to_int64 t_orig121.i64_1) ~message:"t121.i64_1";
   check_string t122.str0 t_orig122.str0 ~message:"t122.str0";
-  check_float (Stdlib__Float_u.to_float t122.float_u1) (Stdlib__Float_u.to_float t_orig122.float_u1) ~message:"t122.float_u1";
-  check_int t122.imm2 t_orig122.imm2 ~message:"t122.imm2";
-  check_float (Stdlib__Float_u.to_float t123.float_u0) (Stdlib__Float_u.to_float t_orig123.float_u0) ~message:"t123.float_u0";
-  check_int t123.imm1 t_orig123.imm1 ~message:"t123.imm1";
+  check_int (Stdlib__Nativeint_u.to_int t122.n1) (Stdlib__Nativeint_u.to_int t_orig122.n1) ~message:"t122.n1";
+  check_int (Stdlib__Nativeint_u.to_int t123.n0) (Stdlib__Nativeint_u.to_int t_orig123.n0) ~message:"t123.n0";
   check_int t124.imm0 t_orig124.imm0 ~message:"t124.imm0";
   check_string t124.str1 t_orig124.str1 ~message:"t124.str1";
   check_float (Stdlib__Float_u.to_float t124.float_u2) (Stdlib__Float_u.to_float t_orig124.float_u2) ~message:"t124.float_u2";
@@ -7724,27 +7726,25 @@ let t_orig599_A = t599_A;;
   check_float (Stdlib__Float_u.to_float t125.float_u2) (Stdlib__Float_u.to_float t_orig125.float_u2) ~message:"t125.float_u2";
   check_float t126.float0 t_orig126.float0 ~message:"t126.float0";
   check_string t126.str1 t_orig126.str1 ~message:"t126.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t126.i32_2) (Stdlib__Int32_u.to_int32 t_orig126.i32_2) ~message:"t126.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t126.float32_u2) (Beta.Float32_u.to_float32 t_orig126.float32_u2) ~message:"t126.float32_u2";
   check_float t127.float0 t_orig127.float0 ~message:"t127.float0";
   check_string t127.str1 t_orig127.str1 ~message:"t127.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t127.i32_2) (Stdlib__Int32_u.to_int32 t_orig127.i32_2) ~message:"t127.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t127.float32_u2) (Beta.Float32_u.to_float32 t_orig127.float32_u2) ~message:"t127.float32_u2";
   check_string t128.str0 t_orig128.str0 ~message:"t128.str0";
   check_string t128.str1 t_orig128.str1 ~message:"t128.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t128.i64_2) (Stdlib__Int64_u.to_int64 t_orig128.i64_2) ~message:"t128.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t128.i32_2) (Stdlib__Int32_u.to_int32 t_orig128.i32_2) ~message:"t128.i32_2";
   check_string t129.str0 t_orig129.str0 ~message:"t129.str0";
   check_string t129.str1 t_orig129.str1 ~message:"t129.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t129.i64_2) (Stdlib__Int64_u.to_int64 t_orig129.i64_2) ~message:"t129.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t129.i32_2) (Stdlib__Int32_u.to_int32 t_orig129.i32_2) ~message:"t129.i32_2";
   check_float t130.float0 t_orig130.float0 ~message:"t130.float0";
-  check_int (Stdlib__Nativeint_u.to_int t130.n1) (Stdlib__Nativeint_u.to_int t_orig130.n1) ~message:"t130.n1";
+  check_int64 (Stdlib__Int64_u.to_int64 t130.i64_1) (Stdlib__Int64_u.to_int64 t_orig130.i64_1) ~message:"t130.i64_1";
   check_float t131.float0 t_orig131.float0 ~message:"t131.float0";
-  check_int (Stdlib__Nativeint_u.to_int t131.n1) (Stdlib__Nativeint_u.to_int t_orig131.n1) ~message:"t131.n1";
+  check_int64 (Stdlib__Int64_u.to_int64 t131.i64_1) (Stdlib__Int64_u.to_int64 t_orig131.i64_1) ~message:"t131.i64_1";
   check_string t132.str0 t_orig132.str0 ~message:"t132.str0";
-  check_float (Stdlib__Float_u.to_float t132.float_u1) (Stdlib__Float_u.to_float t_orig132.float_u1) ~message:"t132.float_u1";
-  check_int t132.imm2 t_orig132.imm2 ~message:"t132.imm2";
+  check_int (Stdlib__Nativeint_u.to_int t132.n1) (Stdlib__Nativeint_u.to_int t_orig132.n1) ~message:"t132.n1";
   check_string t133.str0 t_orig133.str0 ~message:"t133.str0";
-  check_float (Stdlib__Float_u.to_float t133.float_u1) (Stdlib__Float_u.to_float t_orig133.float_u1) ~message:"t133.float_u1";
-  check_int t133.imm2 t_orig133.imm2 ~message:"t133.imm2";
-  check_int32 (Stdlib__Int32_u.to_int32 t134.i32_0) (Stdlib__Int32_u.to_int32 t_orig134.i32_0) ~message:"t134.i32_0";
+  check_int (Stdlib__Nativeint_u.to_int t133.n1) (Stdlib__Nativeint_u.to_int t_orig133.n1) ~message:"t133.n1";
+  check_float (Stdlib__Float_u.to_float t134.float_u0) (Stdlib__Float_u.to_float t_orig134.float_u0) ~message:"t134.float_u0";
   check_int t134.imm1 t_orig134.imm1 ~message:"t134.imm1";
   check_string t135.str0 t_orig135.str0 ~message:"t135.str0";
   check_string t135.str1 t_orig135.str1 ~message:"t135.str1";
@@ -7754,31 +7754,29 @@ let t_orig599_A = t599_A;;
   check_float (Stdlib__Float_u.to_float t136.float_u2) (Stdlib__Float_u.to_float t_orig136.float_u2) ~message:"t136.float_u2";
   check_int t137.imm0 t_orig137.imm0 ~message:"t137.imm0";
   check_string t137.str1 t_orig137.str1 ~message:"t137.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t137.i32_2) (Stdlib__Int32_u.to_int32 t_orig137.i32_2) ~message:"t137.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t137.float32_u2) (Beta.Float32_u.to_float32 t_orig137.float32_u2) ~message:"t137.float32_u2";
   check_float t138.float0 t_orig138.float0 ~message:"t138.float0";
   check_string t138.str1 t_orig138.str1 ~message:"t138.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t138.i32_2) (Stdlib__Int32_u.to_int32 t_orig138.i32_2) ~message:"t138.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t138.float32_u2) (Beta.Float32_u.to_float32 t_orig138.float32_u2) ~message:"t138.float32_u2";
   check_float t139.float0 t_orig139.float0 ~message:"t139.float0";
   check_string t139.str1 t_orig139.str1 ~message:"t139.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t139.i64_2) (Stdlib__Int64_u.to_int64 t_orig139.i64_2) ~message:"t139.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t139.i32_2) (Stdlib__Int32_u.to_int32 t_orig139.i32_2) ~message:"t139.i32_2";
   check_string t140.str0 t_orig140.str0 ~message:"t140.str0";
   check_string t140.str1 t_orig140.str1 ~message:"t140.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t140.i64_2) (Stdlib__Int64_u.to_int64 t_orig140.i64_2) ~message:"t140.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t140.i32_2) (Stdlib__Int32_u.to_int32 t_orig140.i32_2) ~message:"t140.i32_2";
   check_string t141.str0 t_orig141.str0 ~message:"t141.str0";
   check_string t141.str1 t_orig141.str1 ~message:"t141.str1";
-  check_int (Stdlib__Nativeint_u.to_int t141.n2) (Stdlib__Nativeint_u.to_int t_orig141.n2) ~message:"t141.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t141.i64_2) (Stdlib__Int64_u.to_int64 t_orig141.i64_2) ~message:"t141.i64_2";
   check_float t142.float0 t_orig142.float0 ~message:"t142.float0";
-  check_int (Stdlib__Nativeint_u.to_int t142.n1) (Stdlib__Nativeint_u.to_int t_orig142.n1) ~message:"t142.n1";
+  check_int64 (Stdlib__Int64_u.to_int64 t142.i64_1) (Stdlib__Int64_u.to_int64 t_orig142.i64_1) ~message:"t142.i64_1";
   check_float t143.float0 t_orig143.float0 ~message:"t143.float0";
-  check_float (Stdlib__Float_u.to_float t143.float_u1) (Stdlib__Float_u.to_float t_orig143.float_u1) ~message:"t143.float_u1";
-  check_int t143.imm2 t_orig143.imm2 ~message:"t143.imm2";
+  check_int (Stdlib__Nativeint_u.to_int t143.n1) (Stdlib__Nativeint_u.to_int t_orig143.n1) ~message:"t143.n1";
   check_string t144.str0 t_orig144.str0 ~message:"t144.str0";
-  check_float (Stdlib__Float_u.to_float t144.float_u1) (Stdlib__Float_u.to_float t_orig144.float_u1) ~message:"t144.float_u1";
-  check_int t144.imm2 t_orig144.imm2 ~message:"t144.imm2";
+  check_int (Stdlib__Nativeint_u.to_int t144.n1) (Stdlib__Nativeint_u.to_int t_orig144.n1) ~message:"t144.n1";
   check_string t145.str0 t_orig145.str0 ~message:"t145.str0";
-  check_int32 (Stdlib__Int32_u.to_int32 t145.i32_1) (Stdlib__Int32_u.to_int32 t_orig145.i32_1) ~message:"t145.i32_1";
+  check_float (Stdlib__Float_u.to_float t145.float_u1) (Stdlib__Float_u.to_float t_orig145.float_u1) ~message:"t145.float_u1";
   check_int t145.imm2 t_orig145.imm2 ~message:"t145.imm2";
-  check_int32 (Stdlib__Int32_u.to_int32 t146.i32_0) (Stdlib__Int32_u.to_int32 t_orig146.i32_0) ~message:"t146.i32_0";
+  check_float (Stdlib__Float_u.to_float t146.float_u0) (Stdlib__Float_u.to_float t_orig146.float_u0) ~message:"t146.float_u0";
   check_int t146.imm1 t_orig146.imm1 ~message:"t146.imm1";
   check_string t147.str0 t_orig147.str0 ~message:"t147.str0";
   check_string t147.str1 t_orig147.str1 ~message:"t147.str1";
@@ -7788,35 +7786,33 @@ let t_orig599_A = t599_A;;
   check_float (Stdlib__Float_u.to_float t148.float_u2) (Stdlib__Float_u.to_float t_orig148.float_u2) ~message:"t148.float_u2";
   check_int t149.imm0 t_orig149.imm0 ~message:"t149.imm0";
   check_string t149.str1 t_orig149.str1 ~message:"t149.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t149.i32_2) (Stdlib__Int32_u.to_int32 t_orig149.i32_2) ~message:"t149.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t149.float32_u2) (Beta.Float32_u.to_float32 t_orig149.float32_u2) ~message:"t149.float32_u2";
   check_int t150.imm0 t_orig150.imm0 ~message:"t150.imm0";
   check_string t150.str1 t_orig150.str1 ~message:"t150.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t150.i32_2) (Stdlib__Int32_u.to_int32 t_orig150.i32_2) ~message:"t150.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t150.float32_u2) (Beta.Float32_u.to_float32 t_orig150.float32_u2) ~message:"t150.float32_u2";
   check_float t151.float0 t_orig151.float0 ~message:"t151.float0";
   check_string t151.str1 t_orig151.str1 ~message:"t151.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t151.i64_2) (Stdlib__Int64_u.to_int64 t_orig151.i64_2) ~message:"t151.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t151.i32_2) (Stdlib__Int32_u.to_int32 t_orig151.i32_2) ~message:"t151.i32_2";
   check_float t152.float0 t_orig152.float0 ~message:"t152.float0";
   check_string t152.str1 t_orig152.str1 ~message:"t152.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t152.i64_2) (Stdlib__Int64_u.to_int64 t_orig152.i64_2) ~message:"t152.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t152.i32_2) (Stdlib__Int32_u.to_int32 t_orig152.i32_2) ~message:"t152.i32_2";
   check_string t153.str0 t_orig153.str0 ~message:"t153.str0";
   check_string t153.str1 t_orig153.str1 ~message:"t153.str1";
-  check_int (Stdlib__Nativeint_u.to_int t153.n2) (Stdlib__Nativeint_u.to_int t_orig153.n2) ~message:"t153.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t153.i64_2) (Stdlib__Int64_u.to_int64 t_orig153.i64_2) ~message:"t153.i64_2";
   check_string t154.str0 t_orig154.str0 ~message:"t154.str0";
   check_string t154.str1 t_orig154.str1 ~message:"t154.str1";
-  check_int (Stdlib__Nativeint_u.to_int t154.n2) (Stdlib__Nativeint_u.to_int t_orig154.n2) ~message:"t154.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t154.i64_2) (Stdlib__Int64_u.to_int64 t_orig154.i64_2) ~message:"t154.i64_2";
   check_float t155.float0 t_orig155.float0 ~message:"t155.float0";
-  check_float (Stdlib__Float_u.to_float t155.float_u1) (Stdlib__Float_u.to_float t_orig155.float_u1) ~message:"t155.float_u1";
-  check_int t155.imm2 t_orig155.imm2 ~message:"t155.imm2";
+  check_int (Stdlib__Nativeint_u.to_int t155.n1) (Stdlib__Nativeint_u.to_int t_orig155.n1) ~message:"t155.n1";
   check_float t156.float0 t_orig156.float0 ~message:"t156.float0";
-  check_float (Stdlib__Float_u.to_float t156.float_u1) (Stdlib__Float_u.to_float t_orig156.float_u1) ~message:"t156.float_u1";
-  check_int t156.imm2 t_orig156.imm2 ~message:"t156.imm2";
+  check_int (Stdlib__Nativeint_u.to_int t156.n1) (Stdlib__Nativeint_u.to_int t_orig156.n1) ~message:"t156.n1";
   check_string t157.str0 t_orig157.str0 ~message:"t157.str0";
-  check_int32 (Stdlib__Int32_u.to_int32 t157.i32_1) (Stdlib__Int32_u.to_int32 t_orig157.i32_1) ~message:"t157.i32_1";
+  check_float (Stdlib__Float_u.to_float t157.float_u1) (Stdlib__Float_u.to_float t_orig157.float_u1) ~message:"t157.float_u1";
   check_int t157.imm2 t_orig157.imm2 ~message:"t157.imm2";
   check_string t158.str0 t_orig158.str0 ~message:"t158.str0";
-  check_int32 (Stdlib__Int32_u.to_int32 t158.i32_1) (Stdlib__Int32_u.to_int32 t_orig158.i32_1) ~message:"t158.i32_1";
+  check_float (Stdlib__Float_u.to_float t158.float_u1) (Stdlib__Float_u.to_float t_orig158.float_u1) ~message:"t158.float_u1";
   check_int t158.imm2 t_orig158.imm2 ~message:"t158.imm2";
-  check_int64 (Stdlib__Int64_u.to_int64 t159.i64_0) (Stdlib__Int64_u.to_int64 t_orig159.i64_0) ~message:"t159.i64_0";
+  check_float32 (Beta.Float32_u.to_float32 t159.float32_u0) (Beta.Float32_u.to_float32 t_orig159.float32_u0) ~message:"t159.float32_u0";
   check_int t159.imm1 t_orig159.imm1 ~message:"t159.imm1";
   check_float t160.float0 t_orig160.float0 ~message:"t160.float0";
   check_string t160.str1 t_orig160.str1 ~message:"t160.str1";
@@ -7826,39 +7822,37 @@ let t_orig599_A = t599_A;;
   check_float (Stdlib__Float_u.to_float t161.float_u2) (Stdlib__Float_u.to_float t_orig161.float_u2) ~message:"t161.float_u2";
   check_string t162.str0 t_orig162.str0 ~message:"t162.str0";
   check_string t162.str1 t_orig162.str1 ~message:"t162.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t162.i32_2) (Stdlib__Int32_u.to_int32 t_orig162.i32_2) ~message:"t162.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t162.float32_u2) (Beta.Float32_u.to_float32 t_orig162.float32_u2) ~message:"t162.float32_u2";
   check_int t163.imm0 t_orig163.imm0 ~message:"t163.imm0";
   check_string t163.str1 t_orig163.str1 ~message:"t163.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t163.i32_2) (Stdlib__Int32_u.to_int32 t_orig163.i32_2) ~message:"t163.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t163.float32_u2) (Beta.Float32_u.to_float32 t_orig163.float32_u2) ~message:"t163.float32_u2";
   check_int t164.imm0 t_orig164.imm0 ~message:"t164.imm0";
   check_string t164.str1 t_orig164.str1 ~message:"t164.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t164.i64_2) (Stdlib__Int64_u.to_int64 t_orig164.i64_2) ~message:"t164.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t164.i32_2) (Stdlib__Int32_u.to_int32 t_orig164.i32_2) ~message:"t164.i32_2";
   check_float t165.float0 t_orig165.float0 ~message:"t165.float0";
   check_string t165.str1 t_orig165.str1 ~message:"t165.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t165.i64_2) (Stdlib__Int64_u.to_int64 t_orig165.i64_2) ~message:"t165.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t165.i32_2) (Stdlib__Int32_u.to_int32 t_orig165.i32_2) ~message:"t165.i32_2";
   check_float t166.float0 t_orig166.float0 ~message:"t166.float0";
   check_string t166.str1 t_orig166.str1 ~message:"t166.str1";
-  check_int (Stdlib__Nativeint_u.to_int t166.n2) (Stdlib__Nativeint_u.to_int t_orig166.n2) ~message:"t166.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t166.i64_2) (Stdlib__Int64_u.to_int64 t_orig166.i64_2) ~message:"t166.i64_2";
   check_string t167.str0 t_orig167.str0 ~message:"t167.str0";
   check_string t167.str1 t_orig167.str1 ~message:"t167.str1";
-  check_int (Stdlib__Nativeint_u.to_int t167.n2) (Stdlib__Nativeint_u.to_int t_orig167.n2) ~message:"t167.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t167.i64_2) (Stdlib__Int64_u.to_int64 t_orig167.i64_2) ~message:"t167.i64_2";
   check_string t168.str0 t_orig168.str0 ~message:"t168.str0";
   check_string t168.str1 t_orig168.str1 ~message:"t168.str1";
-  check_float (Stdlib__Float_u.to_float t168.float_u2) (Stdlib__Float_u.to_float t_orig168.float_u2) ~message:"t168.float_u2";
-  check_int t168.imm3 t_orig168.imm3 ~message:"t168.imm3";
+  check_int (Stdlib__Nativeint_u.to_int t168.n2) (Stdlib__Nativeint_u.to_int t_orig168.n2) ~message:"t168.n2";
   check_float t169.float0 t_orig169.float0 ~message:"t169.float0";
-  check_float (Stdlib__Float_u.to_float t169.float_u1) (Stdlib__Float_u.to_float t_orig169.float_u1) ~message:"t169.float_u1";
-  check_int t169.imm2 t_orig169.imm2 ~message:"t169.imm2";
+  check_int (Stdlib__Nativeint_u.to_int t169.n1) (Stdlib__Nativeint_u.to_int t_orig169.n1) ~message:"t169.n1";
   check_float t170.float0 t_orig170.float0 ~message:"t170.float0";
-  check_int32 (Stdlib__Int32_u.to_int32 t170.i32_1) (Stdlib__Int32_u.to_int32 t_orig170.i32_1) ~message:"t170.i32_1";
+  check_float (Stdlib__Float_u.to_float t170.float_u1) (Stdlib__Float_u.to_float t_orig170.float_u1) ~message:"t170.float_u1";
   check_int t170.imm2 t_orig170.imm2 ~message:"t170.imm2";
   check_string t171.str0 t_orig171.str0 ~message:"t171.str0";
-  check_int32 (Stdlib__Int32_u.to_int32 t171.i32_1) (Stdlib__Int32_u.to_int32 t_orig171.i32_1) ~message:"t171.i32_1";
+  check_float (Stdlib__Float_u.to_float t171.float_u1) (Stdlib__Float_u.to_float t_orig171.float_u1) ~message:"t171.float_u1";
   check_int t171.imm2 t_orig171.imm2 ~message:"t171.imm2";
   check_string t172.str0 t_orig172.str0 ~message:"t172.str0";
-  check_int64 (Stdlib__Int64_u.to_int64 t172.i64_1) (Stdlib__Int64_u.to_int64 t_orig172.i64_1) ~message:"t172.i64_1";
+  check_float32 (Beta.Float32_u.to_float32 t172.float32_u1) (Beta.Float32_u.to_float32 t_orig172.float32_u1) ~message:"t172.float32_u1";
   check_int t172.imm2 t_orig172.imm2 ~message:"t172.imm2";
-  check_int64 (Stdlib__Int64_u.to_int64 t173.i64_0) (Stdlib__Int64_u.to_int64 t_orig173.i64_0) ~message:"t173.i64_0";
+  check_float32 (Beta.Float32_u.to_float32 t173.float32_u0) (Beta.Float32_u.to_float32 t_orig173.float32_u0) ~message:"t173.float32_u0";
   check_int t173.imm1 t_orig173.imm1 ~message:"t173.imm1";
   check_float t174.float0 t_orig174.float0 ~message:"t174.float0";
   check_string t174.str1 t_orig174.str1 ~message:"t174.str1";
@@ -7868,43 +7862,41 @@ let t_orig599_A = t599_A;;
   check_float (Stdlib__Float_u.to_float t175.float_u2) (Stdlib__Float_u.to_float t_orig175.float_u2) ~message:"t175.float_u2";
   check_string t176.str0 t_orig176.str0 ~message:"t176.str0";
   check_string t176.str1 t_orig176.str1 ~message:"t176.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t176.i32_2) (Stdlib__Int32_u.to_int32 t_orig176.i32_2) ~message:"t176.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t176.float32_u2) (Beta.Float32_u.to_float32 t_orig176.float32_u2) ~message:"t176.float32_u2";
   check_string t177.str0 t_orig177.str0 ~message:"t177.str0";
   check_string t177.str1 t_orig177.str1 ~message:"t177.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t177.i32_2) (Stdlib__Int32_u.to_int32 t_orig177.i32_2) ~message:"t177.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t177.float32_u2) (Beta.Float32_u.to_float32 t_orig177.float32_u2) ~message:"t177.float32_u2";
   check_int t178.imm0 t_orig178.imm0 ~message:"t178.imm0";
   check_string t178.str1 t_orig178.str1 ~message:"t178.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t178.i64_2) (Stdlib__Int64_u.to_int64 t_orig178.i64_2) ~message:"t178.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t178.i32_2) (Stdlib__Int32_u.to_int32 t_orig178.i32_2) ~message:"t178.i32_2";
   check_int t179.imm0 t_orig179.imm0 ~message:"t179.imm0";
   check_string t179.str1 t_orig179.str1 ~message:"t179.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t179.i64_2) (Stdlib__Int64_u.to_int64 t_orig179.i64_2) ~message:"t179.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t179.i32_2) (Stdlib__Int32_u.to_int32 t_orig179.i32_2) ~message:"t179.i32_2";
   check_float t180.float0 t_orig180.float0 ~message:"t180.float0";
   check_string t180.str1 t_orig180.str1 ~message:"t180.str1";
-  check_int (Stdlib__Nativeint_u.to_int t180.n2) (Stdlib__Nativeint_u.to_int t_orig180.n2) ~message:"t180.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t180.i64_2) (Stdlib__Int64_u.to_int64 t_orig180.i64_2) ~message:"t180.i64_2";
   check_float t181.float0 t_orig181.float0 ~message:"t181.float0";
   check_string t181.str1 t_orig181.str1 ~message:"t181.str1";
-  check_int (Stdlib__Nativeint_u.to_int t181.n2) (Stdlib__Nativeint_u.to_int t_orig181.n2) ~message:"t181.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t181.i64_2) (Stdlib__Int64_u.to_int64 t_orig181.i64_2) ~message:"t181.i64_2";
   check_string t182.str0 t_orig182.str0 ~message:"t182.str0";
   check_string t182.str1 t_orig182.str1 ~message:"t182.str1";
-  check_float (Stdlib__Float_u.to_float t182.float_u2) (Stdlib__Float_u.to_float t_orig182.float_u2) ~message:"t182.float_u2";
-  check_int t182.imm3 t_orig182.imm3 ~message:"t182.imm3";
+  check_int (Stdlib__Nativeint_u.to_int t182.n2) (Stdlib__Nativeint_u.to_int t_orig182.n2) ~message:"t182.n2";
   check_string t183.str0 t_orig183.str0 ~message:"t183.str0";
   check_string t183.str1 t_orig183.str1 ~message:"t183.str1";
-  check_float (Stdlib__Float_u.to_float t183.float_u2) (Stdlib__Float_u.to_float t_orig183.float_u2) ~message:"t183.float_u2";
-  check_int t183.imm3 t_orig183.imm3 ~message:"t183.imm3";
+  check_int (Stdlib__Nativeint_u.to_int t183.n2) (Stdlib__Nativeint_u.to_int t_orig183.n2) ~message:"t183.n2";
   check_float t184.float0 t_orig184.float0 ~message:"t184.float0";
-  check_int32 (Stdlib__Int32_u.to_int32 t184.i32_1) (Stdlib__Int32_u.to_int32 t_orig184.i32_1) ~message:"t184.i32_1";
+  check_float (Stdlib__Float_u.to_float t184.float_u1) (Stdlib__Float_u.to_float t_orig184.float_u1) ~message:"t184.float_u1";
   check_int t184.imm2 t_orig184.imm2 ~message:"t184.imm2";
   check_float t185.float0 t_orig185.float0 ~message:"t185.float0";
-  check_int32 (Stdlib__Int32_u.to_int32 t185.i32_1) (Stdlib__Int32_u.to_int32 t_orig185.i32_1) ~message:"t185.i32_1";
+  check_float (Stdlib__Float_u.to_float t185.float_u1) (Stdlib__Float_u.to_float t_orig185.float_u1) ~message:"t185.float_u1";
   check_int t185.imm2 t_orig185.imm2 ~message:"t185.imm2";
   check_string t186.str0 t_orig186.str0 ~message:"t186.str0";
-  check_int64 (Stdlib__Int64_u.to_int64 t186.i64_1) (Stdlib__Int64_u.to_int64 t_orig186.i64_1) ~message:"t186.i64_1";
+  check_float32 (Beta.Float32_u.to_float32 t186.float32_u1) (Beta.Float32_u.to_float32 t_orig186.float32_u1) ~message:"t186.float32_u1";
   check_int t186.imm2 t_orig186.imm2 ~message:"t186.imm2";
   check_string t187.str0 t_orig187.str0 ~message:"t187.str0";
-  check_int64 (Stdlib__Int64_u.to_int64 t187.i64_1) (Stdlib__Int64_u.to_int64 t_orig187.i64_1) ~message:"t187.i64_1";
+  check_float32 (Beta.Float32_u.to_float32 t187.float32_u1) (Beta.Float32_u.to_float32 t_orig187.float32_u1) ~message:"t187.float32_u1";
   check_int t187.imm2 t_orig187.imm2 ~message:"t187.imm2";
-  check_int (Stdlib__Nativeint_u.to_int t188.n0) (Stdlib__Nativeint_u.to_int t_orig188.n0) ~message:"t188.n0";
+  check_int32 (Stdlib__Int32_u.to_int32 t188.i32_0) (Stdlib__Int32_u.to_int32 t_orig188.i32_0) ~message:"t188.i32_0";
   check_int t188.imm1 t_orig188.imm1 ~message:"t188.imm1";
   check_int t189.imm0 t_orig189.imm0 ~message:"t189.imm0";
   check_string t189.str1 t_orig189.str1 ~message:"t189.str1";
@@ -7914,47 +7906,45 @@ let t_orig599_A = t599_A;;
   check_float (Stdlib__Float_u.to_float t190.float_u2) (Stdlib__Float_u.to_float t_orig190.float_u2) ~message:"t190.float_u2";
   check_float t191.float0 t_orig191.float0 ~message:"t191.float0";
   check_string t191.str1 t_orig191.str1 ~message:"t191.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t191.i32_2) (Stdlib__Int32_u.to_int32 t_orig191.i32_2) ~message:"t191.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t191.float32_u2) (Beta.Float32_u.to_float32 t_orig191.float32_u2) ~message:"t191.float32_u2";
   check_string t192.str0 t_orig192.str0 ~message:"t192.str0";
   check_string t192.str1 t_orig192.str1 ~message:"t192.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t192.i32_2) (Stdlib__Int32_u.to_int32 t_orig192.i32_2) ~message:"t192.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t192.float32_u2) (Beta.Float32_u.to_float32 t_orig192.float32_u2) ~message:"t192.float32_u2";
   check_string t193.str0 t_orig193.str0 ~message:"t193.str0";
   check_string t193.str1 t_orig193.str1 ~message:"t193.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t193.i64_2) (Stdlib__Int64_u.to_int64 t_orig193.i64_2) ~message:"t193.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t193.i32_2) (Stdlib__Int32_u.to_int32 t_orig193.i32_2) ~message:"t193.i32_2";
   check_int t194.imm0 t_orig194.imm0 ~message:"t194.imm0";
   check_string t194.str1 t_orig194.str1 ~message:"t194.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t194.i64_2) (Stdlib__Int64_u.to_int64 t_orig194.i64_2) ~message:"t194.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t194.i32_2) (Stdlib__Int32_u.to_int32 t_orig194.i32_2) ~message:"t194.i32_2";
   check_int t195.imm0 t_orig195.imm0 ~message:"t195.imm0";
   check_string t195.str1 t_orig195.str1 ~message:"t195.str1";
-  check_int (Stdlib__Nativeint_u.to_int t195.n2) (Stdlib__Nativeint_u.to_int t_orig195.n2) ~message:"t195.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t195.i64_2) (Stdlib__Int64_u.to_int64 t_orig195.i64_2) ~message:"t195.i64_2";
   check_float t196.float0 t_orig196.float0 ~message:"t196.float0";
   check_string t196.str1 t_orig196.str1 ~message:"t196.str1";
-  check_int (Stdlib__Nativeint_u.to_int t196.n2) (Stdlib__Nativeint_u.to_int t_orig196.n2) ~message:"t196.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t196.i64_2) (Stdlib__Int64_u.to_int64 t_orig196.i64_2) ~message:"t196.i64_2";
   check_float t197.float0 t_orig197.float0 ~message:"t197.float0";
   check_string t197.str1 t_orig197.str1 ~message:"t197.str1";
-  check_float (Stdlib__Float_u.to_float t197.float_u2) (Stdlib__Float_u.to_float t_orig197.float_u2) ~message:"t197.float_u2";
-  check_int t197.imm3 t_orig197.imm3 ~message:"t197.imm3";
+  check_int (Stdlib__Nativeint_u.to_int t197.n2) (Stdlib__Nativeint_u.to_int t_orig197.n2) ~message:"t197.n2";
   check_string t198.str0 t_orig198.str0 ~message:"t198.str0";
   check_string t198.str1 t_orig198.str1 ~message:"t198.str1";
-  check_float (Stdlib__Float_u.to_float t198.float_u2) (Stdlib__Float_u.to_float t_orig198.float_u2) ~message:"t198.float_u2";
-  check_int t198.imm3 t_orig198.imm3 ~message:"t198.imm3";
+  check_int (Stdlib__Nativeint_u.to_int t198.n2) (Stdlib__Nativeint_u.to_int t_orig198.n2) ~message:"t198.n2";
   check_string t199.str0 t_orig199.str0 ~message:"t199.str0";
   check_string t199.str1 t_orig199.str1 ~message:"t199.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t199.i32_2) (Stdlib__Int32_u.to_int32 t_orig199.i32_2) ~message:"t199.i32_2";
+  check_float (Stdlib__Float_u.to_float t199.float_u2) (Stdlib__Float_u.to_float t_orig199.float_u2) ~message:"t199.float_u2";
   check_int t199.imm3 t_orig199.imm3 ~message:"t199.imm3";
   check_float t200.float0 t_orig200.float0 ~message:"t200.float0";
-  check_int32 (Stdlib__Int32_u.to_int32 t200.i32_1) (Stdlib__Int32_u.to_int32 t_orig200.i32_1) ~message:"t200.i32_1";
+  check_float (Stdlib__Float_u.to_float t200.float_u1) (Stdlib__Float_u.to_float t_orig200.float_u1) ~message:"t200.float_u1";
   check_int t200.imm2 t_orig200.imm2 ~message:"t200.imm2";
   check_float t201.float0 t_orig201.float0 ~message:"t201.float0";
-  check_int64 (Stdlib__Int64_u.to_int64 t201.i64_1) (Stdlib__Int64_u.to_int64 t_orig201.i64_1) ~message:"t201.i64_1";
+  check_float32 (Beta.Float32_u.to_float32 t201.float32_u1) (Beta.Float32_u.to_float32 t_orig201.float32_u1) ~message:"t201.float32_u1";
   check_int t201.imm2 t_orig201.imm2 ~message:"t201.imm2";
   check_string t202.str0 t_orig202.str0 ~message:"t202.str0";
-  check_int64 (Stdlib__Int64_u.to_int64 t202.i64_1) (Stdlib__Int64_u.to_int64 t_orig202.i64_1) ~message:"t202.i64_1";
+  check_float32 (Beta.Float32_u.to_float32 t202.float32_u1) (Beta.Float32_u.to_float32 t_orig202.float32_u1) ~message:"t202.float32_u1";
   check_int t202.imm2 t_orig202.imm2 ~message:"t202.imm2";
   check_string t203.str0 t_orig203.str0 ~message:"t203.str0";
-  check_int (Stdlib__Nativeint_u.to_int t203.n1) (Stdlib__Nativeint_u.to_int t_orig203.n1) ~message:"t203.n1";
+  check_int32 (Stdlib__Int32_u.to_int32 t203.i32_1) (Stdlib__Int32_u.to_int32 t_orig203.i32_1) ~message:"t203.i32_1";
   check_int t203.imm2 t_orig203.imm2 ~message:"t203.imm2";
-  check_int (Stdlib__Nativeint_u.to_int t204.n0) (Stdlib__Nativeint_u.to_int t_orig204.n0) ~message:"t204.n0";
+  check_int32 (Stdlib__Int32_u.to_int32 t204.i32_0) (Stdlib__Int32_u.to_int32 t_orig204.i32_0) ~message:"t204.i32_0";
   check_int t204.imm1 t_orig204.imm1 ~message:"t204.imm1";
   check_int t205.imm0 t_orig205.imm0 ~message:"t205.imm0";
   check_string t205.str1 t_orig205.str1 ~message:"t205.str1";
@@ -7964,51 +7954,49 @@ let t_orig599_A = t599_A;;
   check_float (Stdlib__Float_u.to_float t206.float_u2) (Stdlib__Float_u.to_float t_orig206.float_u2) ~message:"t206.float_u2";
   check_float t207.float0 t_orig207.float0 ~message:"t207.float0";
   check_string t207.str1 t_orig207.str1 ~message:"t207.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t207.i32_2) (Stdlib__Int32_u.to_int32 t_orig207.i32_2) ~message:"t207.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t207.float32_u2) (Beta.Float32_u.to_float32 t_orig207.float32_u2) ~message:"t207.float32_u2";
   check_float t208.float0 t_orig208.float0 ~message:"t208.float0";
   check_string t208.str1 t_orig208.str1 ~message:"t208.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t208.i32_2) (Stdlib__Int32_u.to_int32 t_orig208.i32_2) ~message:"t208.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t208.float32_u2) (Beta.Float32_u.to_float32 t_orig208.float32_u2) ~message:"t208.float32_u2";
   check_string t209.str0 t_orig209.str0 ~message:"t209.str0";
   check_string t209.str1 t_orig209.str1 ~message:"t209.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t209.i64_2) (Stdlib__Int64_u.to_int64 t_orig209.i64_2) ~message:"t209.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t209.i32_2) (Stdlib__Int32_u.to_int32 t_orig209.i32_2) ~message:"t209.i32_2";
   check_string t210.str0 t_orig210.str0 ~message:"t210.str0";
   check_string t210.str1 t_orig210.str1 ~message:"t210.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t210.i64_2) (Stdlib__Int64_u.to_int64 t_orig210.i64_2) ~message:"t210.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t210.i32_2) (Stdlib__Int32_u.to_int32 t_orig210.i32_2) ~message:"t210.i32_2";
   check_int t211.imm0 t_orig211.imm0 ~message:"t211.imm0";
   check_string t211.str1 t_orig211.str1 ~message:"t211.str1";
-  check_int (Stdlib__Nativeint_u.to_int t211.n2) (Stdlib__Nativeint_u.to_int t_orig211.n2) ~message:"t211.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t211.i64_2) (Stdlib__Int64_u.to_int64 t_orig211.i64_2) ~message:"t211.i64_2";
   check_int t212.imm0 t_orig212.imm0 ~message:"t212.imm0";
   check_string t212.str1 t_orig212.str1 ~message:"t212.str1";
-  check_int (Stdlib__Nativeint_u.to_int t212.n2) (Stdlib__Nativeint_u.to_int t_orig212.n2) ~message:"t212.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t212.i64_2) (Stdlib__Int64_u.to_int64 t_orig212.i64_2) ~message:"t212.i64_2";
   check_float t213.float0 t_orig213.float0 ~message:"t213.float0";
   check_string t213.str1 t_orig213.str1 ~message:"t213.str1";
-  check_float (Stdlib__Float_u.to_float t213.float_u2) (Stdlib__Float_u.to_float t_orig213.float_u2) ~message:"t213.float_u2";
-  check_int t213.imm3 t_orig213.imm3 ~message:"t213.imm3";
+  check_int (Stdlib__Nativeint_u.to_int t213.n2) (Stdlib__Nativeint_u.to_int t_orig213.n2) ~message:"t213.n2";
   check_float t214.float0 t_orig214.float0 ~message:"t214.float0";
   check_string t214.str1 t_orig214.str1 ~message:"t214.str1";
-  check_float (Stdlib__Float_u.to_float t214.float_u2) (Stdlib__Float_u.to_float t_orig214.float_u2) ~message:"t214.float_u2";
-  check_int t214.imm3 t_orig214.imm3 ~message:"t214.imm3";
+  check_int (Stdlib__Nativeint_u.to_int t214.n2) (Stdlib__Nativeint_u.to_int t_orig214.n2) ~message:"t214.n2";
   check_string t215.str0 t_orig215.str0 ~message:"t215.str0";
   check_string t215.str1 t_orig215.str1 ~message:"t215.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t215.i32_2) (Stdlib__Int32_u.to_int32 t_orig215.i32_2) ~message:"t215.i32_2";
+  check_float (Stdlib__Float_u.to_float t215.float_u2) (Stdlib__Float_u.to_float t_orig215.float_u2) ~message:"t215.float_u2";
   check_int t215.imm3 t_orig215.imm3 ~message:"t215.imm3";
   check_string t216.str0 t_orig216.str0 ~message:"t216.str0";
   check_string t216.str1 t_orig216.str1 ~message:"t216.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t216.i32_2) (Stdlib__Int32_u.to_int32 t_orig216.i32_2) ~message:"t216.i32_2";
+  check_float (Stdlib__Float_u.to_float t216.float_u2) (Stdlib__Float_u.to_float t_orig216.float_u2) ~message:"t216.float_u2";
   check_int t216.imm3 t_orig216.imm3 ~message:"t216.imm3";
   check_float t217.float0 t_orig217.float0 ~message:"t217.float0";
-  check_int64 (Stdlib__Int64_u.to_int64 t217.i64_1) (Stdlib__Int64_u.to_int64 t_orig217.i64_1) ~message:"t217.i64_1";
+  check_float32 (Beta.Float32_u.to_float32 t217.float32_u1) (Beta.Float32_u.to_float32 t_orig217.float32_u1) ~message:"t217.float32_u1";
   check_int t217.imm2 t_orig217.imm2 ~message:"t217.imm2";
   check_float t218.float0 t_orig218.float0 ~message:"t218.float0";
-  check_int64 (Stdlib__Int64_u.to_int64 t218.i64_1) (Stdlib__Int64_u.to_int64 t_orig218.i64_1) ~message:"t218.i64_1";
+  check_float32 (Beta.Float32_u.to_float32 t218.float32_u1) (Beta.Float32_u.to_float32 t_orig218.float32_u1) ~message:"t218.float32_u1";
   check_int t218.imm2 t_orig218.imm2 ~message:"t218.imm2";
   check_string t219.str0 t_orig219.str0 ~message:"t219.str0";
-  check_int (Stdlib__Nativeint_u.to_int t219.n1) (Stdlib__Nativeint_u.to_int t_orig219.n1) ~message:"t219.n1";
+  check_int32 (Stdlib__Int32_u.to_int32 t219.i32_1) (Stdlib__Int32_u.to_int32 t_orig219.i32_1) ~message:"t219.i32_1";
   check_int t219.imm2 t_orig219.imm2 ~message:"t219.imm2";
   check_string t220.str0 t_orig220.str0 ~message:"t220.str0";
-  check_int (Stdlib__Nativeint_u.to_int t220.n1) (Stdlib__Nativeint_u.to_int t_orig220.n1) ~message:"t220.n1";
+  check_int32 (Stdlib__Int32_u.to_int32 t220.i32_1) (Stdlib__Int32_u.to_int32 t_orig220.i32_1) ~message:"t220.i32_1";
   check_int t220.imm2 t_orig220.imm2 ~message:"t220.imm2";
-  check_float (Stdlib__Float_u.to_float t221.float_u0) (Stdlib__Float_u.to_float t_orig221.float_u0) ~message:"t221.float_u0";
+  check_int64 (Stdlib__Int64_u.to_int64 t221.i64_0) (Stdlib__Int64_u.to_int64 t_orig221.i64_0) ~message:"t221.i64_0";
   check_int t221.imm1 t_orig221.imm1 ~message:"t221.imm1";
   check_string t222.str0 t_orig222.str0 ~message:"t222.str0";
   check_float t222.float1 t_orig222.float1 ~message:"t222.float1";
@@ -8018,55 +8006,53 @@ let t_orig599_A = t599_A;;
   check_float (Stdlib__Float_u.to_float t223.float_u2) (Stdlib__Float_u.to_float t_orig223.float_u2) ~message:"t223.float_u2";
   check_int t224.imm0 t_orig224.imm0 ~message:"t224.imm0";
   check_string t224.str1 t_orig224.str1 ~message:"t224.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t224.i32_2) (Stdlib__Int32_u.to_int32 t_orig224.i32_2) ~message:"t224.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t224.float32_u2) (Beta.Float32_u.to_float32 t_orig224.float32_u2) ~message:"t224.float32_u2";
   check_float t225.float0 t_orig225.float0 ~message:"t225.float0";
   check_string t225.str1 t_orig225.str1 ~message:"t225.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t225.i32_2) (Stdlib__Int32_u.to_int32 t_orig225.i32_2) ~message:"t225.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t225.float32_u2) (Beta.Float32_u.to_float32 t_orig225.float32_u2) ~message:"t225.float32_u2";
   check_float t226.float0 t_orig226.float0 ~message:"t226.float0";
   check_string t226.str1 t_orig226.str1 ~message:"t226.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t226.i64_2) (Stdlib__Int64_u.to_int64 t_orig226.i64_2) ~message:"t226.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t226.i32_2) (Stdlib__Int32_u.to_int32 t_orig226.i32_2) ~message:"t226.i32_2";
   check_string t227.str0 t_orig227.str0 ~message:"t227.str0";
   check_string t227.str1 t_orig227.str1 ~message:"t227.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t227.i64_2) (Stdlib__Int64_u.to_int64 t_orig227.i64_2) ~message:"t227.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t227.i32_2) (Stdlib__Int32_u.to_int32 t_orig227.i32_2) ~message:"t227.i32_2";
   check_string t228.str0 t_orig228.str0 ~message:"t228.str0";
   check_string t228.str1 t_orig228.str1 ~message:"t228.str1";
-  check_int (Stdlib__Nativeint_u.to_int t228.n2) (Stdlib__Nativeint_u.to_int t_orig228.n2) ~message:"t228.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t228.i64_2) (Stdlib__Int64_u.to_int64 t_orig228.i64_2) ~message:"t228.i64_2";
   check_int t229.imm0 t_orig229.imm0 ~message:"t229.imm0";
   check_string t229.str1 t_orig229.str1 ~message:"t229.str1";
-  check_int (Stdlib__Nativeint_u.to_int t229.n2) (Stdlib__Nativeint_u.to_int t_orig229.n2) ~message:"t229.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t229.i64_2) (Stdlib__Int64_u.to_int64 t_orig229.i64_2) ~message:"t229.i64_2";
   check_int t230.imm0 t_orig230.imm0 ~message:"t230.imm0";
   check_string t230.str1 t_orig230.str1 ~message:"t230.str1";
-  check_float (Stdlib__Float_u.to_float t230.float_u2) (Stdlib__Float_u.to_float t_orig230.float_u2) ~message:"t230.float_u2";
-  check_int t230.imm3 t_orig230.imm3 ~message:"t230.imm3";
+  check_int (Stdlib__Nativeint_u.to_int t230.n2) (Stdlib__Nativeint_u.to_int t_orig230.n2) ~message:"t230.n2";
   check_float t231.float0 t_orig231.float0 ~message:"t231.float0";
   check_string t231.str1 t_orig231.str1 ~message:"t231.str1";
-  check_float (Stdlib__Float_u.to_float t231.float_u2) (Stdlib__Float_u.to_float t_orig231.float_u2) ~message:"t231.float_u2";
-  check_int t231.imm3 t_orig231.imm3 ~message:"t231.imm3";
+  check_int (Stdlib__Nativeint_u.to_int t231.n2) (Stdlib__Nativeint_u.to_int t_orig231.n2) ~message:"t231.n2";
   check_float t232.float0 t_orig232.float0 ~message:"t232.float0";
   check_string t232.str1 t_orig232.str1 ~message:"t232.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t232.i32_2) (Stdlib__Int32_u.to_int32 t_orig232.i32_2) ~message:"t232.i32_2";
+  check_float (Stdlib__Float_u.to_float t232.float_u2) (Stdlib__Float_u.to_float t_orig232.float_u2) ~message:"t232.float_u2";
   check_int t232.imm3 t_orig232.imm3 ~message:"t232.imm3";
   check_string t233.str0 t_orig233.str0 ~message:"t233.str0";
   check_string t233.str1 t_orig233.str1 ~message:"t233.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t233.i32_2) (Stdlib__Int32_u.to_int32 t_orig233.i32_2) ~message:"t233.i32_2";
+  check_float (Stdlib__Float_u.to_float t233.float_u2) (Stdlib__Float_u.to_float t_orig233.float_u2) ~message:"t233.float_u2";
   check_int t233.imm3 t_orig233.imm3 ~message:"t233.imm3";
   check_string t234.str0 t_orig234.str0 ~message:"t234.str0";
   check_string t234.str1 t_orig234.str1 ~message:"t234.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t234.i64_2) (Stdlib__Int64_u.to_int64 t_orig234.i64_2) ~message:"t234.i64_2";
+  check_float32 (Beta.Float32_u.to_float32 t234.float32_u2) (Beta.Float32_u.to_float32 t_orig234.float32_u2) ~message:"t234.float32_u2";
   check_int t234.imm3 t_orig234.imm3 ~message:"t234.imm3";
   check_float t235.float0 t_orig235.float0 ~message:"t235.float0";
-  check_int64 (Stdlib__Int64_u.to_int64 t235.i64_1) (Stdlib__Int64_u.to_int64 t_orig235.i64_1) ~message:"t235.i64_1";
+  check_float32 (Beta.Float32_u.to_float32 t235.float32_u1) (Beta.Float32_u.to_float32 t_orig235.float32_u1) ~message:"t235.float32_u1";
   check_int t235.imm2 t_orig235.imm2 ~message:"t235.imm2";
   check_float t236.float0 t_orig236.float0 ~message:"t236.float0";
-  check_int (Stdlib__Nativeint_u.to_int t236.n1) (Stdlib__Nativeint_u.to_int t_orig236.n1) ~message:"t236.n1";
+  check_int32 (Stdlib__Int32_u.to_int32 t236.i32_1) (Stdlib__Int32_u.to_int32 t_orig236.i32_1) ~message:"t236.i32_1";
   check_int t236.imm2 t_orig236.imm2 ~message:"t236.imm2";
   check_string t237.str0 t_orig237.str0 ~message:"t237.str0";
-  check_int (Stdlib__Nativeint_u.to_int t237.n1) (Stdlib__Nativeint_u.to_int t_orig237.n1) ~message:"t237.n1";
+  check_int32 (Stdlib__Int32_u.to_int32 t237.i32_1) (Stdlib__Int32_u.to_int32 t_orig237.i32_1) ~message:"t237.i32_1";
   check_int t237.imm2 t_orig237.imm2 ~message:"t237.imm2";
   check_string t238.str0 t_orig238.str0 ~message:"t238.str0";
-  check_float (Stdlib__Float_u.to_float t238.float_u1) (Stdlib__Float_u.to_float t_orig238.float_u1) ~message:"t238.float_u1";
+  check_int64 (Stdlib__Int64_u.to_int64 t238.i64_1) (Stdlib__Int64_u.to_int64 t_orig238.i64_1) ~message:"t238.i64_1";
   check_int t238.imm2 t_orig238.imm2 ~message:"t238.imm2";
-  check_float (Stdlib__Float_u.to_float t239.float_u0) (Stdlib__Float_u.to_float t_orig239.float_u0) ~message:"t239.float_u0";
+  check_int64 (Stdlib__Int64_u.to_int64 t239.i64_0) (Stdlib__Int64_u.to_int64 t_orig239.i64_0) ~message:"t239.i64_0";
   check_int t239.imm1 t_orig239.imm1 ~message:"t239.imm1";
   check_string t240.str0 t_orig240.str0 ~message:"t240.str0";
   check_float t240.float1 t_orig240.float1 ~message:"t240.float1";
@@ -8076,196 +8062,190 @@ let t_orig599_A = t599_A;;
   check_float (Stdlib__Float_u.to_float t241.float_u2) (Stdlib__Float_u.to_float t_orig241.float_u2) ~message:"t241.float_u2";
   check_int t242.imm0 t_orig242.imm0 ~message:"t242.imm0";
   check_string t242.str1 t_orig242.str1 ~message:"t242.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t242.i32_2) (Stdlib__Int32_u.to_int32 t_orig242.i32_2) ~message:"t242.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t242.float32_u2) (Beta.Float32_u.to_float32 t_orig242.float32_u2) ~message:"t242.float32_u2";
   check_int t243.imm0 t_orig243.imm0 ~message:"t243.imm0";
   check_string t243.str1 t_orig243.str1 ~message:"t243.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t243.i32_2) (Stdlib__Int32_u.to_int32 t_orig243.i32_2) ~message:"t243.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t243.float32_u2) (Beta.Float32_u.to_float32 t_orig243.float32_u2) ~message:"t243.float32_u2";
   check_float t244.float0 t_orig244.float0 ~message:"t244.float0";
   check_string t244.str1 t_orig244.str1 ~message:"t244.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t244.i64_2) (Stdlib__Int64_u.to_int64 t_orig244.i64_2) ~message:"t244.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t244.i32_2) (Stdlib__Int32_u.to_int32 t_orig244.i32_2) ~message:"t244.i32_2";
   check_float t245.float0 t_orig245.float0 ~message:"t245.float0";
   check_string t245.str1 t_orig245.str1 ~message:"t245.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t245.i64_2) (Stdlib__Int64_u.to_int64 t_orig245.i64_2) ~message:"t245.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t245.i32_2) (Stdlib__Int32_u.to_int32 t_orig245.i32_2) ~message:"t245.i32_2";
   check_string t246.str0 t_orig246.str0 ~message:"t246.str0";
   check_string t246.str1 t_orig246.str1 ~message:"t246.str1";
-  check_int (Stdlib__Nativeint_u.to_int t246.n2) (Stdlib__Nativeint_u.to_int t_orig246.n2) ~message:"t246.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t246.i64_2) (Stdlib__Int64_u.to_int64 t_orig246.i64_2) ~message:"t246.i64_2";
   check_string t247.str0 t_orig247.str0 ~message:"t247.str0";
   check_string t247.str1 t_orig247.str1 ~message:"t247.str1";
-  check_int (Stdlib__Nativeint_u.to_int t247.n2) (Stdlib__Nativeint_u.to_int t_orig247.n2) ~message:"t247.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t247.i64_2) (Stdlib__Int64_u.to_int64 t_orig247.i64_2) ~message:"t247.i64_2";
   check_int t248.imm0 t_orig248.imm0 ~message:"t248.imm0";
   check_string t248.str1 t_orig248.str1 ~message:"t248.str1";
-  check_float (Stdlib__Float_u.to_float t248.float_u2) (Stdlib__Float_u.to_float t_orig248.float_u2) ~message:"t248.float_u2";
-  check_int t248.imm3 t_orig248.imm3 ~message:"t248.imm3";
+  check_int (Stdlib__Nativeint_u.to_int t248.n2) (Stdlib__Nativeint_u.to_int t_orig248.n2) ~message:"t248.n2";
   check_int t249.imm0 t_orig249.imm0 ~message:"t249.imm0";
   check_string t249.str1 t_orig249.str1 ~message:"t249.str1";
-  check_float (Stdlib__Float_u.to_float t249.float_u2) (Stdlib__Float_u.to_float t_orig249.float_u2) ~message:"t249.float_u2";
-  check_int t249.imm3 t_orig249.imm3 ~message:"t249.imm3";
+  check_int (Stdlib__Nativeint_u.to_int t249.n2) (Stdlib__Nativeint_u.to_int t_orig249.n2) ~message:"t249.n2";
   check_float t250.float0 t_orig250.float0 ~message:"t250.float0";
   check_string t250.str1 t_orig250.str1 ~message:"t250.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t250.i32_2) (Stdlib__Int32_u.to_int32 t_orig250.i32_2) ~message:"t250.i32_2";
+  check_float (Stdlib__Float_u.to_float t250.float_u2) (Stdlib__Float_u.to_float t_orig250.float_u2) ~message:"t250.float_u2";
   check_int t250.imm3 t_orig250.imm3 ~message:"t250.imm3";
   check_float t251.float0 t_orig251.float0 ~message:"t251.float0";
   check_string t251.str1 t_orig251.str1 ~message:"t251.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t251.i32_2) (Stdlib__Int32_u.to_int32 t_orig251.i32_2) ~message:"t251.i32_2";
+  check_float (Stdlib__Float_u.to_float t251.float_u2) (Stdlib__Float_u.to_float t_orig251.float_u2) ~message:"t251.float_u2";
   check_int t251.imm3 t_orig251.imm3 ~message:"t251.imm3";
   check_string t252.str0 t_orig252.str0 ~message:"t252.str0";
   check_string t252.str1 t_orig252.str1 ~message:"t252.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t252.i64_2) (Stdlib__Int64_u.to_int64 t_orig252.i64_2) ~message:"t252.i64_2";
+  check_float32 (Beta.Float32_u.to_float32 t252.float32_u2) (Beta.Float32_u.to_float32 t_orig252.float32_u2) ~message:"t252.float32_u2";
   check_int t252.imm3 t_orig252.imm3 ~message:"t252.imm3";
   check_string t253.str0 t_orig253.str0 ~message:"t253.str0";
   check_string t253.str1 t_orig253.str1 ~message:"t253.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t253.i64_2) (Stdlib__Int64_u.to_int64 t_orig253.i64_2) ~message:"t253.i64_2";
+  check_float32 (Beta.Float32_u.to_float32 t253.float32_u2) (Beta.Float32_u.to_float32 t_orig253.float32_u2) ~message:"t253.float32_u2";
   check_int t253.imm3 t_orig253.imm3 ~message:"t253.imm3";
   check_float t254.float0 t_orig254.float0 ~message:"t254.float0";
-  check_int (Stdlib__Nativeint_u.to_int t254.n1) (Stdlib__Nativeint_u.to_int t_orig254.n1) ~message:"t254.n1";
+  check_int32 (Stdlib__Int32_u.to_int32 t254.i32_1) (Stdlib__Int32_u.to_int32 t_orig254.i32_1) ~message:"t254.i32_1";
   check_int t254.imm2 t_orig254.imm2 ~message:"t254.imm2";
   check_float t255.float0 t_orig255.float0 ~message:"t255.float0";
-  check_int (Stdlib__Nativeint_u.to_int t255.n1) (Stdlib__Nativeint_u.to_int t_orig255.n1) ~message:"t255.n1";
+  check_int32 (Stdlib__Int32_u.to_int32 t255.i32_1) (Stdlib__Int32_u.to_int32 t_orig255.i32_1) ~message:"t255.i32_1";
   check_int t255.imm2 t_orig255.imm2 ~message:"t255.imm2";
   check_string t256.str0 t_orig256.str0 ~message:"t256.str0";
-  check_float (Stdlib__Float_u.to_float t256.float_u1) (Stdlib__Float_u.to_float t_orig256.float_u1) ~message:"t256.float_u1";
+  check_int64 (Stdlib__Int64_u.to_int64 t256.i64_1) (Stdlib__Int64_u.to_int64 t_orig256.i64_1) ~message:"t256.i64_1";
   check_int t256.imm2 t_orig256.imm2 ~message:"t256.imm2";
   check_string t257.str0 t_orig257.str0 ~message:"t257.str0";
-  check_float (Stdlib__Float_u.to_float t257.float_u1) (Stdlib__Float_u.to_float t_orig257.float_u1) ~message:"t257.float_u1";
+  check_int64 (Stdlib__Int64_u.to_int64 t257.i64_1) (Stdlib__Int64_u.to_int64 t_orig257.i64_1) ~message:"t257.i64_1";
   check_int t257.imm2 t_orig257.imm2 ~message:"t257.imm2";
-  check_int32 (Stdlib__Int32_u.to_int32 t258.i32_0) (Stdlib__Int32_u.to_int32 t_orig258.i32_0) ~message:"t258.i32_0";
+  check_int (Stdlib__Nativeint_u.to_int t258.n0) (Stdlib__Nativeint_u.to_int t_orig258.n0) ~message:"t258.n0";
   check_int t258.imm1 t_orig258.imm1 ~message:"t258.imm1";
   check_string t259.str0 t_orig259.str0 ~message:"t259.str0";
   check_float t259.float1 t_orig259.float1 ~message:"t259.float1";
   check_float (Stdlib__Float_u.to_float t259.float_u2) (Stdlib__Float_u.to_float t_orig259.float_u2) ~message:"t259.float_u2";
   check_string t260.str0 t_orig260.str0 ~message:"t260.str0";
   check_float t260.float1 t_orig260.float1 ~message:"t260.float1";
-  check_int32 (Stdlib__Int32_u.to_int32 t260.i32_2) (Stdlib__Int32_u.to_int32 t_orig260.i32_2) ~message:"t260.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t260.float32_u2) (Beta.Float32_u.to_float32 t_orig260.float32_u2) ~message:"t260.float32_u2";
   check_int t261.imm0 t_orig261.imm0 ~message:"t261.imm0";
   check_string t261.str1 t_orig261.str1 ~message:"t261.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t261.i32_2) (Stdlib__Int32_u.to_int32 t_orig261.i32_2) ~message:"t261.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t261.float32_u2) (Beta.Float32_u.to_float32 t_orig261.float32_u2) ~message:"t261.float32_u2";
   check_int t262.imm0 t_orig262.imm0 ~message:"t262.imm0";
   check_string t262.str1 t_orig262.str1 ~message:"t262.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t262.i64_2) (Stdlib__Int64_u.to_int64 t_orig262.i64_2) ~message:"t262.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t262.i32_2) (Stdlib__Int32_u.to_int32 t_orig262.i32_2) ~message:"t262.i32_2";
   check_float t263.float0 t_orig263.float0 ~message:"t263.float0";
   check_string t263.str1 t_orig263.str1 ~message:"t263.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t263.i64_2) (Stdlib__Int64_u.to_int64 t_orig263.i64_2) ~message:"t263.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t263.i32_2) (Stdlib__Int32_u.to_int32 t_orig263.i32_2) ~message:"t263.i32_2";
   check_float t264.float0 t_orig264.float0 ~message:"t264.float0";
   check_string t264.str1 t_orig264.str1 ~message:"t264.str1";
-  check_int (Stdlib__Nativeint_u.to_int t264.n2) (Stdlib__Nativeint_u.to_int t_orig264.n2) ~message:"t264.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t264.i64_2) (Stdlib__Int64_u.to_int64 t_orig264.i64_2) ~message:"t264.i64_2";
   check_string t265.str0 t_orig265.str0 ~message:"t265.str0";
   check_string t265.str1 t_orig265.str1 ~message:"t265.str1";
-  check_int (Stdlib__Nativeint_u.to_int t265.n2) (Stdlib__Nativeint_u.to_int t_orig265.n2) ~message:"t265.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t265.i64_2) (Stdlib__Int64_u.to_int64 t_orig265.i64_2) ~message:"t265.i64_2";
   check_string t266.str0 t_orig266.str0 ~message:"t266.str0";
   check_string t266.str1 t_orig266.str1 ~message:"t266.str1";
-  check_float (Stdlib__Float_u.to_float t266.float_u2) (Stdlib__Float_u.to_float t_orig266.float_u2) ~message:"t266.float_u2";
-  check_int t266.imm3 t_orig266.imm3 ~message:"t266.imm3";
+  check_int (Stdlib__Nativeint_u.to_int t266.n2) (Stdlib__Nativeint_u.to_int t_orig266.n2) ~message:"t266.n2";
   check_int t267.imm0 t_orig267.imm0 ~message:"t267.imm0";
   check_string t267.str1 t_orig267.str1 ~message:"t267.str1";
-  check_float (Stdlib__Float_u.to_float t267.float_u2) (Stdlib__Float_u.to_float t_orig267.float_u2) ~message:"t267.float_u2";
-  check_int t267.imm3 t_orig267.imm3 ~message:"t267.imm3";
+  check_int (Stdlib__Nativeint_u.to_int t267.n2) (Stdlib__Nativeint_u.to_int t_orig267.n2) ~message:"t267.n2";
   check_int t268.imm0 t_orig268.imm0 ~message:"t268.imm0";
   check_string t268.str1 t_orig268.str1 ~message:"t268.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t268.i32_2) (Stdlib__Int32_u.to_int32 t_orig268.i32_2) ~message:"t268.i32_2";
+  check_float (Stdlib__Float_u.to_float t268.float_u2) (Stdlib__Float_u.to_float t_orig268.float_u2) ~message:"t268.float_u2";
   check_int t268.imm3 t_orig268.imm3 ~message:"t268.imm3";
   check_float t269.float0 t_orig269.float0 ~message:"t269.float0";
   check_string t269.str1 t_orig269.str1 ~message:"t269.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t269.i32_2) (Stdlib__Int32_u.to_int32 t_orig269.i32_2) ~message:"t269.i32_2";
+  check_float (Stdlib__Float_u.to_float t269.float_u2) (Stdlib__Float_u.to_float t_orig269.float_u2) ~message:"t269.float_u2";
   check_int t269.imm3 t_orig269.imm3 ~message:"t269.imm3";
   check_float t270.float0 t_orig270.float0 ~message:"t270.float0";
   check_string t270.str1 t_orig270.str1 ~message:"t270.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t270.i64_2) (Stdlib__Int64_u.to_int64 t_orig270.i64_2) ~message:"t270.i64_2";
+  check_float32 (Beta.Float32_u.to_float32 t270.float32_u2) (Beta.Float32_u.to_float32 t_orig270.float32_u2) ~message:"t270.float32_u2";
   check_int t270.imm3 t_orig270.imm3 ~message:"t270.imm3";
   check_string t271.str0 t_orig271.str0 ~message:"t271.str0";
   check_string t271.str1 t_orig271.str1 ~message:"t271.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t271.i64_2) (Stdlib__Int64_u.to_int64 t_orig271.i64_2) ~message:"t271.i64_2";
+  check_float32 (Beta.Float32_u.to_float32 t271.float32_u2) (Beta.Float32_u.to_float32 t_orig271.float32_u2) ~message:"t271.float32_u2";
   check_int t271.imm3 t_orig271.imm3 ~message:"t271.imm3";
   check_string t272.str0 t_orig272.str0 ~message:"t272.str0";
   check_string t272.str1 t_orig272.str1 ~message:"t272.str1";
-  check_int (Stdlib__Nativeint_u.to_int t272.n2) (Stdlib__Nativeint_u.to_int t_orig272.n2) ~message:"t272.n2";
+  check_int32 (Stdlib__Int32_u.to_int32 t272.i32_2) (Stdlib__Int32_u.to_int32 t_orig272.i32_2) ~message:"t272.i32_2";
   check_int t272.imm3 t_orig272.imm3 ~message:"t272.imm3";
   check_float t273.float0 t_orig273.float0 ~message:"t273.float0";
-  check_int (Stdlib__Nativeint_u.to_int t273.n1) (Stdlib__Nativeint_u.to_int t_orig273.n1) ~message:"t273.n1";
+  check_int32 (Stdlib__Int32_u.to_int32 t273.i32_1) (Stdlib__Int32_u.to_int32 t_orig273.i32_1) ~message:"t273.i32_1";
   check_int t273.imm2 t_orig273.imm2 ~message:"t273.imm2";
   check_float t274.float0 t_orig274.float0 ~message:"t274.float0";
-  check_float (Stdlib__Float_u.to_float t274.float_u1) (Stdlib__Float_u.to_float t_orig274.float_u1) ~message:"t274.float_u1";
+  check_int64 (Stdlib__Int64_u.to_int64 t274.i64_1) (Stdlib__Int64_u.to_int64 t_orig274.i64_1) ~message:"t274.i64_1";
   check_int t274.imm2 t_orig274.imm2 ~message:"t274.imm2";
   check_string t275.str0 t_orig275.str0 ~message:"t275.str0";
-  check_float (Stdlib__Float_u.to_float t275.float_u1) (Stdlib__Float_u.to_float t_orig275.float_u1) ~message:"t275.float_u1";
+  check_int64 (Stdlib__Int64_u.to_int64 t275.i64_1) (Stdlib__Int64_u.to_int64 t_orig275.i64_1) ~message:"t275.i64_1";
   check_int t275.imm2 t_orig275.imm2 ~message:"t275.imm2";
   check_string t276.str0 t_orig276.str0 ~message:"t276.str0";
-  check_int32 (Stdlib__Int32_u.to_int32 t276.i32_1) (Stdlib__Int32_u.to_int32 t_orig276.i32_1) ~message:"t276.i32_1";
+  check_int (Stdlib__Nativeint_u.to_int t276.n1) (Stdlib__Nativeint_u.to_int t_orig276.n1) ~message:"t276.n1";
   check_int t276.imm2 t_orig276.imm2 ~message:"t276.imm2";
-  check_int32 (Stdlib__Int32_u.to_int32 t277.i32_0) (Stdlib__Int32_u.to_int32 t_orig277.i32_0) ~message:"t277.i32_0";
+  check_int (Stdlib__Nativeint_u.to_int t277.n0) (Stdlib__Nativeint_u.to_int t_orig277.n0) ~message:"t277.n0";
   check_int t277.imm1 t_orig277.imm1 ~message:"t277.imm1";
   check_string t278.str0 t_orig278.str0 ~message:"t278.str0";
   check_float t278.float1 t_orig278.float1 ~message:"t278.float1";
-  check_int32 (Stdlib__Int32_u.to_int32 t278.i32_2) (Stdlib__Int32_u.to_int32 t_orig278.i32_2) ~message:"t278.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t278.float32_u2) (Beta.Float32_u.to_float32 t_orig278.float32_u2) ~message:"t278.float32_u2";
   check_string t279.str0 t_orig279.str0 ~message:"t279.str0";
   check_float t279.float1 t_orig279.float1 ~message:"t279.float1";
-  check_int32 (Stdlib__Int32_u.to_int32 t279.i32_2) (Stdlib__Int32_u.to_int32 t_orig279.i32_2) ~message:"t279.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t279.float32_u2) (Beta.Float32_u.to_float32 t_orig279.float32_u2) ~message:"t279.float32_u2";
   check_int t280.imm0 t_orig280.imm0 ~message:"t280.imm0";
   check_string t280.str1 t_orig280.str1 ~message:"t280.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t280.i64_2) (Stdlib__Int64_u.to_int64 t_orig280.i64_2) ~message:"t280.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t280.i32_2) (Stdlib__Int32_u.to_int32 t_orig280.i32_2) ~message:"t280.i32_2";
   check_int t281.imm0 t_orig281.imm0 ~message:"t281.imm0";
   check_string t281.str1 t_orig281.str1 ~message:"t281.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t281.i64_2) (Stdlib__Int64_u.to_int64 t_orig281.i64_2) ~message:"t281.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t281.i32_2) (Stdlib__Int32_u.to_int32 t_orig281.i32_2) ~message:"t281.i32_2";
   check_float t282.float0 t_orig282.float0 ~message:"t282.float0";
   check_string t282.str1 t_orig282.str1 ~message:"t282.str1";
-  check_int (Stdlib__Nativeint_u.to_int t282.n2) (Stdlib__Nativeint_u.to_int t_orig282.n2) ~message:"t282.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t282.i64_2) (Stdlib__Int64_u.to_int64 t_orig282.i64_2) ~message:"t282.i64_2";
   check_float t283.float0 t_orig283.float0 ~message:"t283.float0";
   check_string t283.str1 t_orig283.str1 ~message:"t283.str1";
-  check_int (Stdlib__Nativeint_u.to_int t283.n2) (Stdlib__Nativeint_u.to_int t_orig283.n2) ~message:"t283.n2";
+  check_int64 (Stdlib__Int64_u.to_int64 t283.i64_2) (Stdlib__Int64_u.to_int64 t_orig283.i64_2) ~message:"t283.i64_2";
   check_string t284.str0 t_orig284.str0 ~message:"t284.str0";
   check_string t284.str1 t_orig284.str1 ~message:"t284.str1";
-  check_float (Stdlib__Float_u.to_float t284.float_u2) (Stdlib__Float_u.to_float t_orig284.float_u2) ~message:"t284.float_u2";
-  check_int t284.imm3 t_orig284.imm3 ~message:"t284.imm3";
+  check_int (Stdlib__Nativeint_u.to_int t284.n2) (Stdlib__Nativeint_u.to_int t_orig284.n2) ~message:"t284.n2";
   check_string t285.str0 t_orig285.str0 ~message:"t285.str0";
   check_string t285.str1 t_orig285.str1 ~message:"t285.str1";
-  check_float (Stdlib__Float_u.to_float t285.float_u2) (Stdlib__Float_u.to_float t_orig285.float_u2) ~message:"t285.float_u2";
-  check_int t285.imm3 t_orig285.imm3 ~message:"t285.imm3";
+  check_int (Stdlib__Nativeint_u.to_int t285.n2) (Stdlib__Nativeint_u.to_int t_orig285.n2) ~message:"t285.n2";
   check_int t286.imm0 t_orig286.imm0 ~message:"t286.imm0";
   check_string t286.str1 t_orig286.str1 ~message:"t286.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t286.i32_2) (Stdlib__Int32_u.to_int32 t_orig286.i32_2) ~message:"t286.i32_2";
+  check_float (Stdlib__Float_u.to_float t286.float_u2) (Stdlib__Float_u.to_float t_orig286.float_u2) ~message:"t286.float_u2";
   check_int t286.imm3 t_orig286.imm3 ~message:"t286.imm3";
   check_int t287.imm0 t_orig287.imm0 ~message:"t287.imm0";
   check_string t287.str1 t_orig287.str1 ~message:"t287.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t287.i32_2) (Stdlib__Int32_u.to_int32 t_orig287.i32_2) ~message:"t287.i32_2";
+  check_float (Stdlib__Float_u.to_float t287.float_u2) (Stdlib__Float_u.to_float t_orig287.float_u2) ~message:"t287.float_u2";
   check_int t287.imm3 t_orig287.imm3 ~message:"t287.imm3";
   check_float t288.float0 t_orig288.float0 ~message:"t288.float0";
   check_string t288.str1 t_orig288.str1 ~message:"t288.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t288.i64_2) (Stdlib__Int64_u.to_int64 t_orig288.i64_2) ~message:"t288.i64_2";
+  check_float32 (Beta.Float32_u.to_float32 t288.float32_u2) (Beta.Float32_u.to_float32 t_orig288.float32_u2) ~message:"t288.float32_u2";
   check_int t288.imm3 t_orig288.imm3 ~message:"t288.imm3";
   check_float t289.float0 t_orig289.float0 ~message:"t289.float0";
   check_string t289.str1 t_orig289.str1 ~message:"t289.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t289.i64_2) (Stdlib__Int64_u.to_int64 t_orig289.i64_2) ~message:"t289.i64_2";
+  check_float32 (Beta.Float32_u.to_float32 t289.float32_u2) (Beta.Float32_u.to_float32 t_orig289.float32_u2) ~message:"t289.float32_u2";
   check_int t289.imm3 t_orig289.imm3 ~message:"t289.imm3";
   check_string t290.str0 t_orig290.str0 ~message:"t290.str0";
   check_string t290.str1 t_orig290.str1 ~message:"t290.str1";
-  check_int (Stdlib__Nativeint_u.to_int t290.n2) (Stdlib__Nativeint_u.to_int t_orig290.n2) ~message:"t290.n2";
+  check_int32 (Stdlib__Int32_u.to_int32 t290.i32_2) (Stdlib__Int32_u.to_int32 t_orig290.i32_2) ~message:"t290.i32_2";
   check_int t290.imm3 t_orig290.imm3 ~message:"t290.imm3";
   check_string t291.str0 t_orig291.str0 ~message:"t291.str0";
   check_string t291.str1 t_orig291.str1 ~message:"t291.str1";
-  check_int (Stdlib__Nativeint_u.to_int t291.n2) (Stdlib__Nativeint_u.to_int t_orig291.n2) ~message:"t291.n2";
+  check_int32 (Stdlib__Int32_u.to_int32 t291.i32_2) (Stdlib__Int32_u.to_int32 t_orig291.i32_2) ~message:"t291.i32_2";
   check_int t291.imm3 t_orig291.imm3 ~message:"t291.imm3";
   check_float t292.float0 t_orig292.float0 ~message:"t292.float0";
-  check_float (Stdlib__Float_u.to_float t292.float_u1) (Stdlib__Float_u.to_float t_orig292.float_u1) ~message:"t292.float_u1";
+  check_int64 (Stdlib__Int64_u.to_int64 t292.i64_1) (Stdlib__Int64_u.to_int64 t_orig292.i64_1) ~message:"t292.i64_1";
   check_int t292.imm2 t_orig292.imm2 ~message:"t292.imm2";
   check_float t293.float0 t_orig293.float0 ~message:"t293.float0";
-  check_float (Stdlib__Float_u.to_float t293.float_u1) (Stdlib__Float_u.to_float t_orig293.float_u1) ~message:"t293.float_u1";
+  check_int64 (Stdlib__Int64_u.to_int64 t293.i64_1) (Stdlib__Int64_u.to_int64 t_orig293.i64_1) ~message:"t293.i64_1";
   check_int t293.imm2 t_orig293.imm2 ~message:"t293.imm2";
   check_string t294.str0 t_orig294.str0 ~message:"t294.str0";
-  check_int32 (Stdlib__Int32_u.to_int32 t294.i32_1) (Stdlib__Int32_u.to_int32 t_orig294.i32_1) ~message:"t294.i32_1";
+  check_int (Stdlib__Nativeint_u.to_int t294.n1) (Stdlib__Nativeint_u.to_int t_orig294.n1) ~message:"t294.n1";
   check_int t294.imm2 t_orig294.imm2 ~message:"t294.imm2";
   check_string t295.str0 t_orig295.str0 ~message:"t295.str0";
-  check_int32 (Stdlib__Int32_u.to_int32 t295.i32_1) (Stdlib__Int32_u.to_int32 t_orig295.i32_1) ~message:"t295.i32_1";
+  check_int (Stdlib__Nativeint_u.to_int t295.n1) (Stdlib__Nativeint_u.to_int t_orig295.n1) ~message:"t295.n1";
   check_int t295.imm2 t_orig295.imm2 ~message:"t295.imm2";
-  check_int64 (Stdlib__Int64_u.to_int64 t296.i64_0) (Stdlib__Int64_u.to_int64 t_orig296.i64_0) ~message:"t296.i64_0";
+  check_float (Stdlib__Float_u.to_float t296.float_u0) (Stdlib__Float_u.to_float t_orig296.float_u0) ~message:"t296.float_u0";
   check_int t296.imm1 t_orig296.imm1 ~message:"t296.imm1";
   check_int t297.imm0 t_orig297.imm0 ~message:"t297.imm0";
   check_float t297.float1 t_orig297.float1 ~message:"t297.float1";
   check_float (Stdlib__Float_u.to_float t297.float_u2) (Stdlib__Float_u.to_float t_orig297.float_u2) ~message:"t297.float_u2";
   check_float t298.float0 t_orig298.float0 ~message:"t298.float0";
   check_float t298.float1 t_orig298.float1 ~message:"t298.float1";
-  check_int32 (Stdlib__Int32_u.to_int32 t298.i32_2) (Stdlib__Int32_u.to_int32 t_orig298.i32_2) ~message:"t298.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t298.float32_u2) (Beta.Float32_u.to_float32 t_orig298.float32_u2) ~message:"t298.float32_u2";
   check_string t299.str0 t_orig299.str0 ~message:"t299.str0";
   check_float t299.float1 t_orig299.float1 ~message:"t299.float1";
-  check_int32 (Stdlib__Int32_u.to_int32 t299.i32_2) (Stdlib__Int32_u.to_int32 t_orig299.i32_2) ~message:"t299.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t299.float32_u2) (Beta.Float32_u.to_float32 t_orig299.float32_u2) ~message:"t299.float32_u2";
   let () = match t300_A, t_orig300_A with
       | A (a0), A (b0) -> check_float (Stdlib__Float_u.to_float a0) (Stdlib__Float_u.to_float b0) ~message:"t300_A.0";
       
@@ -8305,7 +8285,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t305_A, t_orig305_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t305_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t305_A.0";
       
     in
   let () = match t306_A, t_orig306_A with
@@ -8331,7 +8311,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t308_A, t_orig308_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t308_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t308_A.0";
       | _ -> assert false
     in
   let () = match t308_B, t_orig308_B with
@@ -8370,7 +8350,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t312_A, t_orig312_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t312_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t312_A.0";
       | _ -> assert false
     in
   let () = match t312_B, t_orig312_B with
@@ -8392,7 +8372,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t314_A, t_orig314_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t314_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t314_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t314_A.1";
       
     in
   let () = match t315_A, t_orig315_A with
@@ -8426,7 +8406,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t317_A, t_orig317_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t317_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t317_A.0";
       | _ -> assert false
     in
   let () = match t317_B, t_orig317_B with
@@ -8449,7 +8429,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t319_A, t_orig319_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t319_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t319_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t319_A.1";
       | _ -> assert false
     in
   let () = match t319_B, t_orig319_B with
@@ -8457,7 +8437,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
       | _ -> assert false
     in
   let () = match t320_A, t_orig320_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t320_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t320_A.0";
       
     in
   let () = match t321_A, t_orig321_A with
@@ -8465,7 +8445,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
       | _ -> assert false
     in
   let () = match t321_B, t_orig321_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t321_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t321_B.0";
       | _ -> assert false
     in
   let () = match t322_A, t_orig322_A with
@@ -8483,7 +8463,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t323_A, t_orig323_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t323_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t323_A.0";
       | _ -> assert false
     in
   let () = match t323_B, t_orig323_B with
@@ -8510,7 +8490,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t325_A, t_orig325_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t325_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t325_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t325_A.1";
       | _ -> assert false
     in
   let () = match t325_B, t_orig325_B with
@@ -8522,7 +8502,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
       | _ -> assert false
     in
   let () = match t326_A, t_orig326_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t326_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t326_A.0";
       | _ -> assert false
     in
   let () = match t326_B, t_orig326_B with
@@ -8554,11 +8534,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t329_B, t_orig329_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t329_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t329_B.0";
       | _ -> assert false
     in
   let () = match t330_A, t_orig330_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t330_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t330_A.0";
       | _ -> assert false
     in
   let () = match t330_B, t_orig330_B with
@@ -8589,7 +8569,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t332_A, t_orig332_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t332_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t332_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t332_A.1";
       | _ -> assert false
     in
   let () = match t332_B, t_orig332_B with
@@ -8598,7 +8578,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t333_A, t_orig333_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t333_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t333_A.0";
       | _ -> assert false
     in
   let () = match t333_B, t_orig333_B with
@@ -8621,7 +8601,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
     in
   let () = match t335_A, t_orig335_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t335_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t335_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t335_A.1";
       
     in
   let () = match t336_A, t_orig336_A with
@@ -8656,11 +8636,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t338_A, t_orig338_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t338_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t338_A.0";
       | _ -> assert false
     in
   let () = match t338_B, t_orig338_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t338_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t338_B.0";
       | _ -> assert false
     in
   let () = match t339_A, t_orig339_A with
@@ -8679,7 +8659,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t340_A, t_orig340_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t340_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t340_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t340_A.1";
       | _ -> assert false
     in
   let () = match t340_B, t_orig340_B with
@@ -8695,7 +8675,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
       | _ -> assert false
     in
   let () = match t341_A, t_orig341_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t341_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t341_A.0";
       | _ -> assert false
     in
   let () = match t341_B, t_orig341_B with
@@ -8719,7 +8699,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
     in
   let () = match t343_A, t_orig343_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t343_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t343_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t343_A.1";
       | _ -> assert false
     in
   let () = match t343_B, t_orig343_B with
@@ -8728,7 +8708,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
     in
   let () = match t344_A, t_orig344_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t344_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t344_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t344_A.1";
       
     in
   let () = match t345_A, t_orig345_A with
@@ -8736,7 +8716,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message
       | _ -> assert false
     in
   let () = match t345_B, t_orig345_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t345_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t345_B.0";
       | _ -> assert false
     in
   let () = match t345_C, t_orig345_C with
@@ -8762,7 +8742,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t347_A, t_orig347_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t347_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t347_A.0";
       | _ -> assert false
     in
   let () = match t347_B, t_orig347_B with
@@ -8780,12 +8760,12 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t348_B, t_orig348_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t348_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t348_B.0";
       | _ -> assert false
     in
   let () = match t349_A, t_orig349_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t349_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t349_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t349_A.1";
       | _ -> assert false
     in
   let () = match t349_B, t_orig349_B with
@@ -8798,7 +8778,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t350_A, t_orig350_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t350_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t350_A.0";
       | _ -> assert false
     in
   let () = match t350_B, t_orig350_B with
@@ -8826,7 +8806,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t352_A, t_orig352_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t352_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t352_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t352_A.1";
       | _ -> assert false
     in
   let () = match t352_B, t_orig352_B with
@@ -8839,7 +8819,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
     in
   let () = match t353_A, t_orig353_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t353_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t353_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t353_A.1";
       | _ -> assert false
     in
   let () = match t353_B, t_orig353_B with
@@ -8847,7 +8827,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message
       | _ -> assert false
     in
   let () = match t354_A, t_orig354_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t354_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t354_A.0";
       
     in
   let () = match t355_A, t_orig355_A with
@@ -8865,7 +8845,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t356_B, t_orig356_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t356_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t356_B.0";
       | _ -> assert false
     in
   let () = match t356_C, t_orig356_C with
@@ -8873,7 +8853,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t357_A, t_orig357_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t357_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t357_A.0";
       | _ -> assert false
     in
   let () = match t357_B, t_orig357_B with
@@ -8905,15 +8885,15 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t359_A, t_orig359_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t359_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t359_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t359_A.1";
       | _ -> assert false
     in
   let () = match t359_B, t_orig359_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t359_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t359_B.0";
       | _ -> assert false
     in
   let () = match t360_A, t_orig360_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t360_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t360_A.0";
       | _ -> assert false
     in
   let () = match t360_B, t_orig360_B with
@@ -8945,7 +8925,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
     in
   let () = match t362_A, t_orig362_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t362_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t362_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t362_A.1";
       | _ -> assert false
     in
   let () = match t362_B, t_orig362_B with
@@ -8955,7 +8935,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t363_A, t_orig363_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t363_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t363_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t363_A.1";
       | _ -> assert false
     in
   let () = match t363_B, t_orig363_B with
@@ -8967,7 +8947,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message
       | _ -> assert false
     in
   let () = match t364_A, t_orig364_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t364_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t364_A.0";
       | _ -> assert false
     in
   let () = match t364_B, t_orig364_B with
@@ -9011,11 +8991,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t368_A, t_orig368_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t368_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t368_A.0";
       | _ -> assert false
     in
   let () = match t368_B, t_orig368_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t368_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t368_B.0";
       | _ -> assert false
     in
   let () = match t368_C, t_orig368_C with
@@ -9042,7 +9022,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t370_A, t_orig370_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t370_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t370_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t370_A.1";
       | _ -> assert false
     in
   let () = match t370_B, t_orig370_B with
@@ -9055,11 +9035,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t371_A, t_orig371_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t371_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t371_A.0";
       | _ -> assert false
     in
   let () = match t371_B, t_orig371_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t371_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t371_B.0";
       | _ -> assert false
     in
   let () = match t372_A, t_orig372_A with
@@ -9079,7 +9059,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t373_A, t_orig373_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t373_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t373_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t373_A.1";
       | _ -> assert false
     in
   let () = match t373_B, t_orig373_B with
@@ -9096,7 +9076,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
     in
   let () = match t374_A, t_orig374_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t374_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t374_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t374_A.1";
       | _ -> assert false
     in
   let () = match t374_B, t_orig374_B with
@@ -9105,7 +9085,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t375_A, t_orig375_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t375_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t375_A.0";
       | _ -> assert false
     in
   let () = match t375_B, t_orig375_B with
@@ -9129,7 +9109,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
   let () = match t377_A, t_orig377_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t377_A.0";
 check_string a1 b1 ~message:"t377_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t377_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t377_A.2";
       
     in
   let () = match t378_A, t_orig378_A with
@@ -9168,7 +9148,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t380_A, t_orig380_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t380_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t380_A.0";
       | _ -> assert false
     in
   let () = match t380_B, t_orig380_B with
@@ -9182,7 +9162,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t381_B, t_orig381_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t381_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t381_B.0";
       | _ -> assert false
     in
   let () = match t381_C, t_orig381_C with
@@ -9191,7 +9171,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t382_A, t_orig382_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t382_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t382_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t382_A.1";
       | _ -> assert false
     in
   let () = match t382_B, t_orig382_B with
@@ -9208,7 +9188,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t383_A, t_orig383_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t383_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t383_A.0";
       | _ -> assert false
     in
   let () = match t383_B, t_orig383_B with
@@ -9227,12 +9207,12 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
       | _ -> assert false
     in
   let () = match t384_B, t_orig384_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t384_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t384_B.0";
       | _ -> assert false
     in
   let () = match t385_A, t_orig385_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t385_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t385_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t385_A.1";
       | _ -> assert false
     in
   let () = match t385_B, t_orig385_B with
@@ -9246,7 +9226,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t386_A, t_orig386_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t386_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t386_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t386_A.1";
       | _ -> assert false
     in
   let () = match t386_B, t_orig386_B with
@@ -9262,7 +9242,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message
       | _ -> assert false
     in
   let () = match t387_A, t_orig387_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t387_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t387_A.0";
       | _ -> assert false
     in
   let () = match t387_B, t_orig387_B with
@@ -9287,7 +9267,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
   let () = match t389_A, t_orig389_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t389_A.0";
 check_string a1 b1 ~message:"t389_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t389_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t389_A.2";
       | _ -> assert false
     in
   let () = match t389_B, t_orig389_B with
@@ -9296,7 +9276,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message
     in
   let () = match t390_A, t_orig390_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t390_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t390_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t390_A.1";
       
     in
   let () = match t391_A, t_orig391_A with
@@ -9304,7 +9284,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message
       | _ -> assert false
     in
   let () = match t391_B, t_orig391_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t391_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t391_B.0";
       | _ -> assert false
     in
   let () = match t391_C, t_orig391_C with
@@ -9331,7 +9311,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t393_A, t_orig393_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t393_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t393_A.0";
       | _ -> assert false
     in
   let () = match t393_B, t_orig393_B with
@@ -9362,11 +9342,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t395_A, t_orig395_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t395_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t395_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t395_A.1";
       | _ -> assert false
     in
   let () = match t395_B, t_orig395_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t395_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t395_B.0";
       | _ -> assert false
     in
   let () = match t395_C, t_orig395_C with
@@ -9374,7 +9354,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
       | _ -> assert false
     in
   let () = match t396_A, t_orig396_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t396_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t396_A.0";
       | _ -> assert false
     in
   let () = match t396_B, t_orig396_B with
@@ -9407,16 +9387,16 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t398_A, t_orig398_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t398_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t398_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t398_A.1";
       | _ -> assert false
     in
   let () = match t398_B, t_orig398_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t398_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t398_B.0";
       | _ -> assert false
     in
   let () = match t399_A, t_orig399_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t399_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t399_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t399_A.1";
       | _ -> assert false
     in
   let () = match t399_B, t_orig399_B with
@@ -9429,7 +9409,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t400_A, t_orig400_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t400_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t400_A.0";
       | _ -> assert false
     in
   let () = match t400_B, t_orig400_B with
@@ -9458,7 +9438,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
   let () = match t402_A, t_orig402_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t402_A.0";
 check_string a1 b1 ~message:"t402_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t402_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t402_A.2";
       | _ -> assert false
     in
   let () = match t402_B, t_orig402_B with
@@ -9471,7 +9451,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message
     in
   let () = match t403_A, t_orig403_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t403_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t403_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t403_A.1";
       | _ -> assert false
     in
   let () = match t403_B, t_orig403_B with
@@ -9480,7 +9460,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message
     in
   let () = match t404_A, t_orig404_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t404_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t404_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t404_A.1";
       
     in
   let () = match t405_A, t_orig405_A with
@@ -9502,7 +9482,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t406_B, t_orig406_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t406_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t406_B.0";
       | _ -> assert false
     in
   let () = match t406_C, t_orig406_C with
@@ -9514,7 +9494,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t407_A, t_orig407_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t407_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t407_A.0";
       | _ -> assert false
     in
   let () = match t407_B, t_orig407_B with
@@ -9550,7 +9530,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t409_A, t_orig409_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t409_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t409_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t409_A.1";
       | _ -> assert false
     in
   let () = match t409_B, t_orig409_B with
@@ -9559,11 +9539,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t410_A, t_orig410_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t410_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t410_A.0";
       | _ -> assert false
     in
   let () = match t410_B, t_orig410_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t410_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t410_B.0";
       | _ -> assert false
     in
   let () = match t410_C, t_orig410_C with
@@ -9591,7 +9571,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t412_A, t_orig412_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t412_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t412_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t412_A.1";
       | _ -> assert false
     in
   let () = match t412_B, t_orig412_B with
@@ -9605,15 +9585,15 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t413_A, t_orig413_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t413_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t413_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t413_A.1";
       | _ -> assert false
     in
   let () = match t413_B, t_orig413_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t413_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t413_B.0";
       | _ -> assert false
     in
   let () = match t414_A, t_orig414_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t414_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t414_A.0";
       | _ -> assert false
     in
   let () = match t414_B, t_orig414_B with
@@ -9646,7 +9626,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
   let () = match t416_A, t_orig416_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t416_A.0";
 check_string a1 b1 ~message:"t416_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t416_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t416_A.2";
       | _ -> assert false
     in
   let () = match t416_B, t_orig416_B with
@@ -9656,7 +9636,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t417_A, t_orig417_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t417_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t417_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t417_A.1";
       | _ -> assert false
     in
   let () = match t417_B, t_orig417_B with
@@ -9669,7 +9649,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message
     in
   let () = match t418_A, t_orig418_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t418_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t418_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t418_A.1";
       | _ -> assert false
     in
   let () = match t418_B, t_orig418_B with
@@ -9677,8 +9657,7 @@ check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~messa
       | _ -> assert false
     in
   let () = match t419_A, t_orig419_A with
-      | A (a0,a1), A (b0,b1) -> check_float (Stdlib__Float_u.to_float a0) (Stdlib__Float_u.to_float b0) ~message:"t419_A.0";
-check_int a1 b1 ~message:"t419_A.1";
+      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t419_A.0";
       
     in
   let () = match t420_A, t_orig420_A with
@@ -9687,7 +9666,7 @@ check_int a1 b1 ~message:"t419_A.1";
     in
   let () = match t420_B, t_orig420_B with
       | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t420_B.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t420_B.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t420_B.1";
       | _ -> assert false
     in
   let () = match t421_A, t_orig421_A with
@@ -9705,11 +9684,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t422_A, t_orig422_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t422_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t422_A.0";
       | _ -> assert false
     in
   let () = match t422_B, t_orig422_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t422_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t422_B.0";
       | _ -> assert false
     in
   let () = match t422_C, t_orig422_C with
@@ -9737,7 +9716,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t424_A, t_orig424_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t424_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t424_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t424_A.1";
       | _ -> assert false
     in
   let () = match t424_B, t_orig424_B with
@@ -9757,7 +9736,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
       | _ -> assert false
     in
   let () = match t425_A, t_orig425_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t425_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t425_A.0";
       | _ -> assert false
     in
   let () = match t425_B, t_orig425_B with
@@ -9772,7 +9751,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
       | _ -> assert false
     in
   let () = match t426_B, t_orig426_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t426_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t426_B.0";
       | _ -> assert false
     in
   let () = match t426_C, t_orig426_C with
@@ -9781,7 +9760,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
     in
   let () = match t427_A, t_orig427_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t427_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t427_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t427_A.1";
       | _ -> assert false
     in
   let () = match t427_B, t_orig427_B with
@@ -9799,7 +9778,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t428_A, t_orig428_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t428_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t428_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t428_A.1";
       | _ -> assert false
     in
   let () = match t428_B, t_orig428_B with
@@ -9812,11 +9791,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t429_A, t_orig429_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t429_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t429_A.0";
       | _ -> assert false
     in
   let () = match t429_B, t_orig429_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t429_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t429_B.0";
       | _ -> assert false
     in
   let () = match t430_A, t_orig430_A with
@@ -9837,7 +9816,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
   let () = match t431_A, t_orig431_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t431_A.0";
 check_string a1 b1 ~message:"t431_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t431_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t431_A.2";
       | _ -> assert false
     in
   let () = match t431_B, t_orig431_B with
@@ -9854,7 +9833,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message
     in
   let () = match t432_A, t_orig432_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t432_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t432_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t432_A.1";
       | _ -> assert false
     in
   let () = match t432_B, t_orig432_B with
@@ -9864,7 +9843,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t433_A, t_orig433_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t433_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t433_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t433_A.1";
       | _ -> assert false
     in
   let () = match t433_B, t_orig433_B with
@@ -9876,8 +9855,7 @@ check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~messa
       | _ -> assert false
     in
   let () = match t434_A, t_orig434_A with
-      | A (a0,a1), A (b0,b1) -> check_float (Stdlib__Float_u.to_float a0) (Stdlib__Float_u.to_float b0) ~message:"t434_A.0";
-check_int a1 b1 ~message:"t434_A.1";
+      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t434_A.0";
       | _ -> assert false
     in
   let () = match t434_B, t_orig434_B with
@@ -9914,11 +9892,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t437_B, t_orig437_B with
       | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t437_B.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t437_B.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t437_B.1";
       | _ -> assert false
     in
   let () = match t438_A, t_orig438_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t438_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t438_A.0";
       | _ -> assert false
     in
   let () = match t438_B, t_orig438_B with
@@ -9936,7 +9914,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t439_B, t_orig439_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t439_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t439_B.0";
       | _ -> assert false
     in
   let () = match t439_C, t_orig439_C with
@@ -9949,7 +9927,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t440_A, t_orig440_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t440_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t440_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t440_A.1";
       | _ -> assert false
     in
   let () = match t440_B, t_orig440_B with
@@ -9963,7 +9941,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t441_A, t_orig441_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t441_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t441_A.0";
       | _ -> assert false
     in
   let () = match t441_B, t_orig441_B with
@@ -9995,11 +9973,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t443_A, t_orig443_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t443_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t443_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t443_A.1";
       | _ -> assert false
     in
   let () = match t443_B, t_orig443_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t443_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t443_B.0";
       | _ -> assert false
     in
   let () = match t443_C, t_orig443_C with
@@ -10008,7 +9986,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
     in
   let () = match t444_A, t_orig444_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t444_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t444_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t444_A.1";
       | _ -> assert false
     in
   let () = match t444_B, t_orig444_B with
@@ -10025,7 +10003,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t445_A, t_orig445_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t445_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t445_A.0";
       | _ -> assert false
     in
   let () = match t445_B, t_orig445_B with
@@ -10044,13 +10022,13 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
       | _ -> assert false
     in
   let () = match t446_B, t_orig446_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t446_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t446_B.0";
       | _ -> assert false
     in
   let () = match t447_A, t_orig447_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t447_A.0";
 check_string a1 b1 ~message:"t447_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t447_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t447_A.2";
       | _ -> assert false
     in
   let () = match t447_B, t_orig447_B with
@@ -10064,7 +10042,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t448_A, t_orig448_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t448_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t448_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t448_A.1";
       | _ -> assert false
     in
   let () = match t448_B, t_orig448_B with
@@ -10081,7 +10059,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message
     in
   let () = match t449_A, t_orig449_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t449_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t449_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t449_A.1";
       | _ -> assert false
     in
   let () = match t449_B, t_orig449_B with
@@ -10090,8 +10068,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t450_A, t_orig450_A with
-      | A (a0,a1), A (b0,b1) -> check_float (Stdlib__Float_u.to_float a0) (Stdlib__Float_u.to_float b0) ~message:"t450_A.0";
-check_int a1 b1 ~message:"t450_A.1";
+      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t450_A.0";
       | _ -> assert false
     in
   let () = match t450_B, t_orig450_B with
@@ -10115,7 +10092,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
   let () = match t452_A, t_orig452_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t452_A.0";
 check_string a1 b1 ~message:"t452_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t452_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t452_A.2";
       
     in
   let () = match t453_A, t_orig453_A with
@@ -10158,12 +10135,12 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t455_A, t_orig455_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t455_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t455_A.0";
       | _ -> assert false
     in
   let () = match t455_B, t_orig455_B with
       | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t455_B.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t455_B.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t455_B.1";
       | _ -> assert false
     in
   let () = match t456_A, t_orig456_A with
@@ -10182,11 +10159,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t457_A, t_orig457_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t457_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t457_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t457_A.1";
       | _ -> assert false
     in
   let () = match t457_B, t_orig457_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t457_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t457_B.0";
       | _ -> assert false
     in
   let () = match t457_C, t_orig457_C with
@@ -10198,7 +10175,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
       | _ -> assert false
     in
   let () = match t458_A, t_orig458_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t458_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t458_A.0";
       | _ -> assert false
     in
   let () = match t458_B, t_orig458_B with
@@ -10235,7 +10212,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
     in
   let () = match t460_A, t_orig460_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t460_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t460_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t460_A.1";
       | _ -> assert false
     in
   let () = match t460_B, t_orig460_B with
@@ -10245,11 +10222,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t461_A, t_orig461_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t461_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t461_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t461_A.1";
       | _ -> assert false
     in
   let () = match t461_B, t_orig461_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t461_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t461_B.0";
       | _ -> assert false
     in
   let () = match t461_C, t_orig461_C with
@@ -10257,7 +10234,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message
       | _ -> assert false
     in
   let () = match t462_A, t_orig462_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t462_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t462_A.0";
       | _ -> assert false
     in
   let () = match t462_B, t_orig462_B with
@@ -10291,16 +10268,16 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
   let () = match t464_A, t_orig464_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t464_A.0";
 check_string a1 b1 ~message:"t464_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t464_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t464_A.2";
       | _ -> assert false
     in
   let () = match t464_B, t_orig464_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t464_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t464_B.0";
       | _ -> assert false
     in
   let () = match t465_A, t_orig465_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t465_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t465_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t465_A.1";
       | _ -> assert false
     in
   let () = match t465_B, t_orig465_B with
@@ -10314,7 +10291,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t466_A, t_orig466_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t466_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t466_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t466_A.1";
       | _ -> assert false
     in
   let () = match t466_B, t_orig466_B with
@@ -10330,8 +10307,7 @@ check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~messa
       | _ -> assert false
     in
   let () = match t467_A, t_orig467_A with
-      | A (a0,a1), A (b0,b1) -> check_float (Stdlib__Float_u.to_float a0) (Stdlib__Float_u.to_float b0) ~message:"t467_A.0";
-check_int a1 b1 ~message:"t467_A.1";
+      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t467_A.0";
       | _ -> assert false
     in
   let () = match t467_B, t_orig467_B with
@@ -10356,7 +10332,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
   let () = match t469_A, t_orig469_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t469_A.0";
 check_string a1 b1 ~message:"t469_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t469_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t469_A.2";
       | _ -> assert false
     in
   let () = match t469_B, t_orig469_B with
@@ -10366,7 +10342,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message
   let () = match t470_A, t_orig470_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t470_A.0";
 check_string a1 b1 ~message:"t470_A.1";
-check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message:"t470_A.2";
+check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t470_A.2";
       
     in
   let () = match t471_A, t_orig471_A with
@@ -10374,7 +10350,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
       | _ -> assert false
     in
   let () = match t471_B, t_orig471_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t471_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t471_B.0";
       | _ -> assert false
     in
   let () = match t471_C, t_orig471_C with
@@ -10405,7 +10381,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t473_A, t_orig473_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t473_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t473_A.0";
       | _ -> assert false
     in
   let () = match t473_B, t_orig473_B with
@@ -10428,12 +10404,12 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t474_B, t_orig474_B with
       | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t474_B.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t474_B.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t474_B.1";
       | _ -> assert false
     in
   let () = match t475_A, t_orig475_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t475_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t475_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t475_A.1";
       | _ -> assert false
     in
   let () = match t475_B, t_orig475_B with
@@ -10446,11 +10422,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t476_A, t_orig476_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t476_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t476_A.0";
       | _ -> assert false
     in
   let () = match t476_B, t_orig476_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t476_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t476_B.0";
       | _ -> assert false
     in
   let () = match t476_C, t_orig476_C with
@@ -10479,7 +10455,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t478_A, t_orig478_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t478_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t478_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t478_A.1";
       | _ -> assert false
     in
   let () = match t478_B, t_orig478_B with
@@ -10500,7 +10476,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
     in
   let () = match t479_A, t_orig479_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t479_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t479_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t479_A.1";
       | _ -> assert false
     in
   let () = match t479_B, t_orig479_B with
@@ -10509,11 +10485,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t480_A, t_orig480_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t480_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t480_A.0";
       | _ -> assert false
     in
   let () = match t480_B, t_orig480_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t480_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t480_B.0";
       | _ -> assert false
     in
   let () = match t480_C, t_orig480_C with
@@ -10542,7 +10518,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
   let () = match t482_A, t_orig482_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t482_A.0";
 check_string a1 b1 ~message:"t482_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t482_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t482_A.2";
       | _ -> assert false
     in
   let () = match t482_B, t_orig482_B with
@@ -10556,16 +10532,16 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t483_A, t_orig483_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t483_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t483_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t483_A.1";
       | _ -> assert false
     in
   let () = match t483_B, t_orig483_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t483_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t483_B.0";
       | _ -> assert false
     in
   let () = match t484_A, t_orig484_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t484_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t484_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t484_A.1";
       | _ -> assert false
     in
   let () = match t484_B, t_orig484_B with
@@ -10578,8 +10554,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t485_A, t_orig485_A with
-      | A (a0,a1), A (b0,b1) -> check_float (Stdlib__Float_u.to_float a0) (Stdlib__Float_u.to_float b0) ~message:"t485_A.0";
-check_int a1 b1 ~message:"t485_A.1";
+      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t485_A.0";
       | _ -> assert false
     in
   let () = match t485_B, t_orig485_B with
@@ -10608,7 +10583,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
   let () = match t487_A, t_orig487_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t487_A.0";
 check_string a1 b1 ~message:"t487_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t487_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t487_A.2";
       | _ -> assert false
     in
   let () = match t487_B, t_orig487_B with
@@ -10622,7 +10597,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message
   let () = match t488_A, t_orig488_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t488_A.0";
 check_string a1 b1 ~message:"t488_A.1";
-check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message:"t488_A.2";
+check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t488_A.2";
       | _ -> assert false
     in
   let () = match t488_B, t_orig488_B with
@@ -10631,7 +10606,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
     in
   let () = match t489_A, t_orig489_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t489_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t489_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t489_A.1";
       
     in
   let () = match t490_A, t_orig490_A with
@@ -10657,7 +10632,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t491_B, t_orig491_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t491_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t491_B.0";
       | _ -> assert false
     in
   let () = match t491_C, t_orig491_C with
@@ -10666,7 +10641,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t492_A, t_orig492_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t492_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t492_A.0";
       | _ -> assert false
     in
   let () = match t492_B, t_orig492_B with
@@ -10706,16 +10681,16 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t494_A, t_orig494_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t494_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t494_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t494_A.1";
       | _ -> assert false
     in
   let () = match t494_B, t_orig494_B with
       | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t494_B.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t494_B.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t494_B.1";
       | _ -> assert false
     in
   let () = match t495_A, t_orig495_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t495_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t495_A.0";
       | _ -> assert false
     in
   let () = match t495_B, t_orig495_B with
@@ -10734,7 +10709,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
       | _ -> assert false
     in
   let () = match t496_B, t_orig496_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t496_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t496_B.0";
       | _ -> assert false
     in
   let () = match t496_C, t_orig496_C with
@@ -10747,7 +10722,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
     in
   let () = match t497_A, t_orig497_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t497_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t497_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t497_A.1";
       | _ -> assert false
     in
   let () = match t497_B, t_orig497_B with
@@ -10762,7 +10737,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t498_A, t_orig498_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t498_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t498_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t498_A.1";
       | _ -> assert false
     in
   let () = match t498_B, t_orig498_B with
@@ -10782,7 +10757,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message
       | _ -> assert false
     in
   let () = match t499_A, t_orig499_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t499_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t499_A.0";
       | _ -> assert false
     in
   let () = match t499_B, t_orig499_B with
@@ -10797,7 +10772,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
       | _ -> assert false
     in
   let () = match t500_B, t_orig500_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t500_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t500_B.0";
       | _ -> assert false
     in
   let () = match t500_C, t_orig500_C with
@@ -10807,7 +10782,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
   let () = match t501_A, t_orig501_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t501_A.0";
 check_string a1 b1 ~message:"t501_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t501_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t501_A.2";
       | _ -> assert false
     in
   let () = match t501_B, t_orig501_B with
@@ -10825,7 +10800,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t502_A, t_orig502_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t502_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t502_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t502_A.1";
       | _ -> assert false
     in
   let () = match t502_B, t_orig502_B with
@@ -10839,16 +10814,15 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t503_A, t_orig503_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t503_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t503_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t503_A.1";
       | _ -> assert false
     in
   let () = match t503_B, t_orig503_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t503_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t503_B.0";
       | _ -> assert false
     in
   let () = match t504_A, t_orig504_A with
-      | A (a0,a1), A (b0,b1) -> check_float (Stdlib__Float_u.to_float a0) (Stdlib__Float_u.to_float b0) ~message:"t504_A.0";
-check_int a1 b1 ~message:"t504_A.1";
+      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t504_A.0";
       | _ -> assert false
     in
   let () = match t504_B, t_orig504_B with
@@ -10881,7 +10855,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
   let () = match t506_A, t_orig506_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t506_A.0";
 check_string a1 b1 ~message:"t506_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t506_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t506_A.2";
       | _ -> assert false
     in
   let () = match t506_B, t_orig506_B with
@@ -10892,7 +10866,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
   let () = match t507_A, t_orig507_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t507_A.0";
 check_string a1 b1 ~message:"t507_A.1";
-check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message:"t507_A.2";
+check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t507_A.2";
       | _ -> assert false
     in
   let () = match t507_B, t_orig507_B with
@@ -10905,7 +10879,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
     in
   let () = match t508_A, t_orig508_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t508_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t508_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t508_A.1";
       | _ -> assert false
     in
   let () = match t508_B, t_orig508_B with
@@ -10913,9 +10887,8 @@ check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~messa
       | _ -> assert false
     in
   let () = match t509_A, t_orig509_A with
-      | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t509_A.0";
-check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message:"t509_A.1";
-check_int a2 b2 ~message:"t509_A.2";
+      | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t509_A.0";
+check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t509_A.1";
       
     in
   let () = match t510_A, t_orig510_A with
@@ -10924,7 +10897,7 @@ check_int a2 b2 ~message:"t509_A.2";
     in
   let () = match t510_B, t_orig510_B with
       | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t510_B.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t510_B.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t510_B.1";
       | _ -> assert false
     in
   let () = match t510_C, t_orig510_C with
@@ -10950,11 +10923,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t512_A, t_orig512_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t512_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t512_A.0";
       | _ -> assert false
     in
   let () = match t512_B, t_orig512_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t512_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t512_B.0";
       | _ -> assert false
     in
   let () = match t512_C, t_orig512_C with
@@ -10986,7 +10959,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t514_A, t_orig514_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t514_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t514_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t514_A.1";
       | _ -> assert false
     in
   let () = match t514_B, t_orig514_B with
@@ -11003,12 +10976,12 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t515_A, t_orig515_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t515_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t515_A.0";
       | _ -> assert false
     in
   let () = match t515_B, t_orig515_B with
       | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t515_B.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t515_B.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t515_B.1";
       | _ -> assert false
     in
   let () = match t516_A, t_orig516_A with
@@ -11028,11 +11001,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t517_A, t_orig517_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t517_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t517_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t517_A.1";
       | _ -> assert false
     in
   let () = match t517_B, t_orig517_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t517_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t517_B.0";
       | _ -> assert false
     in
   let () = match t517_C, t_orig517_C with
@@ -11045,7 +11018,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
     in
   let () = match t518_A, t_orig518_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t518_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t518_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t518_A.1";
       | _ -> assert false
     in
   let () = match t518_B, t_orig518_B with
@@ -11059,7 +11032,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t519_A, t_orig519_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t519_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t519_A.0";
       | _ -> assert false
     in
   let () = match t519_B, t_orig519_B with
@@ -11092,11 +11065,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
   let () = match t521_A, t_orig521_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t521_A.0";
 check_string a1 b1 ~message:"t521_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t521_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t521_A.2";
       | _ -> assert false
     in
   let () = match t521_B, t_orig521_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t521_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t521_B.0";
       | _ -> assert false
     in
   let () = match t521_C, t_orig521_C with
@@ -11105,7 +11078,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message
     in
   let () = match t522_A, t_orig522_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t522_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t522_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t522_A.1";
       | _ -> assert false
     in
   let () = match t522_B, t_orig522_B with
@@ -11123,7 +11096,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t523_A, t_orig523_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t523_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t523_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t523_A.1";
       | _ -> assert false
     in
   let () = match t523_B, t_orig523_B with
@@ -11136,12 +11109,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t524_A, t_orig524_A with
-      | A (a0,a1), A (b0,b1) -> check_float (Stdlib__Float_u.to_float a0) (Stdlib__Float_u.to_float b0) ~message:"t524_A.0";
-check_int a1 b1 ~message:"t524_A.1";
+      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t524_A.0";
       | _ -> assert false
     in
   let () = match t524_B, t_orig524_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t524_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t524_B.0";
       | _ -> assert false
     in
   let () = match t525_A, t_orig525_A with
@@ -11162,7 +11134,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
   let () = match t526_A, t_orig526_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t526_A.0";
 check_string a1 b1 ~message:"t526_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t526_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t526_A.2";
       | _ -> assert false
     in
   let () = match t526_B, t_orig526_B with
@@ -11180,7 +11152,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message
   let () = match t527_A, t_orig527_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t527_A.0";
 check_string a1 b1 ~message:"t527_A.1";
-check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message:"t527_A.2";
+check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t527_A.2";
       | _ -> assert false
     in
   let () = match t527_B, t_orig527_B with
@@ -11190,7 +11162,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t528_A, t_orig528_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t528_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t528_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t528_A.1";
       | _ -> assert false
     in
   let () = match t528_B, t_orig528_B with
@@ -11202,9 +11174,8 @@ check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~messa
       | _ -> assert false
     in
   let () = match t529_A, t_orig529_A with
-      | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t529_A.0";
-check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message:"t529_A.1";
-check_int a2 b2 ~message:"t529_A.2";
+      | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t529_A.0";
+check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t529_A.1";
       | _ -> assert false
     in
   let () = match t529_B, t_orig529_B with
@@ -11212,7 +11183,7 @@ check_int a2 b2 ~message:"t529_A.2";
       | _ -> assert false
     in
   let () = match t530_A, t_orig530_A with
-      | A (a0,a1), A (b0,b1) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t530_A.0";
+      | A (a0,a1), A (b0,b1) -> check_float (Stdlib__Float_u.to_float a0) (Stdlib__Float_u.to_float b0) ~message:"t530_A.0";
 check_int a1 b1 ~message:"t530_A.1";
       
     in
@@ -11221,7 +11192,7 @@ check_int a1 b1 ~message:"t530_A.1";
       | _ -> assert false
     in
   let () = match t531_B, t_orig531_B with
-      | B (a0), B (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t531_B.0";
+      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t531_B.0";
       | _ -> assert false
     in
   let () = match t532_A, t_orig532_A with
@@ -11231,7 +11202,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t532_B, t_orig532_B with
       | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t532_B.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t532_B.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t532_B.1";
       | _ -> assert false
     in
   let () = match t532_C, t_orig532_C with
@@ -11239,7 +11210,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
       | _ -> assert false
     in
   let () = match t533_A, t_orig533_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t533_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t533_A.0";
       | _ -> assert false
     in
   let () = match t533_B, t_orig533_B with
@@ -11261,7 +11232,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t534_B, t_orig534_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t534_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t534_B.0";
       | _ -> assert false
     in
   let () = match t534_C, t_orig534_C with
@@ -11271,7 +11242,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t535_A, t_orig535_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t535_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t535_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t535_A.1";
       | _ -> assert false
     in
   let () = match t535_B, t_orig535_B with
@@ -11292,7 +11263,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t536_A, t_orig536_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t536_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t536_A.0";
       | _ -> assert false
     in
   let () = match t536_B, t_orig536_B with
@@ -11316,12 +11287,12 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
     in
   let () = match t537_B, t_orig537_B with
       | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t537_B.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t537_B.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t537_B.1";
       | _ -> assert false
     in
   let () = match t538_A, t_orig538_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t538_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t538_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t538_A.1";
       | _ -> assert false
     in
   let () = match t538_B, t_orig538_B with
@@ -11335,11 +11306,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t539_A, t_orig539_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t539_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t539_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t539_A.1";
       | _ -> assert false
     in
   let () = match t539_B, t_orig539_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t539_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t539_B.0";
       | _ -> assert false
     in
   let () = match t539_C, t_orig539_C with
@@ -11351,7 +11322,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message
       | _ -> assert false
     in
   let () = match t540_A, t_orig540_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t540_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t540_A.0";
       | _ -> assert false
     in
   let () = match t540_B, t_orig540_B with
@@ -11389,7 +11360,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
   let () = match t542_A, t_orig542_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t542_A.0";
 check_string a1 b1 ~message:"t542_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t542_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t542_A.2";
       | _ -> assert false
     in
   let () = match t542_B, t_orig542_B with
@@ -11399,11 +11370,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t543_A, t_orig543_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t543_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t543_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t543_A.1";
       | _ -> assert false
     in
   let () = match t543_B, t_orig543_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t543_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t543_B.0";
       | _ -> assert false
     in
   let () = match t543_C, t_orig543_C with
@@ -11412,7 +11383,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message
     in
   let () = match t544_A, t_orig544_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t544_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t544_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t544_A.1";
       | _ -> assert false
     in
   let () = match t544_B, t_orig544_B with
@@ -11429,8 +11400,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t545_A, t_orig545_A with
-      | A (a0,a1), A (b0,b1) -> check_float (Stdlib__Float_u.to_float a0) (Stdlib__Float_u.to_float b0) ~message:"t545_A.0";
-check_int a1 b1 ~message:"t545_A.1";
+      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t545_A.0";
       | _ -> assert false
     in
   let () = match t545_B, t_orig545_B with
@@ -11449,13 +11419,13 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
       | _ -> assert false
     in
   let () = match t546_B, t_orig546_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t546_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t546_B.0";
       | _ -> assert false
     in
   let () = match t547_A, t_orig547_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t547_A.0";
 check_string a1 b1 ~message:"t547_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t547_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t547_A.2";
       | _ -> assert false
     in
   let () = match t547_B, t_orig547_B with
@@ -11470,7 +11440,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
   let () = match t548_A, t_orig548_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t548_A.0";
 check_string a1 b1 ~message:"t548_A.1";
-check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message:"t548_A.2";
+check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t548_A.2";
       | _ -> assert false
     in
   let () = match t548_B, t_orig548_B with
@@ -11487,7 +11457,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
     in
   let () = match t549_A, t_orig549_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t549_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t549_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t549_A.1";
       | _ -> assert false
     in
   let () = match t549_B, t_orig549_B with
@@ -11496,9 +11466,8 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t550_A, t_orig550_A with
-      | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t550_A.0";
-check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message:"t550_A.1";
-check_int a2 b2 ~message:"t550_A.2";
+      | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t550_A.0";
+check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t550_A.1";
       | _ -> assert false
     in
   let () = match t550_B, t_orig550_B with
@@ -11510,7 +11479,7 @@ check_int a2 b2 ~message:"t550_A.2";
       | _ -> assert false
     in
   let () = match t551_A, t_orig551_A with
-      | A (a0,a1), A (b0,b1) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t551_A.0";
+      | A (a0,a1), A (b0,b1) -> check_float (Stdlib__Float_u.to_float a0) (Stdlib__Float_u.to_float b0) ~message:"t551_A.0";
 check_int a1 b1 ~message:"t551_A.1";
       | _ -> assert false
     in
@@ -11533,7 +11502,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
       | _ -> assert false
     in
   let () = match t553_C, t_orig553_C with
-      | C (a0), C (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t553_C.0";
+      | C (a0), C (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t553_C.0";
       | _ -> assert false
     in
   let () = match t554_A, t_orig554_A with
@@ -11542,16 +11511,16 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t554_B, t_orig554_B with
-      | B (a0), B (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t554_B.0";
+      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t554_B.0";
       | _ -> assert false
     in
   let () = match t555_A, t_orig555_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t555_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t555_A.0";
       | _ -> assert false
     in
   let () = match t555_B, t_orig555_B with
       | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t555_B.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t555_B.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t555_B.1";
       | _ -> assert false
     in
   let () = match t555_C, t_orig555_C with
@@ -11578,11 +11547,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t557_A, t_orig557_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t557_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t557_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t557_A.1";
       | _ -> assert false
     in
   let () = match t557_B, t_orig557_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t557_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t557_B.0";
       | _ -> assert false
     in
   let () = match t557_C, t_orig557_C with
@@ -11591,7 +11560,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t558_A, t_orig558_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t558_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t558_A.0";
       | _ -> assert false
     in
   let () = match t558_B, t_orig558_B with
@@ -11632,17 +11601,17 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t560_A, t_orig560_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t560_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t560_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t560_A.1";
       | _ -> assert false
     in
   let () = match t560_B, t_orig560_B with
       | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t560_B.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t560_B.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t560_B.1";
       | _ -> assert false
     in
   let () = match t561_A, t_orig561_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t561_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t561_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t561_A.1";
       | _ -> assert false
     in
   let () = match t561_B, t_orig561_B with
@@ -11655,11 +11624,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t562_A, t_orig562_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t562_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t562_A.0";
       | _ -> assert false
     in
   let () = match t562_B, t_orig562_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t562_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t562_B.0";
       | _ -> assert false
     in
   let () = match t562_C, t_orig562_C with
@@ -11689,7 +11658,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
   let () = match t564_A, t_orig564_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t564_A.0";
 check_string a1 b1 ~message:"t564_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t564_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t564_A.2";
       | _ -> assert false
     in
   let () = match t564_B, t_orig564_B with
@@ -11710,7 +11679,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message
     in
   let () = match t565_A, t_orig565_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t565_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t565_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t565_A.1";
       | _ -> assert false
     in
   let () = match t565_B, t_orig565_B with
@@ -11720,11 +11689,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t566_A, t_orig566_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t566_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t566_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t566_A.1";
       | _ -> assert false
     in
   let () = match t566_B, t_orig566_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t566_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t566_B.0";
       | _ -> assert false
     in
   let () = match t566_C, t_orig566_C with
@@ -11732,8 +11701,7 @@ check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~messa
       | _ -> assert false
     in
   let () = match t567_A, t_orig567_A with
-      | A (a0,a1), A (b0,b1) -> check_float (Stdlib__Float_u.to_float a0) (Stdlib__Float_u.to_float b0) ~message:"t567_A.0";
-check_int a1 b1 ~message:"t567_A.1";
+      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t567_A.0";
       | _ -> assert false
     in
   let () = match t567_B, t_orig567_B with
@@ -11767,17 +11735,17 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
   let () = match t569_A, t_orig569_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t569_A.0";
 check_string a1 b1 ~message:"t569_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t569_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t569_A.2";
       | _ -> assert false
     in
   let () = match t569_B, t_orig569_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t569_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t569_B.0";
       | _ -> assert false
     in
   let () = match t570_A, t_orig570_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t570_A.0";
 check_string a1 b1 ~message:"t570_A.1";
-check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message:"t570_A.2";
+check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t570_A.2";
       | _ -> assert false
     in
   let () = match t570_B, t_orig570_B with
@@ -11791,7 +11759,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t571_A, t_orig571_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t571_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t571_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t571_A.1";
       | _ -> assert false
     in
   let () = match t571_B, t_orig571_B with
@@ -11807,9 +11775,8 @@ check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~messa
       | _ -> assert false
     in
   let () = match t572_A, t_orig572_A with
-      | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t572_A.0";
-check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message:"t572_A.1";
-check_int a2 b2 ~message:"t572_A.2";
+      | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t572_A.0";
+check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t572_A.1";
       | _ -> assert false
     in
   let () = match t572_B, t_orig572_B with
@@ -11818,7 +11785,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t573_A, t_orig573_A with
-      | A (a0,a1), A (b0,b1) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t573_A.0";
+      | A (a0,a1), A (b0,b1) -> check_float (Stdlib__Float_u.to_float a0) (Stdlib__Float_u.to_float b0) ~message:"t573_A.0";
 check_int a1 b1 ~message:"t573_A.1";
       | _ -> assert false
     in
@@ -11843,7 +11810,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
   let () = match t575_A, t_orig575_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_int a0 b0 ~message:"t575_A.0";
 check_string a1 b1 ~message:"t575_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t575_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t575_A.2";
       
     in
   let () = match t576_A, t_orig576_A with
@@ -11874,15 +11841,15 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t577_C, t_orig577_C with
-      | C (a0), C (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t577_C.0";
+      | C (a0), C (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t577_C.0";
       | _ -> assert false
     in
   let () = match t578_A, t_orig578_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t578_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t578_A.0";
       | _ -> assert false
     in
   let () = match t578_B, t_orig578_B with
-      | B (a0), B (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t578_B.0";
+      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t578_B.0";
       | _ -> assert false
     in
   let () = match t579_A, t_orig579_A with
@@ -11892,7 +11859,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t579_B, t_orig579_B with
       | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t579_B.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t579_B.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t579_B.1";
       | _ -> assert false
     in
   let () = match t579_C, t_orig579_C with
@@ -11901,7 +11868,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
     in
   let () = match t580_A, t_orig580_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t580_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t580_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t580_A.1";
       | _ -> assert false
     in
   let () = match t580_B, t_orig580_B with
@@ -11918,11 +11885,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t581_A, t_orig581_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t581_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t581_A.0";
       | _ -> assert false
     in
   let () = match t581_B, t_orig581_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t581_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t581_B.0";
       | _ -> assert false
     in
   let () = match t581_C, t_orig581_C with
@@ -11955,7 +11922,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t583_A, t_orig583_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t583_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t583_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t583_A.1";
       | _ -> assert false
     in
   let () = match t583_B, t_orig583_B with
@@ -11973,16 +11940,16 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t584_A, t_orig584_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t584_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t584_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t584_A.1";
       | _ -> assert false
     in
   let () = match t584_B, t_orig584_B with
       | B (a0,a1), B (b0,b1) -> check_string a0 b0 ~message:"t584_B.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t584_B.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t584_B.1";
       | _ -> assert false
     in
   let () = match t585_A, t_orig585_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t585_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t585_A.0";
       | _ -> assert false
     in
   let () = match t585_B, t_orig585_B with
@@ -12001,7 +11968,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
       | _ -> assert false
     in
   let () = match t586_B, t_orig586_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t586_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t586_B.0";
       | _ -> assert false
     in
   let () = match t586_C, t_orig586_C with
@@ -12015,7 +11982,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
   let () = match t587_A, t_orig587_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t587_A.0";
 check_string a1 b1 ~message:"t587_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t587_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t587_A.2";
       | _ -> assert false
     in
   let () = match t587_B, t_orig587_B with
@@ -12030,7 +11997,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t588_A, t_orig588_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t588_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t588_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t588_A.1";
       | _ -> assert false
     in
   let () = match t588_B, t_orig588_B with
@@ -12051,7 +12018,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message
     in
   let () = match t589_A, t_orig589_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t589_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t589_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t589_A.1";
       | _ -> assert false
     in
   let () = match t589_B, t_orig589_B with
@@ -12060,12 +12027,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t590_A, t_orig590_A with
-      | A (a0,a1), A (b0,b1) -> check_float (Stdlib__Float_u.to_float a0) (Stdlib__Float_u.to_float b0) ~message:"t590_A.0";
-check_int a1 b1 ~message:"t590_A.1";
+      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t590_A.0";
       | _ -> assert false
     in
   let () = match t590_B, t_orig590_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t590_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t590_B.0";
       | _ -> assert false
     in
   let () = match t590_C, t_orig590_C with
@@ -12094,7 +12060,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
   let () = match t592_A, t_orig592_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t592_A.0";
 check_string a1 b1 ~message:"t592_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t592_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t592_A.2";
       | _ -> assert false
     in
   let () = match t592_B, t_orig592_B with
@@ -12109,16 +12075,16 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
   let () = match t593_A, t_orig593_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t593_A.0";
 check_string a1 b1 ~message:"t593_A.1";
-check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message:"t593_A.2";
+check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t593_A.2";
       | _ -> assert false
     in
   let () = match t593_B, t_orig593_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t593_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t593_B.0";
       | _ -> assert false
     in
   let () = match t594_A, t_orig594_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t594_A.0";
-check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t594_A.1";
+check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t594_A.1";
       | _ -> assert false
     in
   let () = match t594_B, t_orig594_B with
@@ -12131,9 +12097,8 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t595_A, t_orig595_A with
-      | A (a0,a1,a2), A (b0,b1,b2) -> check_string a0 b0 ~message:"t595_A.0";
-check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message:"t595_A.1";
-check_int a2 b2 ~message:"t595_A.2";
+      | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t595_A.0";
+check_int (Stdlib__Nativeint_u.to_int a1) (Stdlib__Nativeint_u.to_int b1) ~message:"t595_A.1";
       | _ -> assert false
     in
   let () = match t595_B, t_orig595_B with
@@ -12149,7 +12114,7 @@ check_int a2 b2 ~message:"t595_A.2";
       | _ -> assert false
     in
   let () = match t596_A, t_orig596_A with
-      | A (a0,a1), A (b0,b1) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t596_A.0";
+      | A (a0,a1), A (b0,b1) -> check_float (Stdlib__Float_u.to_float a0) (Stdlib__Float_u.to_float b0) ~message:"t596_A.0";
 check_int a1 b1 ~message:"t596_A.1";
       | _ -> assert false
     in
@@ -12175,7 +12140,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
   let () = match t598_A, t_orig598_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_int a0 b0 ~message:"t598_A.0";
 check_string a1 b1 ~message:"t598_A.1";
-check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t598_A.2";
+check_float32 (Beta.Float32_u.to_float32 a2) (Beta.Float32_u.to_float32 b2) ~message:"t598_A.2";
       | _ -> assert false
     in
   let () = match t598_B, t_orig598_B with
@@ -12185,7 +12150,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message
   let () = match t599_A, t_orig599_A with
       | A (a0,a1,a2), A (b0,b1,b2) -> check_float a0 b0 ~message:"t599_A.0";
 check_string a1 b1 ~message:"t599_A.1";
-check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message:"t599_A.2";
+check_int32 (Stdlib__Int32_u.to_int32 a2) (Stdlib__Int32_u.to_int32 b2) ~message:"t599_A.2";
       
     in
   print_endline "    - Checking [Obj.reachable_words]";
@@ -12302,7 +12267,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
   check_reachable_words (Obj.reachable_words (Obj.repr t110)) (3 + 2 + 3) "Reachable words 110";
   check_reachable_words (Obj.reachable_words (Obj.repr t111)) (3 + Obj.reachable_words (Obj.repr t111.str0) + 3) "Reachable words 111";
   check_reachable_words (Obj.reachable_words (Obj.repr t112)) (3 + Obj.reachable_words (Obj.repr t112.str0) + 3) "Reachable words 112";
-  check_reachable_words (Obj.reachable_words (Obj.repr t113)) (3 + 2) "Reachable words 113";
+  check_reachable_words (Obj.reachable_words (Obj.repr t113)) (2 + 3) "Reachable words 113";
   check_reachable_words (Obj.reachable_words (Obj.repr t114)) (4 + Obj.reachable_words (Obj.repr t114.str1) + 2) "Reachable words 114";
   check_reachable_words (Obj.reachable_words (Obj.repr t115)) (4 + 2 + Obj.reachable_words (Obj.repr t115.str1) + 2) "Reachable words 115";
   check_reachable_words (Obj.reachable_words (Obj.repr t116)) (4 + 2 + Obj.reachable_words (Obj.repr t116.str1) + 3) "Reachable words 116";
@@ -12311,8 +12276,8 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
   check_reachable_words (Obj.reachable_words (Obj.repr t119)) (3 + 2 + 3) "Reachable words 119";
   check_reachable_words (Obj.reachable_words (Obj.repr t120)) (3 + 2 + 3) "Reachable words 120";
   check_reachable_words (Obj.reachable_words (Obj.repr t121)) (3 + Obj.reachable_words (Obj.repr t121.str0) + 3) "Reachable words 121";
-  check_reachable_words (Obj.reachable_words (Obj.repr t122)) (4 + Obj.reachable_words (Obj.repr t122.str0) + 2) "Reachable words 122";
-  check_reachable_words (Obj.reachable_words (Obj.repr t123)) (3 + 2) "Reachable words 123";
+  check_reachable_words (Obj.reachable_words (Obj.repr t122)) (3 + Obj.reachable_words (Obj.repr t122.str0) + 3) "Reachable words 122";
+  check_reachable_words (Obj.reachable_words (Obj.repr t123)) (2 + 3) "Reachable words 123";
   check_reachable_words (Obj.reachable_words (Obj.repr t124)) (4 + Obj.reachable_words (Obj.repr t124.str1) + 2) "Reachable words 124";
   check_reachable_words (Obj.reachable_words (Obj.repr t125)) (4 + Obj.reachable_words (Obj.repr t125.str1) + 2) "Reachable words 125";
   check_reachable_words (Obj.reachable_words (Obj.repr t126)) (4 + 2 + Obj.reachable_words (Obj.repr t126.str1) + 3) "Reachable words 126";
@@ -12321,9 +12286,9 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
   check_reachable_words (Obj.reachable_words (Obj.repr t129)) (4 + Obj.reachable_words (Obj.repr t129.str0) + Obj.reachable_words (Obj.repr t129.str1) + 3) "Reachable words 129";
   check_reachable_words (Obj.reachable_words (Obj.repr t130)) (3 + 2 + 3) "Reachable words 130";
   check_reachable_words (Obj.reachable_words (Obj.repr t131)) (3 + 2 + 3) "Reachable words 131";
-  check_reachable_words (Obj.reachable_words (Obj.repr t132)) (4 + Obj.reachable_words (Obj.repr t132.str0) + 2) "Reachable words 132";
-  check_reachable_words (Obj.reachable_words (Obj.repr t133)) (4 + Obj.reachable_words (Obj.repr t133.str0) + 2) "Reachable words 133";
-  check_reachable_words (Obj.reachable_words (Obj.repr t134)) (3 + 3) "Reachable words 134";
+  check_reachable_words (Obj.reachable_words (Obj.repr t132)) (3 + Obj.reachable_words (Obj.repr t132.str0) + 3) "Reachable words 132";
+  check_reachable_words (Obj.reachable_words (Obj.repr t133)) (3 + Obj.reachable_words (Obj.repr t133.str0) + 3) "Reachable words 133";
+  check_reachable_words (Obj.reachable_words (Obj.repr t134)) (3 + 2) "Reachable words 134";
   check_reachable_words (Obj.reachable_words (Obj.repr t135)) (4 + Obj.reachable_words (Obj.repr t135.str0) + Obj.reachable_words (Obj.repr t135.str1) + 2) "Reachable words 135";
   check_reachable_words (Obj.reachable_words (Obj.repr t136)) (4 + Obj.reachable_words (Obj.repr t136.str1) + 2) "Reachable words 136";
   check_reachable_words (Obj.reachable_words (Obj.repr t137)) (4 + Obj.reachable_words (Obj.repr t137.str1) + 3) "Reachable words 137";
@@ -12332,10 +12297,10 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
   check_reachable_words (Obj.reachable_words (Obj.repr t140)) (4 + Obj.reachable_words (Obj.repr t140.str0) + Obj.reachable_words (Obj.repr t140.str1) + 3) "Reachable words 140";
   check_reachable_words (Obj.reachable_words (Obj.repr t141)) (4 + Obj.reachable_words (Obj.repr t141.str0) + Obj.reachable_words (Obj.repr t141.str1) + 3) "Reachable words 141";
   check_reachable_words (Obj.reachable_words (Obj.repr t142)) (3 + 2 + 3) "Reachable words 142";
-  check_reachable_words (Obj.reachable_words (Obj.repr t143)) (4 + 2 + 2) "Reachable words 143";
-  check_reachable_words (Obj.reachable_words (Obj.repr t144)) (4 + Obj.reachable_words (Obj.repr t144.str0) + 2) "Reachable words 144";
-  check_reachable_words (Obj.reachable_words (Obj.repr t145)) (4 + Obj.reachable_words (Obj.repr t145.str0) + 3) "Reachable words 145";
-  check_reachable_words (Obj.reachable_words (Obj.repr t146)) (3 + 3) "Reachable words 146";
+  check_reachable_words (Obj.reachable_words (Obj.repr t143)) (3 + 2 + 3) "Reachable words 143";
+  check_reachable_words (Obj.reachable_words (Obj.repr t144)) (3 + Obj.reachable_words (Obj.repr t144.str0) + 3) "Reachable words 144";
+  check_reachable_words (Obj.reachable_words (Obj.repr t145)) (4 + Obj.reachable_words (Obj.repr t145.str0) + 2) "Reachable words 145";
+  check_reachable_words (Obj.reachable_words (Obj.repr t146)) (3 + 2) "Reachable words 146";
   check_reachable_words (Obj.reachable_words (Obj.repr t147)) (4 + Obj.reachable_words (Obj.repr t147.str0) + Obj.reachable_words (Obj.repr t147.str1) + 2) "Reachable words 147";
   check_reachable_words (Obj.reachable_words (Obj.repr t148)) (4 + Obj.reachable_words (Obj.repr t148.str0) + Obj.reachable_words (Obj.repr t148.str1) + 2) "Reachable words 148";
   check_reachable_words (Obj.reachable_words (Obj.repr t149)) (4 + Obj.reachable_words (Obj.repr t149.str1) + 3) "Reachable words 149";
@@ -12344,10 +12309,10 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
   check_reachable_words (Obj.reachable_words (Obj.repr t152)) (4 + 2 + Obj.reachable_words (Obj.repr t152.str1) + 3) "Reachable words 152";
   check_reachable_words (Obj.reachable_words (Obj.repr t153)) (4 + Obj.reachable_words (Obj.repr t153.str0) + Obj.reachable_words (Obj.repr t153.str1) + 3) "Reachable words 153";
   check_reachable_words (Obj.reachable_words (Obj.repr t154)) (4 + Obj.reachable_words (Obj.repr t154.str0) + Obj.reachable_words (Obj.repr t154.str1) + 3) "Reachable words 154";
-  check_reachable_words (Obj.reachable_words (Obj.repr t155)) (4 + 2 + 2) "Reachable words 155";
-  check_reachable_words (Obj.reachable_words (Obj.repr t156)) (4 + 2 + 2) "Reachable words 156";
-  check_reachable_words (Obj.reachable_words (Obj.repr t157)) (4 + Obj.reachable_words (Obj.repr t157.str0) + 3) "Reachable words 157";
-  check_reachable_words (Obj.reachable_words (Obj.repr t158)) (4 + Obj.reachable_words (Obj.repr t158.str0) + 3) "Reachable words 158";
+  check_reachable_words (Obj.reachable_words (Obj.repr t155)) (3 + 2 + 3) "Reachable words 155";
+  check_reachable_words (Obj.reachable_words (Obj.repr t156)) (3 + 2 + 3) "Reachable words 156";
+  check_reachable_words (Obj.reachable_words (Obj.repr t157)) (4 + Obj.reachable_words (Obj.repr t157.str0) + 2) "Reachable words 157";
+  check_reachable_words (Obj.reachable_words (Obj.repr t158)) (4 + Obj.reachable_words (Obj.repr t158.str0) + 2) "Reachable words 158";
   check_reachable_words (Obj.reachable_words (Obj.repr t159)) (3 + 3) "Reachable words 159";
   check_reachable_words (Obj.reachable_words (Obj.repr t160)) (4 + 2 + Obj.reachable_words (Obj.repr t160.str1) + 2) "Reachable words 160";
   check_reachable_words (Obj.reachable_words (Obj.repr t161)) (4 + Obj.reachable_words (Obj.repr t161.str0) + Obj.reachable_words (Obj.repr t161.str1) + 2) "Reachable words 161";
@@ -12357,10 +12322,10 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
   check_reachable_words (Obj.reachable_words (Obj.repr t165)) (4 + 2 + Obj.reachable_words (Obj.repr t165.str1) + 3) "Reachable words 165";
   check_reachable_words (Obj.reachable_words (Obj.repr t166)) (4 + 2 + Obj.reachable_words (Obj.repr t166.str1) + 3) "Reachable words 166";
   check_reachable_words (Obj.reachable_words (Obj.repr t167)) (4 + Obj.reachable_words (Obj.repr t167.str0) + Obj.reachable_words (Obj.repr t167.str1) + 3) "Reachable words 167";
-  check_reachable_words (Obj.reachable_words (Obj.repr t168)) (5 + Obj.reachable_words (Obj.repr t168.str0) + Obj.reachable_words (Obj.repr t168.str1) + 2) "Reachable words 168";
-  check_reachable_words (Obj.reachable_words (Obj.repr t169)) (4 + 2 + 2) "Reachable words 169";
-  check_reachable_words (Obj.reachable_words (Obj.repr t170)) (4 + 2 + 3) "Reachable words 170";
-  check_reachable_words (Obj.reachable_words (Obj.repr t171)) (4 + Obj.reachable_words (Obj.repr t171.str0) + 3) "Reachable words 171";
+  check_reachable_words (Obj.reachable_words (Obj.repr t168)) (4 + Obj.reachable_words (Obj.repr t168.str0) + Obj.reachable_words (Obj.repr t168.str1) + 3) "Reachable words 168";
+  check_reachable_words (Obj.reachable_words (Obj.repr t169)) (3 + 2 + 3) "Reachable words 169";
+  check_reachable_words (Obj.reachable_words (Obj.repr t170)) (4 + 2 + 2) "Reachable words 170";
+  check_reachable_words (Obj.reachable_words (Obj.repr t171)) (4 + Obj.reachable_words (Obj.repr t171.str0) + 2) "Reachable words 171";
   check_reachable_words (Obj.reachable_words (Obj.repr t172)) (4 + Obj.reachable_words (Obj.repr t172.str0) + 3) "Reachable words 172";
   check_reachable_words (Obj.reachable_words (Obj.repr t173)) (3 + 3) "Reachable words 173";
   check_reachable_words (Obj.reachable_words (Obj.repr t174)) (4 + 2 + Obj.reachable_words (Obj.repr t174.str1) + 2) "Reachable words 174";
@@ -12371,10 +12336,10 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
   check_reachable_words (Obj.reachable_words (Obj.repr t179)) (4 + Obj.reachable_words (Obj.repr t179.str1) + 3) "Reachable words 179";
   check_reachable_words (Obj.reachable_words (Obj.repr t180)) (4 + 2 + Obj.reachable_words (Obj.repr t180.str1) + 3) "Reachable words 180";
   check_reachable_words (Obj.reachable_words (Obj.repr t181)) (4 + 2 + Obj.reachable_words (Obj.repr t181.str1) + 3) "Reachable words 181";
-  check_reachable_words (Obj.reachable_words (Obj.repr t182)) (5 + Obj.reachable_words (Obj.repr t182.str0) + Obj.reachable_words (Obj.repr t182.str1) + 2) "Reachable words 182";
-  check_reachable_words (Obj.reachable_words (Obj.repr t183)) (5 + Obj.reachable_words (Obj.repr t183.str0) + Obj.reachable_words (Obj.repr t183.str1) + 2) "Reachable words 183";
-  check_reachable_words (Obj.reachable_words (Obj.repr t184)) (4 + 2 + 3) "Reachable words 184";
-  check_reachable_words (Obj.reachable_words (Obj.repr t185)) (4 + 2 + 3) "Reachable words 185";
+  check_reachable_words (Obj.reachable_words (Obj.repr t182)) (4 + Obj.reachable_words (Obj.repr t182.str0) + Obj.reachable_words (Obj.repr t182.str1) + 3) "Reachable words 182";
+  check_reachable_words (Obj.reachable_words (Obj.repr t183)) (4 + Obj.reachable_words (Obj.repr t183.str0) + Obj.reachable_words (Obj.repr t183.str1) + 3) "Reachable words 183";
+  check_reachable_words (Obj.reachable_words (Obj.repr t184)) (4 + 2 + 2) "Reachable words 184";
+  check_reachable_words (Obj.reachable_words (Obj.repr t185)) (4 + 2 + 2) "Reachable words 185";
   check_reachable_words (Obj.reachable_words (Obj.repr t186)) (4 + Obj.reachable_words (Obj.repr t186.str0) + 3) "Reachable words 186";
   check_reachable_words (Obj.reachable_words (Obj.repr t187)) (4 + Obj.reachable_words (Obj.repr t187.str0) + 3) "Reachable words 187";
   check_reachable_words (Obj.reachable_words (Obj.repr t188)) (3 + 3) "Reachable words 188";
@@ -12386,10 +12351,10 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
   check_reachable_words (Obj.reachable_words (Obj.repr t194)) (4 + Obj.reachable_words (Obj.repr t194.str1) + 3) "Reachable words 194";
   check_reachable_words (Obj.reachable_words (Obj.repr t195)) (4 + Obj.reachable_words (Obj.repr t195.str1) + 3) "Reachable words 195";
   check_reachable_words (Obj.reachable_words (Obj.repr t196)) (4 + 2 + Obj.reachable_words (Obj.repr t196.str1) + 3) "Reachable words 196";
-  check_reachable_words (Obj.reachable_words (Obj.repr t197)) (5 + 2 + Obj.reachable_words (Obj.repr t197.str1) + 2) "Reachable words 197";
-  check_reachable_words (Obj.reachable_words (Obj.repr t198)) (5 + Obj.reachable_words (Obj.repr t198.str0) + Obj.reachable_words (Obj.repr t198.str1) + 2) "Reachable words 198";
-  check_reachable_words (Obj.reachable_words (Obj.repr t199)) (5 + Obj.reachable_words (Obj.repr t199.str0) + Obj.reachable_words (Obj.repr t199.str1) + 3) "Reachable words 199";
-  check_reachable_words (Obj.reachable_words (Obj.repr t200)) (4 + 2 + 3) "Reachable words 200";
+  check_reachable_words (Obj.reachable_words (Obj.repr t197)) (4 + 2 + Obj.reachable_words (Obj.repr t197.str1) + 3) "Reachable words 197";
+  check_reachable_words (Obj.reachable_words (Obj.repr t198)) (4 + Obj.reachable_words (Obj.repr t198.str0) + Obj.reachable_words (Obj.repr t198.str1) + 3) "Reachable words 198";
+  check_reachable_words (Obj.reachable_words (Obj.repr t199)) (5 + Obj.reachable_words (Obj.repr t199.str0) + Obj.reachable_words (Obj.repr t199.str1) + 2) "Reachable words 199";
+  check_reachable_words (Obj.reachable_words (Obj.repr t200)) (4 + 2 + 2) "Reachable words 200";
   check_reachable_words (Obj.reachable_words (Obj.repr t201)) (4 + 2 + 3) "Reachable words 201";
   check_reachable_words (Obj.reachable_words (Obj.repr t202)) (4 + Obj.reachable_words (Obj.repr t202.str0) + 3) "Reachable words 202";
   check_reachable_words (Obj.reachable_words (Obj.repr t203)) (4 + Obj.reachable_words (Obj.repr t203.str0) + 3) "Reachable words 203";
@@ -12402,15 +12367,15 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
   check_reachable_words (Obj.reachable_words (Obj.repr t210)) (4 + Obj.reachable_words (Obj.repr t210.str0) + Obj.reachable_words (Obj.repr t210.str1) + 3) "Reachable words 210";
   check_reachable_words (Obj.reachable_words (Obj.repr t211)) (4 + Obj.reachable_words (Obj.repr t211.str1) + 3) "Reachable words 211";
   check_reachable_words (Obj.reachable_words (Obj.repr t212)) (4 + Obj.reachable_words (Obj.repr t212.str1) + 3) "Reachable words 212";
-  check_reachable_words (Obj.reachable_words (Obj.repr t213)) (5 + 2 + Obj.reachable_words (Obj.repr t213.str1) + 2) "Reachable words 213";
-  check_reachable_words (Obj.reachable_words (Obj.repr t214)) (5 + 2 + Obj.reachable_words (Obj.repr t214.str1) + 2) "Reachable words 214";
-  check_reachable_words (Obj.reachable_words (Obj.repr t215)) (5 + Obj.reachable_words (Obj.repr t215.str0) + Obj.reachable_words (Obj.repr t215.str1) + 3) "Reachable words 215";
-  check_reachable_words (Obj.reachable_words (Obj.repr t216)) (5 + Obj.reachable_words (Obj.repr t216.str0) + Obj.reachable_words (Obj.repr t216.str1) + 3) "Reachable words 216";
+  check_reachable_words (Obj.reachable_words (Obj.repr t213)) (4 + 2 + Obj.reachable_words (Obj.repr t213.str1) + 3) "Reachable words 213";
+  check_reachable_words (Obj.reachable_words (Obj.repr t214)) (4 + 2 + Obj.reachable_words (Obj.repr t214.str1) + 3) "Reachable words 214";
+  check_reachable_words (Obj.reachable_words (Obj.repr t215)) (5 + Obj.reachable_words (Obj.repr t215.str0) + Obj.reachable_words (Obj.repr t215.str1) + 2) "Reachable words 215";
+  check_reachable_words (Obj.reachable_words (Obj.repr t216)) (5 + Obj.reachable_words (Obj.repr t216.str0) + Obj.reachable_words (Obj.repr t216.str1) + 2) "Reachable words 216";
   check_reachable_words (Obj.reachable_words (Obj.repr t217)) (4 + 2 + 3) "Reachable words 217";
   check_reachable_words (Obj.reachable_words (Obj.repr t218)) (4 + 2 + 3) "Reachable words 218";
   check_reachable_words (Obj.reachable_words (Obj.repr t219)) (4 + Obj.reachable_words (Obj.repr t219.str0) + 3) "Reachable words 219";
   check_reachable_words (Obj.reachable_words (Obj.repr t220)) (4 + Obj.reachable_words (Obj.repr t220.str0) + 3) "Reachable words 220";
-  check_reachable_words (Obj.reachable_words (Obj.repr t221)) (3 + 2) "Reachable words 221";
+  check_reachable_words (Obj.reachable_words (Obj.repr t221)) (3 + 3) "Reachable words 221";
   check_reachable_words (Obj.reachable_words (Obj.repr t222)) (4 + Obj.reachable_words (Obj.repr t222.str0) + 2 + 2) "Reachable words 222";
   check_reachable_words (Obj.reachable_words (Obj.repr t223)) (4 + Obj.reachable_words (Obj.repr t223.str1) + 2) "Reachable words 223";
   check_reachable_words (Obj.reachable_words (Obj.repr t224)) (4 + Obj.reachable_words (Obj.repr t224.str1) + 3) "Reachable words 224";
@@ -12419,16 +12384,16 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
   check_reachable_words (Obj.reachable_words (Obj.repr t227)) (4 + Obj.reachable_words (Obj.repr t227.str0) + Obj.reachable_words (Obj.repr t227.str1) + 3) "Reachable words 227";
   check_reachable_words (Obj.reachable_words (Obj.repr t228)) (4 + Obj.reachable_words (Obj.repr t228.str0) + Obj.reachable_words (Obj.repr t228.str1) + 3) "Reachable words 228";
   check_reachable_words (Obj.reachable_words (Obj.repr t229)) (4 + Obj.reachable_words (Obj.repr t229.str1) + 3) "Reachable words 229";
-  check_reachable_words (Obj.reachable_words (Obj.repr t230)) (5 + Obj.reachable_words (Obj.repr t230.str1) + 2) "Reachable words 230";
-  check_reachable_words (Obj.reachable_words (Obj.repr t231)) (5 + 2 + Obj.reachable_words (Obj.repr t231.str1) + 2) "Reachable words 231";
-  check_reachable_words (Obj.reachable_words (Obj.repr t232)) (5 + 2 + Obj.reachable_words (Obj.repr t232.str1) + 3) "Reachable words 232";
-  check_reachable_words (Obj.reachable_words (Obj.repr t233)) (5 + Obj.reachable_words (Obj.repr t233.str0) + Obj.reachable_words (Obj.repr t233.str1) + 3) "Reachable words 233";
+  check_reachable_words (Obj.reachable_words (Obj.repr t230)) (4 + Obj.reachable_words (Obj.repr t230.str1) + 3) "Reachable words 230";
+  check_reachable_words (Obj.reachable_words (Obj.repr t231)) (4 + 2 + Obj.reachable_words (Obj.repr t231.str1) + 3) "Reachable words 231";
+  check_reachable_words (Obj.reachable_words (Obj.repr t232)) (5 + 2 + Obj.reachable_words (Obj.repr t232.str1) + 2) "Reachable words 232";
+  check_reachable_words (Obj.reachable_words (Obj.repr t233)) (5 + Obj.reachable_words (Obj.repr t233.str0) + Obj.reachable_words (Obj.repr t233.str1) + 2) "Reachable words 233";
   check_reachable_words (Obj.reachable_words (Obj.repr t234)) (5 + Obj.reachable_words (Obj.repr t234.str0) + Obj.reachable_words (Obj.repr t234.str1) + 3) "Reachable words 234";
   check_reachable_words (Obj.reachable_words (Obj.repr t235)) (4 + 2 + 3) "Reachable words 235";
   check_reachable_words (Obj.reachable_words (Obj.repr t236)) (4 + 2 + 3) "Reachable words 236";
   check_reachable_words (Obj.reachable_words (Obj.repr t237)) (4 + Obj.reachable_words (Obj.repr t237.str0) + 3) "Reachable words 237";
-  check_reachable_words (Obj.reachable_words (Obj.repr t238)) (4 + Obj.reachable_words (Obj.repr t238.str0) + 2) "Reachable words 238";
-  check_reachable_words (Obj.reachable_words (Obj.repr t239)) (3 + 2) "Reachable words 239";
+  check_reachable_words (Obj.reachable_words (Obj.repr t238)) (4 + Obj.reachable_words (Obj.repr t238.str0) + 3) "Reachable words 238";
+  check_reachable_words (Obj.reachable_words (Obj.repr t239)) (3 + 3) "Reachable words 239";
   check_reachable_words (Obj.reachable_words (Obj.repr t240)) (4 + Obj.reachable_words (Obj.repr t240.str0) + 2 + 2) "Reachable words 240";
   check_reachable_words (Obj.reachable_words (Obj.repr t241)) (4 + Obj.reachable_words (Obj.repr t241.str0) + 2 + 2) "Reachable words 241";
   check_reachable_words (Obj.reachable_words (Obj.repr t242)) (4 + Obj.reachable_words (Obj.repr t242.str1) + 3) "Reachable words 242";
@@ -12437,16 +12402,16 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
   check_reachable_words (Obj.reachable_words (Obj.repr t245)) (4 + 2 + Obj.reachable_words (Obj.repr t245.str1) + 3) "Reachable words 245";
   check_reachable_words (Obj.reachable_words (Obj.repr t246)) (4 + Obj.reachable_words (Obj.repr t246.str0) + Obj.reachable_words (Obj.repr t246.str1) + 3) "Reachable words 246";
   check_reachable_words (Obj.reachable_words (Obj.repr t247)) (4 + Obj.reachable_words (Obj.repr t247.str0) + Obj.reachable_words (Obj.repr t247.str1) + 3) "Reachable words 247";
-  check_reachable_words (Obj.reachable_words (Obj.repr t248)) (5 + Obj.reachable_words (Obj.repr t248.str1) + 2) "Reachable words 248";
-  check_reachable_words (Obj.reachable_words (Obj.repr t249)) (5 + Obj.reachable_words (Obj.repr t249.str1) + 2) "Reachable words 249";
-  check_reachable_words (Obj.reachable_words (Obj.repr t250)) (5 + 2 + Obj.reachable_words (Obj.repr t250.str1) + 3) "Reachable words 250";
-  check_reachable_words (Obj.reachable_words (Obj.repr t251)) (5 + 2 + Obj.reachable_words (Obj.repr t251.str1) + 3) "Reachable words 251";
+  check_reachable_words (Obj.reachable_words (Obj.repr t248)) (4 + Obj.reachable_words (Obj.repr t248.str1) + 3) "Reachable words 248";
+  check_reachable_words (Obj.reachable_words (Obj.repr t249)) (4 + Obj.reachable_words (Obj.repr t249.str1) + 3) "Reachable words 249";
+  check_reachable_words (Obj.reachable_words (Obj.repr t250)) (5 + 2 + Obj.reachable_words (Obj.repr t250.str1) + 2) "Reachable words 250";
+  check_reachable_words (Obj.reachable_words (Obj.repr t251)) (5 + 2 + Obj.reachable_words (Obj.repr t251.str1) + 2) "Reachable words 251";
   check_reachable_words (Obj.reachable_words (Obj.repr t252)) (5 + Obj.reachable_words (Obj.repr t252.str0) + Obj.reachable_words (Obj.repr t252.str1) + 3) "Reachable words 252";
   check_reachable_words (Obj.reachable_words (Obj.repr t253)) (5 + Obj.reachable_words (Obj.repr t253.str0) + Obj.reachable_words (Obj.repr t253.str1) + 3) "Reachable words 253";
   check_reachable_words (Obj.reachable_words (Obj.repr t254)) (4 + 2 + 3) "Reachable words 254";
   check_reachable_words (Obj.reachable_words (Obj.repr t255)) (4 + 2 + 3) "Reachable words 255";
-  check_reachable_words (Obj.reachable_words (Obj.repr t256)) (4 + Obj.reachable_words (Obj.repr t256.str0) + 2) "Reachable words 256";
-  check_reachable_words (Obj.reachable_words (Obj.repr t257)) (4 + Obj.reachable_words (Obj.repr t257.str0) + 2) "Reachable words 257";
+  check_reachable_words (Obj.reachable_words (Obj.repr t256)) (4 + Obj.reachable_words (Obj.repr t256.str0) + 3) "Reachable words 256";
+  check_reachable_words (Obj.reachable_words (Obj.repr t257)) (4 + Obj.reachable_words (Obj.repr t257.str0) + 3) "Reachable words 257";
   check_reachable_words (Obj.reachable_words (Obj.repr t258)) (3 + 3) "Reachable words 258";
   check_reachable_words (Obj.reachable_words (Obj.repr t259)) (4 + Obj.reachable_words (Obj.repr t259.str0) + 2 + 2) "Reachable words 259";
   check_reachable_words (Obj.reachable_words (Obj.repr t260)) (4 + Obj.reachable_words (Obj.repr t260.str0) + 2 + 3) "Reachable words 260";
@@ -12455,16 +12420,16 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
   check_reachable_words (Obj.reachable_words (Obj.repr t263)) (4 + 2 + Obj.reachable_words (Obj.repr t263.str1) + 3) "Reachable words 263";
   check_reachable_words (Obj.reachable_words (Obj.repr t264)) (4 + 2 + Obj.reachable_words (Obj.repr t264.str1) + 3) "Reachable words 264";
   check_reachable_words (Obj.reachable_words (Obj.repr t265)) (4 + Obj.reachable_words (Obj.repr t265.str0) + Obj.reachable_words (Obj.repr t265.str1) + 3) "Reachable words 265";
-  check_reachable_words (Obj.reachable_words (Obj.repr t266)) (5 + Obj.reachable_words (Obj.repr t266.str0) + Obj.reachable_words (Obj.repr t266.str1) + 2) "Reachable words 266";
-  check_reachable_words (Obj.reachable_words (Obj.repr t267)) (5 + Obj.reachable_words (Obj.repr t267.str1) + 2) "Reachable words 267";
-  check_reachable_words (Obj.reachable_words (Obj.repr t268)) (5 + Obj.reachable_words (Obj.repr t268.str1) + 3) "Reachable words 268";
-  check_reachable_words (Obj.reachable_words (Obj.repr t269)) (5 + 2 + Obj.reachable_words (Obj.repr t269.str1) + 3) "Reachable words 269";
+  check_reachable_words (Obj.reachable_words (Obj.repr t266)) (4 + Obj.reachable_words (Obj.repr t266.str0) + Obj.reachable_words (Obj.repr t266.str1) + 3) "Reachable words 266";
+  check_reachable_words (Obj.reachable_words (Obj.repr t267)) (4 + Obj.reachable_words (Obj.repr t267.str1) + 3) "Reachable words 267";
+  check_reachable_words (Obj.reachable_words (Obj.repr t268)) (5 + Obj.reachable_words (Obj.repr t268.str1) + 2) "Reachable words 268";
+  check_reachable_words (Obj.reachable_words (Obj.repr t269)) (5 + 2 + Obj.reachable_words (Obj.repr t269.str1) + 2) "Reachable words 269";
   check_reachable_words (Obj.reachable_words (Obj.repr t270)) (5 + 2 + Obj.reachable_words (Obj.repr t270.str1) + 3) "Reachable words 270";
   check_reachable_words (Obj.reachable_words (Obj.repr t271)) (5 + Obj.reachable_words (Obj.repr t271.str0) + Obj.reachable_words (Obj.repr t271.str1) + 3) "Reachable words 271";
   check_reachable_words (Obj.reachable_words (Obj.repr t272)) (5 + Obj.reachable_words (Obj.repr t272.str0) + Obj.reachable_words (Obj.repr t272.str1) + 3) "Reachable words 272";
   check_reachable_words (Obj.reachable_words (Obj.repr t273)) (4 + 2 + 3) "Reachable words 273";
-  check_reachable_words (Obj.reachable_words (Obj.repr t274)) (4 + 2 + 2) "Reachable words 274";
-  check_reachable_words (Obj.reachable_words (Obj.repr t275)) (4 + Obj.reachable_words (Obj.repr t275.str0) + 2) "Reachable words 275";
+  check_reachable_words (Obj.reachable_words (Obj.repr t274)) (4 + 2 + 3) "Reachable words 274";
+  check_reachable_words (Obj.reachable_words (Obj.repr t275)) (4 + Obj.reachable_words (Obj.repr t275.str0) + 3) "Reachable words 275";
   check_reachable_words (Obj.reachable_words (Obj.repr t276)) (4 + Obj.reachable_words (Obj.repr t276.str0) + 3) "Reachable words 276";
   check_reachable_words (Obj.reachable_words (Obj.repr t277)) (3 + 3) "Reachable words 277";
   check_reachable_words (Obj.reachable_words (Obj.repr t278)) (4 + Obj.reachable_words (Obj.repr t278.str0) + 2 + 3) "Reachable words 278";
@@ -12473,19 +12438,19 @@ check_int64 (Stdlib__Int64_u.to_int64 a2) (Stdlib__Int64_u.to_int64 b2) ~message
   check_reachable_words (Obj.reachable_words (Obj.repr t281)) (4 + Obj.reachable_words (Obj.repr t281.str1) + 3) "Reachable words 281";
   check_reachable_words (Obj.reachable_words (Obj.repr t282)) (4 + 2 + Obj.reachable_words (Obj.repr t282.str1) + 3) "Reachable words 282";
   check_reachable_words (Obj.reachable_words (Obj.repr t283)) (4 + 2 + Obj.reachable_words (Obj.repr t283.str1) + 3) "Reachable words 283";
-  check_reachable_words (Obj.reachable_words (Obj.repr t284)) (5 + Obj.reachable_words (Obj.repr t284.str0) + Obj.reachable_words (Obj.repr t284.str1) + 2) "Reachable words 284";
-  check_reachable_words (Obj.reachable_words (Obj.repr t285)) (5 + Obj.reachable_words (Obj.repr t285.str0) + Obj.reachable_words (Obj.repr t285.str1) + 2) "Reachable words 285";
-  check_reachable_words (Obj.reachable_words (Obj.repr t286)) (5 + Obj.reachable_words (Obj.repr t286.str1) + 3) "Reachable words 286";
-  check_reachable_words (Obj.reachable_words (Obj.repr t287)) (5 + Obj.reachable_words (Obj.repr t287.str1) + 3) "Reachable words 287";
+  check_reachable_words (Obj.reachable_words (Obj.repr t284)) (4 + Obj.reachable_words (Obj.repr t284.str0) + Obj.reachable_words (Obj.repr t284.str1) + 3) "Reachable words 284";
+  check_reachable_words (Obj.reachable_words (Obj.repr t285)) (4 + Obj.reachable_words (Obj.repr t285.str0) + Obj.reachable_words (Obj.repr t285.str1) + 3) "Reachable words 285";
+  check_reachable_words (Obj.reachable_words (Obj.repr t286)) (5 + Obj.reachable_words (Obj.repr t286.str1) + 2) "Reachable words 286";
+  check_reachable_words (Obj.reachable_words (Obj.repr t287)) (5 + Obj.reachable_words (Obj.repr t287.str1) + 2) "Reachable words 287";
   check_reachable_words (Obj.reachable_words (Obj.repr t288)) (5 + 2 + Obj.reachable_words (Obj.repr t288.str1) + 3) "Reachable words 288";
   check_reachable_words (Obj.reachable_words (Obj.repr t289)) (5 + 2 + Obj.reachable_words (Obj.repr t289.str1) + 3) "Reachable words 289";
   check_reachable_words (Obj.reachable_words (Obj.repr t290)) (5 + Obj.reachable_words (Obj.repr t290.str0) + Obj.reachable_words (Obj.repr t290.str1) + 3) "Reachable words 290";
   check_reachable_words (Obj.reachable_words (Obj.repr t291)) (5 + Obj.reachable_words (Obj.repr t291.str0) + Obj.reachable_words (Obj.repr t291.str1) + 3) "Reachable words 291";
-  check_reachable_words (Obj.reachable_words (Obj.repr t292)) (4 + 2 + 2) "Reachable words 292";
-  check_reachable_words (Obj.reachable_words (Obj.repr t293)) (4 + 2 + 2) "Reachable words 293";
+  check_reachable_words (Obj.reachable_words (Obj.repr t292)) (4 + 2 + 3) "Reachable words 292";
+  check_reachable_words (Obj.reachable_words (Obj.repr t293)) (4 + 2 + 3) "Reachable words 293";
   check_reachable_words (Obj.reachable_words (Obj.repr t294)) (4 + Obj.reachable_words (Obj.repr t294.str0) + 3) "Reachable words 294";
   check_reachable_words (Obj.reachable_words (Obj.repr t295)) (4 + Obj.reachable_words (Obj.repr t295.str0) + 3) "Reachable words 295";
-  check_reachable_words (Obj.reachable_words (Obj.repr t296)) (3 + 3) "Reachable words 296";
+  check_reachable_words (Obj.reachable_words (Obj.repr t296)) (3 + 2) "Reachable words 296";
   check_reachable_words (Obj.reachable_words (Obj.repr t297)) (4 + 2 + 2) "Reachable words 297";
   check_reachable_words (Obj.reachable_words (Obj.repr t298)) (4 + 2 + 2 + 3) "Reachable words 298";
   check_reachable_words (Obj.reachable_words (Obj.repr t299)) (4 + Obj.reachable_words (Obj.repr t299.str0) + 2 + 3) "Reachable words 299";
@@ -14922,228 +14887,228 @@ let go () =
   let local_ t75 : t75 = { str0 = create_string (); float_u1 = create_float_u () } in
   let local_ t76 : t76 = { str0 = create_string (); float_u1 = create_float_u () } in
   let local_ t77 : t77 = { str0 = create_string (); float_u1 = create_float_u () } in
-  let local_ t78 : t78 = { i32_0 = create_int32_u () } in
+  let local_ t78 : t78 = { float32_u0 = create_float32_u () } in
   let local_ t79 : t79 = { str0 = create_string (); float_u1 = create_float_u () } in
-  let local_ t80 : t80 = { str0 = create_string (); i32_1 = create_int32_u () } in
-  let local_ t81 : t81 = { i32_0 = create_int32_u () } in
-  let local_ t82 : t82 = { str0 = create_string (); i32_1 = create_int32_u () } in
-  let local_ t83 : t83 = { str0 = create_string (); i32_1 = create_int32_u () } in
-  let local_ t84 : t84 = { i64_0 = create_int64_u () } in
+  let local_ t80 : t80 = { str0 = create_string (); float32_u1 = create_float32_u () } in
+  let local_ t81 : t81 = { float32_u0 = create_float32_u () } in
+  let local_ t82 : t82 = { str0 = create_string (); float32_u1 = create_float32_u () } in
+  let local_ t83 : t83 = { str0 = create_string (); float32_u1 = create_float32_u () } in
+  let local_ t84 : t84 = { i32_0 = create_int32_u () } in
   let local_ t85 : t85 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t86 : t86 = { float0 = create_float (); i32_1 = create_int32_u () } in
-  let local_ t87 : t87 = { str0 = create_string (); i32_1 = create_int32_u () } in
-  let local_ t88 : t88 = { str0 = create_string (); i64_1 = create_int64_u () } in
-  let local_ t89 : t89 = { i64_0 = create_int64_u () } in
+  let local_ t86 : t86 = { float0 = create_float (); float32_u1 = create_float32_u () } in
+  let local_ t87 : t87 = { str0 = create_string (); float32_u1 = create_float32_u () } in
+  let local_ t88 : t88 = { str0 = create_string (); i32_1 = create_int32_u () } in
+  let local_ t89 : t89 = { i32_0 = create_int32_u () } in
   let local_ t90 : t90 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () } in
   let local_ t91 : t91 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t92 : t92 = { float0 = create_float (); i32_1 = create_int32_u () } in
-  let local_ t93 : t93 = { float0 = create_float (); i32_1 = create_int32_u () } in
-  let local_ t94 : t94 = { str0 = create_string (); i64_1 = create_int64_u () } in
-  let local_ t95 : t95 = { str0 = create_string (); i64_1 = create_int64_u () } in
-  let local_ t96 : t96 = { n0 = create_nativeint_u () } in
+  let local_ t92 : t92 = { float0 = create_float (); float32_u1 = create_float32_u () } in
+  let local_ t93 : t93 = { float0 = create_float (); float32_u1 = create_float32_u () } in
+  let local_ t94 : t94 = { str0 = create_string (); i32_1 = create_int32_u () } in
+  let local_ t95 : t95 = { str0 = create_string (); i32_1 = create_int32_u () } in
+  let local_ t96 : t96 = { i64_0 = create_int64_u () } in
   let local_ t97 : t97 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () } in
   let local_ t98 : t98 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t99 : t99 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t100 : t100 = { float0 = create_float (); i32_1 = create_int32_u () } in
-  let local_ t101 : t101 = { float0 = create_float (); i64_1 = create_int64_u () } in
-  let local_ t102 : t102 = { str0 = create_string (); i64_1 = create_int64_u () } in
-  let local_ t103 : t103 = { str0 = create_string (); n1 = create_nativeint_u () } in
-  let local_ t104 : t104 = { n0 = create_nativeint_u () } in
+  let local_ t99 : t99 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t100 : t100 = { float0 = create_float (); float32_u1 = create_float32_u () } in
+  let local_ t101 : t101 = { float0 = create_float (); i32_1 = create_int32_u () } in
+  let local_ t102 : t102 = { str0 = create_string (); i32_1 = create_int32_u () } in
+  let local_ t103 : t103 = { str0 = create_string (); i64_1 = create_int64_u () } in
+  let local_ t104 : t104 = { i64_0 = create_int64_u () } in
   let local_ t105 : t105 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () } in
   let local_ t106 : t106 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t107 : t107 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t108 : t108 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t109 : t109 = { float0 = create_float (); i64_1 = create_int64_u () } in
-  let local_ t110 : t110 = { float0 = create_float (); i64_1 = create_int64_u () } in
-  let local_ t111 : t111 = { str0 = create_string (); n1 = create_nativeint_u () } in
-  let local_ t112 : t112 = { str0 = create_string (); n1 = create_nativeint_u () } in
-  let local_ t113 : t113 = { float_u0 = create_float_u (); imm1 = create_int () } in
+  let local_ t107 : t107 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t108 : t108 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t109 : t109 = { float0 = create_float (); i32_1 = create_int32_u () } in
+  let local_ t110 : t110 = { float0 = create_float (); i32_1 = create_int32_u () } in
+  let local_ t111 : t111 = { str0 = create_string (); i64_1 = create_int64_u () } in
+  let local_ t112 : t112 = { str0 = create_string (); i64_1 = create_int64_u () } in
+  let local_ t113 : t113 = { n0 = create_nativeint_u () } in
   let local_ t114 : t114 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () } in
   let local_ t115 : t115 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t116 : t116 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t117 : t117 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t118 : t118 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t119 : t119 = { float0 = create_float (); i64_1 = create_int64_u () } in
-  let local_ t120 : t120 = { float0 = create_float (); n1 = create_nativeint_u () } in
-  let local_ t121 : t121 = { str0 = create_string (); n1 = create_nativeint_u () } in
-  let local_ t122 : t122 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () } in
-  let local_ t123 : t123 = { float_u0 = create_float_u (); imm1 = create_int () } in
+  let local_ t116 : t116 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t117 : t117 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t118 : t118 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t119 : t119 = { float0 = create_float (); i32_1 = create_int32_u () } in
+  let local_ t120 : t120 = { float0 = create_float (); i64_1 = create_int64_u () } in
+  let local_ t121 : t121 = { str0 = create_string (); i64_1 = create_int64_u () } in
+  let local_ t122 : t122 = { str0 = create_string (); n1 = create_nativeint_u () } in
+  let local_ t123 : t123 = { n0 = create_nativeint_u () } in
   let local_ t124 : t124 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () } in
   let local_ t125 : t125 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t126 : t126 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t127 : t127 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t128 : t128 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t129 : t129 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t130 : t130 = { float0 = create_float (); n1 = create_nativeint_u () } in
-  let local_ t131 : t131 = { float0 = create_float (); n1 = create_nativeint_u () } in
-  let local_ t132 : t132 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () } in
-  let local_ t133 : t133 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () } in
-  let local_ t134 : t134 = { i32_0 = create_int32_u (); imm1 = create_int () } in
+  let local_ t126 : t126 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t127 : t127 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t128 : t128 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t129 : t129 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t130 : t130 = { float0 = create_float (); i64_1 = create_int64_u () } in
+  let local_ t131 : t131 = { float0 = create_float (); i64_1 = create_int64_u () } in
+  let local_ t132 : t132 = { str0 = create_string (); n1 = create_nativeint_u () } in
+  let local_ t133 : t133 = { str0 = create_string (); n1 = create_nativeint_u () } in
+  let local_ t134 : t134 = { float_u0 = create_float_u (); imm1 = create_int () } in
   let local_ t135 : t135 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () } in
   let local_ t136 : t136 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t137 : t137 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t138 : t138 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t139 : t139 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t140 : t140 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t141 : t141 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t142 : t142 = { float0 = create_float (); n1 = create_nativeint_u () } in
-  let local_ t143 : t143 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () } in
-  let local_ t144 : t144 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () } in
-  let local_ t145 : t145 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () } in
-  let local_ t146 : t146 = { i32_0 = create_int32_u (); imm1 = create_int () } in
+  let local_ t137 : t137 = { imm0 = create_int (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t138 : t138 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t139 : t139 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t140 : t140 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t141 : t141 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t142 : t142 = { float0 = create_float (); i64_1 = create_int64_u () } in
+  let local_ t143 : t143 = { float0 = create_float (); n1 = create_nativeint_u () } in
+  let local_ t144 : t144 = { str0 = create_string (); n1 = create_nativeint_u () } in
+  let local_ t145 : t145 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () } in
+  let local_ t146 : t146 = { float_u0 = create_float_u (); imm1 = create_int () } in
   let local_ t147 : t147 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () } in
   let local_ t148 : t148 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t149 : t149 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t150 : t150 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t151 : t151 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t152 : t152 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t153 : t153 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t154 : t154 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t155 : t155 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () } in
-  let local_ t156 : t156 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () } in
-  let local_ t157 : t157 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () } in
-  let local_ t158 : t158 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () } in
-  let local_ t159 : t159 = { i64_0 = create_int64_u (); imm1 = create_int () } in
+  let local_ t149 : t149 = { imm0 = create_int (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t150 : t150 = { imm0 = create_int (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t151 : t151 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t152 : t152 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t153 : t153 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t154 : t154 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t155 : t155 = { float0 = create_float (); n1 = create_nativeint_u () } in
+  let local_ t156 : t156 = { float0 = create_float (); n1 = create_nativeint_u () } in
+  let local_ t157 : t157 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () } in
+  let local_ t158 : t158 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () } in
+  let local_ t159 : t159 = { float32_u0 = create_float32_u (); imm1 = create_int () } in
   let local_ t160 : t160 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () } in
   let local_ t161 : t161 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t162 : t162 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t163 : t163 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t164 : t164 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t165 : t165 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t166 : t166 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t167 : t167 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t168 : t168 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
-  let local_ t169 : t169 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () } in
-  let local_ t170 : t170 = { float0 = create_float (); i32_1 = create_int32_u (); imm2 = create_int () } in
-  let local_ t171 : t171 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () } in
-  let local_ t172 : t172 = { str0 = create_string (); i64_1 = create_int64_u (); imm2 = create_int () } in
-  let local_ t173 : t173 = { i64_0 = create_int64_u (); imm1 = create_int () } in
+  let local_ t162 : t162 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t163 : t163 = { imm0 = create_int (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t164 : t164 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t165 : t165 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t166 : t166 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t167 : t167 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t168 : t168 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () } in
+  let local_ t169 : t169 = { float0 = create_float (); n1 = create_nativeint_u () } in
+  let local_ t170 : t170 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () } in
+  let local_ t171 : t171 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () } in
+  let local_ t172 : t172 = { str0 = create_string (); float32_u1 = create_float32_u (); imm2 = create_int () } in
+  let local_ t173 : t173 = { float32_u0 = create_float32_u (); imm1 = create_int () } in
   let local_ t174 : t174 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () } in
   let local_ t175 : t175 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t176 : t176 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t177 : t177 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t178 : t178 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t179 : t179 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t180 : t180 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t181 : t181 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t182 : t182 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
-  let local_ t183 : t183 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
-  let local_ t184 : t184 = { float0 = create_float (); i32_1 = create_int32_u (); imm2 = create_int () } in
-  let local_ t185 : t185 = { float0 = create_float (); i32_1 = create_int32_u (); imm2 = create_int () } in
-  let local_ t186 : t186 = { str0 = create_string (); i64_1 = create_int64_u (); imm2 = create_int () } in
-  let local_ t187 : t187 = { str0 = create_string (); i64_1 = create_int64_u (); imm2 = create_int () } in
-  let local_ t188 : t188 = { n0 = create_nativeint_u (); imm1 = create_int () } in
+  let local_ t176 : t176 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t177 : t177 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t178 : t178 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t179 : t179 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t180 : t180 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t181 : t181 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t182 : t182 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () } in
+  let local_ t183 : t183 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () } in
+  let local_ t184 : t184 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () } in
+  let local_ t185 : t185 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () } in
+  let local_ t186 : t186 = { str0 = create_string (); float32_u1 = create_float32_u (); imm2 = create_int () } in
+  let local_ t187 : t187 = { str0 = create_string (); float32_u1 = create_float32_u (); imm2 = create_int () } in
+  let local_ t188 : t188 = { i32_0 = create_int32_u (); imm1 = create_int () } in
   let local_ t189 : t189 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () } in
   let local_ t190 : t190 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t191 : t191 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t192 : t192 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t193 : t193 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t194 : t194 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t195 : t195 = { imm0 = create_int (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t196 : t196 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t197 : t197 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
-  let local_ t198 : t198 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
-  let local_ t199 : t199 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () } in
-  let local_ t200 : t200 = { float0 = create_float (); i32_1 = create_int32_u (); imm2 = create_int () } in
-  let local_ t201 : t201 = { float0 = create_float (); i64_1 = create_int64_u (); imm2 = create_int () } in
-  let local_ t202 : t202 = { str0 = create_string (); i64_1 = create_int64_u (); imm2 = create_int () } in
-  let local_ t203 : t203 = { str0 = create_string (); n1 = create_nativeint_u (); imm2 = create_int () } in
-  let local_ t204 : t204 = { n0 = create_nativeint_u (); imm1 = create_int () } in
+  let local_ t191 : t191 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t192 : t192 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t193 : t193 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t194 : t194 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t195 : t195 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t196 : t196 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t197 : t197 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () } in
+  let local_ t198 : t198 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () } in
+  let local_ t199 : t199 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
+  let local_ t200 : t200 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () } in
+  let local_ t201 : t201 = { float0 = create_float (); float32_u1 = create_float32_u (); imm2 = create_int () } in
+  let local_ t202 : t202 = { str0 = create_string (); float32_u1 = create_float32_u (); imm2 = create_int () } in
+  let local_ t203 : t203 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () } in
+  let local_ t204 : t204 = { i32_0 = create_int32_u (); imm1 = create_int () } in
   let local_ t205 : t205 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () } in
   let local_ t206 : t206 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t207 : t207 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t208 : t208 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t209 : t209 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t210 : t210 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t211 : t211 = { imm0 = create_int (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t212 : t212 = { imm0 = create_int (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t213 : t213 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
-  let local_ t214 : t214 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
-  let local_ t215 : t215 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () } in
-  let local_ t216 : t216 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () } in
-  let local_ t217 : t217 = { float0 = create_float (); i64_1 = create_int64_u (); imm2 = create_int () } in
-  let local_ t218 : t218 = { float0 = create_float (); i64_1 = create_int64_u (); imm2 = create_int () } in
-  let local_ t219 : t219 = { str0 = create_string (); n1 = create_nativeint_u (); imm2 = create_int () } in
-  let local_ t220 : t220 = { str0 = create_string (); n1 = create_nativeint_u (); imm2 = create_int () } in
-  let local_ t221 : t221 = { float_u0 = create_float_u (); imm1 = create_int () } in
+  let local_ t207 : t207 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t208 : t208 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t209 : t209 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t210 : t210 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t211 : t211 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t212 : t212 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t213 : t213 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () } in
+  let local_ t214 : t214 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () } in
+  let local_ t215 : t215 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
+  let local_ t216 : t216 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
+  let local_ t217 : t217 = { float0 = create_float (); float32_u1 = create_float32_u (); imm2 = create_int () } in
+  let local_ t218 : t218 = { float0 = create_float (); float32_u1 = create_float32_u (); imm2 = create_int () } in
+  let local_ t219 : t219 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () } in
+  let local_ t220 : t220 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () } in
+  let local_ t221 : t221 = { i64_0 = create_int64_u (); imm1 = create_int () } in
   let local_ t222 : t222 = { str0 = create_string (); float1 = create_float (); float_u2 = create_float_u () } in
   let local_ t223 : t223 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t224 : t224 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t225 : t225 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t226 : t226 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t227 : t227 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t228 : t228 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t229 : t229 = { imm0 = create_int (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t230 : t230 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
-  let local_ t231 : t231 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
-  let local_ t232 : t232 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () } in
-  let local_ t233 : t233 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () } in
-  let local_ t234 : t234 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u (); imm3 = create_int () } in
-  let local_ t235 : t235 = { float0 = create_float (); i64_1 = create_int64_u (); imm2 = create_int () } in
-  let local_ t236 : t236 = { float0 = create_float (); n1 = create_nativeint_u (); imm2 = create_int () } in
-  let local_ t237 : t237 = { str0 = create_string (); n1 = create_nativeint_u (); imm2 = create_int () } in
-  let local_ t238 : t238 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () } in
-  let local_ t239 : t239 = { float_u0 = create_float_u (); imm1 = create_int () } in
+  let local_ t224 : t224 = { imm0 = create_int (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t225 : t225 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t226 : t226 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t227 : t227 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t228 : t228 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t229 : t229 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t230 : t230 = { imm0 = create_int (); str1 = create_string (); n2 = create_nativeint_u () } in
+  let local_ t231 : t231 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () } in
+  let local_ t232 : t232 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
+  let local_ t233 : t233 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
+  let local_ t234 : t234 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u (); imm3 = create_int () } in
+  let local_ t235 : t235 = { float0 = create_float (); float32_u1 = create_float32_u (); imm2 = create_int () } in
+  let local_ t236 : t236 = { float0 = create_float (); i32_1 = create_int32_u (); imm2 = create_int () } in
+  let local_ t237 : t237 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () } in
+  let local_ t238 : t238 = { str0 = create_string (); i64_1 = create_int64_u (); imm2 = create_int () } in
+  let local_ t239 : t239 = { i64_0 = create_int64_u (); imm1 = create_int () } in
   let local_ t240 : t240 = { str0 = create_string (); float1 = create_float (); float_u2 = create_float_u () } in
   let local_ t241 : t241 = { str0 = create_string (); float1 = create_float (); float_u2 = create_float_u () } in
-  let local_ t242 : t242 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t243 : t243 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t244 : t244 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t245 : t245 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t246 : t246 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t247 : t247 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t248 : t248 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
-  let local_ t249 : t249 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
-  let local_ t250 : t250 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () } in
-  let local_ t251 : t251 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () } in
-  let local_ t252 : t252 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u (); imm3 = create_int () } in
-  let local_ t253 : t253 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u (); imm3 = create_int () } in
-  let local_ t254 : t254 = { float0 = create_float (); n1 = create_nativeint_u (); imm2 = create_int () } in
-  let local_ t255 : t255 = { float0 = create_float (); n1 = create_nativeint_u (); imm2 = create_int () } in
-  let local_ t256 : t256 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () } in
-  let local_ t257 : t257 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () } in
-  let local_ t258 : t258 = { i32_0 = create_int32_u (); imm1 = create_int () } in
+  let local_ t242 : t242 = { imm0 = create_int (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t243 : t243 = { imm0 = create_int (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t244 : t244 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t245 : t245 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t246 : t246 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t247 : t247 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t248 : t248 = { imm0 = create_int (); str1 = create_string (); n2 = create_nativeint_u () } in
+  let local_ t249 : t249 = { imm0 = create_int (); str1 = create_string (); n2 = create_nativeint_u () } in
+  let local_ t250 : t250 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
+  let local_ t251 : t251 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
+  let local_ t252 : t252 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u (); imm3 = create_int () } in
+  let local_ t253 : t253 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u (); imm3 = create_int () } in
+  let local_ t254 : t254 = { float0 = create_float (); i32_1 = create_int32_u (); imm2 = create_int () } in
+  let local_ t255 : t255 = { float0 = create_float (); i32_1 = create_int32_u (); imm2 = create_int () } in
+  let local_ t256 : t256 = { str0 = create_string (); i64_1 = create_int64_u (); imm2 = create_int () } in
+  let local_ t257 : t257 = { str0 = create_string (); i64_1 = create_int64_u (); imm2 = create_int () } in
+  let local_ t258 : t258 = { n0 = create_nativeint_u (); imm1 = create_int () } in
   let local_ t259 : t259 = { str0 = create_string (); float1 = create_float (); float_u2 = create_float_u () } in
-  let local_ t260 : t260 = { str0 = create_string (); float1 = create_float (); i32_2 = create_int32_u () } in
-  let local_ t261 : t261 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t262 : t262 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t263 : t263 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t264 : t264 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t265 : t265 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t266 : t266 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
-  let local_ t267 : t267 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
-  let local_ t268 : t268 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () } in
-  let local_ t269 : t269 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () } in
-  let local_ t270 : t270 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u (); imm3 = create_int () } in
-  let local_ t271 : t271 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u (); imm3 = create_int () } in
-  let local_ t272 : t272 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u (); imm3 = create_int () } in
-  let local_ t273 : t273 = { float0 = create_float (); n1 = create_nativeint_u (); imm2 = create_int () } in
-  let local_ t274 : t274 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () } in
-  let local_ t275 : t275 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () } in
-  let local_ t276 : t276 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () } in
-  let local_ t277 : t277 = { i32_0 = create_int32_u (); imm1 = create_int () } in
-  let local_ t278 : t278 = { str0 = create_string (); float1 = create_float (); i32_2 = create_int32_u () } in
-  let local_ t279 : t279 = { str0 = create_string (); float1 = create_float (); i32_2 = create_int32_u () } in
-  let local_ t280 : t280 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t281 : t281 = { imm0 = create_int (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t282 : t282 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t283 : t283 = { float0 = create_float (); str1 = create_string (); n2 = create_nativeint_u () } in
-  let local_ t284 : t284 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
-  let local_ t285 : t285 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
-  let local_ t286 : t286 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () } in
-  let local_ t287 : t287 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () } in
-  let local_ t288 : t288 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u (); imm3 = create_int () } in
-  let local_ t289 : t289 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u (); imm3 = create_int () } in
-  let local_ t290 : t290 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u (); imm3 = create_int () } in
-  let local_ t291 : t291 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u (); imm3 = create_int () } in
-  let local_ t292 : t292 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () } in
-  let local_ t293 : t293 = { float0 = create_float (); float_u1 = create_float_u (); imm2 = create_int () } in
-  let local_ t294 : t294 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () } in
-  let local_ t295 : t295 = { str0 = create_string (); i32_1 = create_int32_u (); imm2 = create_int () } in
-  let local_ t296 : t296 = { i64_0 = create_int64_u (); imm1 = create_int () } in
+  let local_ t260 : t260 = { str0 = create_string (); float1 = create_float (); float32_u2 = create_float32_u () } in
+  let local_ t261 : t261 = { imm0 = create_int (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t262 : t262 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t263 : t263 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t264 : t264 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t265 : t265 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t266 : t266 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () } in
+  let local_ t267 : t267 = { imm0 = create_int (); str1 = create_string (); n2 = create_nativeint_u () } in
+  let local_ t268 : t268 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
+  let local_ t269 : t269 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
+  let local_ t270 : t270 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u (); imm3 = create_int () } in
+  let local_ t271 : t271 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u (); imm3 = create_int () } in
+  let local_ t272 : t272 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () } in
+  let local_ t273 : t273 = { float0 = create_float (); i32_1 = create_int32_u (); imm2 = create_int () } in
+  let local_ t274 : t274 = { float0 = create_float (); i64_1 = create_int64_u (); imm2 = create_int () } in
+  let local_ t275 : t275 = { str0 = create_string (); i64_1 = create_int64_u (); imm2 = create_int () } in
+  let local_ t276 : t276 = { str0 = create_string (); n1 = create_nativeint_u (); imm2 = create_int () } in
+  let local_ t277 : t277 = { n0 = create_nativeint_u (); imm1 = create_int () } in
+  let local_ t278 : t278 = { str0 = create_string (); float1 = create_float (); float32_u2 = create_float32_u () } in
+  let local_ t279 : t279 = { str0 = create_string (); float1 = create_float (); float32_u2 = create_float32_u () } in
+  let local_ t280 : t280 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t281 : t281 = { imm0 = create_int (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t282 : t282 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t283 : t283 = { float0 = create_float (); str1 = create_string (); i64_2 = create_int64_u () } in
+  let local_ t284 : t284 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () } in
+  let local_ t285 : t285 = { str0 = create_string (); str1 = create_string (); n2 = create_nativeint_u () } in
+  let local_ t286 : t286 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
+  let local_ t287 : t287 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u (); imm3 = create_int () } in
+  let local_ t288 : t288 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u (); imm3 = create_int () } in
+  let local_ t289 : t289 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u (); imm3 = create_int () } in
+  let local_ t290 : t290 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () } in
+  let local_ t291 : t291 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u (); imm3 = create_int () } in
+  let local_ t292 : t292 = { float0 = create_float (); i64_1 = create_int64_u (); imm2 = create_int () } in
+  let local_ t293 : t293 = { float0 = create_float (); i64_1 = create_int64_u (); imm2 = create_int () } in
+  let local_ t294 : t294 = { str0 = create_string (); n1 = create_nativeint_u (); imm2 = create_int () } in
+  let local_ t295 : t295 = { str0 = create_string (); n1 = create_nativeint_u (); imm2 = create_int () } in
+  let local_ t296 : t296 = { float_u0 = create_float_u (); imm1 = create_int () } in
   let local_ t297 : t297 = { imm0 = create_int (); float1 = create_float (); float_u2 = create_float_u () } in
-  let local_ t298 : t298 = { float0 = create_float (); float1 = create_float (); i32_2 = create_int32_u () } in
-  let local_ t299 : t299 = { str0 = create_string (); float1 = create_float (); i32_2 = create_int32_u () } in
+  let local_ t298 : t298 = { float0 = create_float (); float1 = create_float (); float32_u2 = create_float32_u () } in
+  let local_ t299 : t299 = { str0 = create_string (); float1 = create_float (); float32_u2 = create_float32_u () } in
   let local_ t300_A : t300 = (A (create_float_u ())) in
   let local_ t301_A : t301 = (A (create_float_u ())) in
   let local_ t301_B : t301 = (B (create_float_u ())) in
@@ -15153,13 +15118,13 @@ let go () =
   let local_ t303_C : t303 = (C (create_float_u ())) in
   let local_ t304_A : t304 = (A (create_string (), create_float_u ())) in
   let local_ t304_B : t304 = (B (create_float_u ())) in
-  let local_ t305_A : t305 = (A (create_int32_u ())) in
+  let local_ t305_A : t305 = (A (create_float32_u ())) in
   let local_ t306_A : t306 = (A (create_float_u ())) in
   let local_ t306_B : t306 = (B (create_string (), create_float_u ())) in
   let local_ t307_A : t307 = (A (create_string (), create_float_u ())) in
   let local_ t307_B : t307 = (B (create_float_u ())) in
   let local_ t307_C : t307 = (C (create_float_u ())) in
-  let local_ t308_A : t308 = (A (create_int32_u ())) in
+  let local_ t308_A : t308 = (A (create_float32_u ())) in
   let local_ t308_B : t308 = (B (create_float_u ())) in
   let local_ t309_A : t309 = (A (create_float (), create_float_u ())) in
   let local_ t310_A : t310 = (A (create_float_u ())) in
@@ -15168,12 +15133,12 @@ let go () =
   let local_ t310_D : t310 = (D (create_float_u ())) in
   let local_ t311_A : t311 = (A (create_string (), create_float_u ())) in
   let local_ t311_B : t311 = (B (create_string (), create_float_u ())) in
-  let local_ t312_A : t312 = (A (create_int32_u ())) in
+  let local_ t312_A : t312 = (A (create_float32_u ())) in
   let local_ t312_B : t312 = (B (create_float_u ())) in
   let local_ t312_C : t312 = (C (create_float_u ())) in
   let local_ t313_A : t313 = (A (create_float (), create_float_u ())) in
   let local_ t313_B : t313 = (B (create_float_u ())) in
-  let local_ t314_A : t314 = (A (create_string (), create_int32_u ())) in
+  let local_ t314_A : t314 = (A (create_string (), create_float32_u ())) in
   let local_ t315_A : t315 = (A (create_float_u ())) in
   let local_ t315_B : t315 = (B (create_string (), create_float_u ())) in
   let local_ t315_C : t315 = (C (create_float_u ())) in
@@ -15181,51 +15146,51 @@ let go () =
   let local_ t316_B : t316 = (B (create_float_u ())) in
   let local_ t316_C : t316 = (C (create_float_u ())) in
   let local_ t316_D : t316 = (D (create_float_u ())) in
-  let local_ t317_A : t317 = (A (create_int32_u ())) in
+  let local_ t317_A : t317 = (A (create_float32_u ())) in
   let local_ t317_B : t317 = (B (create_string (), create_float_u ())) in
   let local_ t318_A : t318 = (A (create_float (), create_float_u ())) in
   let local_ t318_B : t318 = (B (create_float_u ())) in
   let local_ t318_C : t318 = (C (create_float_u ())) in
-  let local_ t319_A : t319 = (A (create_string (), create_int32_u ())) in
+  let local_ t319_A : t319 = (A (create_string (), create_float32_u ())) in
   let local_ t319_B : t319 = (B (create_float_u ())) in
-  let local_ t320_A : t320 = (A (create_int64_u ())) in
+  let local_ t320_A : t320 = (A (create_int32_u ())) in
   let local_ t321_A : t321 = (A (create_float_u ())) in
-  let local_ t321_B : t321 = (B (create_int32_u ())) in
+  let local_ t321_B : t321 = (B (create_float32_u ())) in
   let local_ t322_A : t322 = (A (create_string (), create_float_u ())) in
   let local_ t322_B : t322 = (B (create_string (), create_float_u ())) in
   let local_ t322_C : t322 = (C (create_float_u ())) in
-  let local_ t323_A : t323 = (A (create_int32_u ())) in
+  let local_ t323_A : t323 = (A (create_float32_u ())) in
   let local_ t323_B : t323 = (B (create_float_u ())) in
   let local_ t323_C : t323 = (C (create_float_u ())) in
   let local_ t323_D : t323 = (D (create_float_u ())) in
   let local_ t324_A : t324 = (A (create_float (), create_float_u ())) in
   let local_ t324_B : t324 = (B (create_string (), create_float_u ())) in
-  let local_ t325_A : t325 = (A (create_string (), create_int32_u ())) in
+  let local_ t325_A : t325 = (A (create_string (), create_float32_u ())) in
   let local_ t325_B : t325 = (B (create_float_u ())) in
   let local_ t325_C : t325 = (C (create_float_u ())) in
-  let local_ t326_A : t326 = (A (create_int64_u ())) in
+  let local_ t326_A : t326 = (A (create_int32_u ())) in
   let local_ t326_B : t326 = (B (create_float_u ())) in
   let local_ t327_A : t327 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t328_A : t328 = (A (create_float_u ())) in
   let local_ t328_B : t328 = (B (create_float_u ())) in
   let local_ t328_C : t328 = (C (create_string (), create_float_u ())) in
   let local_ t329_A : t329 = (A (create_string (), create_float_u ())) in
-  let local_ t329_B : t329 = (B (create_int32_u ())) in
-  let local_ t330_A : t330 = (A (create_int32_u ())) in
+  let local_ t329_B : t329 = (B (create_float32_u ())) in
+  let local_ t330_A : t330 = (A (create_float32_u ())) in
   let local_ t330_B : t330 = (B (create_string (), create_float_u ())) in
   let local_ t330_C : t330 = (C (create_float_u ())) in
   let local_ t331_A : t331 = (A (create_float (), create_float_u ())) in
   let local_ t331_B : t331 = (B (create_float_u ())) in
   let local_ t331_C : t331 = (C (create_float_u ())) in
   let local_ t331_D : t331 = (D (create_float_u ())) in
-  let local_ t332_A : t332 = (A (create_string (), create_int32_u ())) in
+  let local_ t332_A : t332 = (A (create_string (), create_float32_u ())) in
   let local_ t332_B : t332 = (B (create_string (), create_float_u ())) in
-  let local_ t333_A : t333 = (A (create_int64_u ())) in
+  let local_ t333_A : t333 = (A (create_int32_u ())) in
   let local_ t333_B : t333 = (B (create_float_u ())) in
   let local_ t333_C : t333 = (C (create_float_u ())) in
   let local_ t334_A : t334 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t334_B : t334 = (B (create_float_u ())) in
-  let local_ t335_A : t335 = (A (create_float (), create_int32_u ())) in
+  let local_ t335_A : t335 = (A (create_float (), create_float32_u ())) in
   let local_ t336_A : t336 = (A (create_float_u ())) in
   let local_ t336_B : t336 = (B (create_string (), create_float_u ())) in
   let local_ t336_C : t336 = (C (create_float_u ())) in
@@ -15233,77 +15198,77 @@ let go () =
   let local_ t337_A : t337 = (A (create_string (), create_float_u ())) in
   let local_ t337_B : t337 = (B (create_float_u ())) in
   let local_ t337_C : t337 = (C (create_string (), create_float_u ())) in
-  let local_ t338_A : t338 = (A (create_int32_u ())) in
-  let local_ t338_B : t338 = (B (create_int32_u ())) in
+  let local_ t338_A : t338 = (A (create_float32_u ())) in
+  let local_ t338_B : t338 = (B (create_float32_u ())) in
   let local_ t339_A : t339 = (A (create_float (), create_float_u ())) in
   let local_ t339_B : t339 = (B (create_string (), create_float_u ())) in
   let local_ t339_C : t339 = (C (create_float_u ())) in
-  let local_ t340_A : t340 = (A (create_string (), create_int32_u ())) in
+  let local_ t340_A : t340 = (A (create_string (), create_float32_u ())) in
   let local_ t340_B : t340 = (B (create_float_u ())) in
   let local_ t340_C : t340 = (C (create_float_u ())) in
   let local_ t340_D : t340 = (D (create_float_u ())) in
-  let local_ t341_A : t341 = (A (create_int64_u ())) in
+  let local_ t341_A : t341 = (A (create_int32_u ())) in
   let local_ t341_B : t341 = (B (create_string (), create_float_u ())) in
   let local_ t342_A : t342 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t342_B : t342 = (B (create_float_u ())) in
   let local_ t342_C : t342 = (C (create_float_u ())) in
-  let local_ t343_A : t343 = (A (create_float (), create_int32_u ())) in
+  let local_ t343_A : t343 = (A (create_float (), create_float32_u ())) in
   let local_ t343_B : t343 = (B (create_float_u ())) in
-  let local_ t344_A : t344 = (A (create_string (), create_int64_u ())) in
+  let local_ t344_A : t344 = (A (create_string (), create_int32_u ())) in
   let local_ t345_A : t345 = (A (create_float_u ())) in
-  let local_ t345_B : t345 = (B (create_int32_u ())) in
+  let local_ t345_B : t345 = (B (create_float32_u ())) in
   let local_ t345_C : t345 = (C (create_float_u ())) in
   let local_ t346_A : t346 = (A (create_string (), create_float_u ())) in
   let local_ t346_B : t346 = (B (create_string (), create_float_u ())) in
   let local_ t346_C : t346 = (C (create_float_u ())) in
   let local_ t346_D : t346 = (D (create_float_u ())) in
-  let local_ t347_A : t347 = (A (create_int32_u ())) in
+  let local_ t347_A : t347 = (A (create_float32_u ())) in
   let local_ t347_B : t347 = (B (create_float_u ())) in
   let local_ t347_C : t347 = (C (create_string (), create_float_u ())) in
   let local_ t348_A : t348 = (A (create_float (), create_float_u ())) in
-  let local_ t348_B : t348 = (B (create_int32_u ())) in
-  let local_ t349_A : t349 = (A (create_string (), create_int32_u ())) in
+  let local_ t348_B : t348 = (B (create_float32_u ())) in
+  let local_ t349_A : t349 = (A (create_string (), create_float32_u ())) in
   let local_ t349_B : t349 = (B (create_string (), create_float_u ())) in
   let local_ t349_C : t349 = (C (create_float_u ())) in
-  let local_ t350_A : t350 = (A (create_int64_u ())) in
+  let local_ t350_A : t350 = (A (create_int32_u ())) in
   let local_ t350_B : t350 = (B (create_float_u ())) in
   let local_ t350_C : t350 = (C (create_float_u ())) in
   let local_ t350_D : t350 = (D (create_float_u ())) in
   let local_ t351_A : t351 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t351_B : t351 = (B (create_string (), create_float_u ())) in
-  let local_ t352_A : t352 = (A (create_float (), create_int32_u ())) in
+  let local_ t352_A : t352 = (A (create_float (), create_float32_u ())) in
   let local_ t352_B : t352 = (B (create_float_u ())) in
   let local_ t352_C : t352 = (C (create_float_u ())) in
-  let local_ t353_A : t353 = (A (create_string (), create_int64_u ())) in
+  let local_ t353_A : t353 = (A (create_string (), create_int32_u ())) in
   let local_ t353_B : t353 = (B (create_float_u ())) in
-  let local_ t354_A : t354 = (A (create_nativeint_u ())) in
+  let local_ t354_A : t354 = (A (create_int64_u ())) in
   let local_ t355_A : t355 = (A (create_float_u ())) in
   let local_ t355_B : t355 = (B (create_float (), create_float_u ())) in
   let local_ t356_A : t356 = (A (create_string (), create_float_u ())) in
-  let local_ t356_B : t356 = (B (create_int32_u ())) in
+  let local_ t356_B : t356 = (B (create_float32_u ())) in
   let local_ t356_C : t356 = (C (create_float_u ())) in
-  let local_ t357_A : t357 = (A (create_int32_u ())) in
+  let local_ t357_A : t357 = (A (create_float32_u ())) in
   let local_ t357_B : t357 = (B (create_string (), create_float_u ())) in
   let local_ t357_C : t357 = (C (create_float_u ())) in
   let local_ t357_D : t357 = (D (create_float_u ())) in
   let local_ t358_A : t358 = (A (create_float (), create_float_u ())) in
   let local_ t358_B : t358 = (B (create_float_u ())) in
   let local_ t358_C : t358 = (C (create_string (), create_float_u ())) in
-  let local_ t359_A : t359 = (A (create_string (), create_int32_u ())) in
-  let local_ t359_B : t359 = (B (create_int32_u ())) in
-  let local_ t360_A : t360 = (A (create_int64_u ())) in
+  let local_ t359_A : t359 = (A (create_string (), create_float32_u ())) in
+  let local_ t359_B : t359 = (B (create_float32_u ())) in
+  let local_ t360_A : t360 = (A (create_int32_u ())) in
   let local_ t360_B : t360 = (B (create_string (), create_float_u ())) in
   let local_ t360_C : t360 = (C (create_float_u ())) in
   let local_ t361_A : t361 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t361_B : t361 = (B (create_float_u ())) in
   let local_ t361_C : t361 = (C (create_float_u ())) in
   let local_ t361_D : t361 = (D (create_float_u ())) in
-  let local_ t362_A : t362 = (A (create_float (), create_int32_u ())) in
+  let local_ t362_A : t362 = (A (create_float (), create_float32_u ())) in
   let local_ t362_B : t362 = (B (create_string (), create_float_u ())) in
-  let local_ t363_A : t363 = (A (create_string (), create_int64_u ())) in
+  let local_ t363_A : t363 = (A (create_string (), create_int32_u ())) in
   let local_ t363_B : t363 = (B (create_float_u ())) in
   let local_ t363_C : t363 = (C (create_float_u ())) in
-  let local_ t364_A : t364 = (A (create_nativeint_u ())) in
+  let local_ t364_A : t364 = (A (create_int64_u ())) in
   let local_ t364_B : t364 = (B (create_float_u ())) in
   let local_ t365_A : t365 = (A (create_float (), create_string (), create_float_u ())) in
   let local_ t366_A : t366 = (A (create_float_u ())) in
@@ -15313,33 +15278,33 @@ let go () =
   let local_ t366_E : t366 = (E (create_float_u ())) in
   let local_ t367_A : t367 = (A (create_string (), create_float_u ())) in
   let local_ t367_B : t367 = (B (create_float (), create_float_u ())) in
-  let local_ t368_A : t368 = (A (create_int32_u ())) in
-  let local_ t368_B : t368 = (B (create_int32_u ())) in
+  let local_ t368_A : t368 = (A (create_float32_u ())) in
+  let local_ t368_B : t368 = (B (create_float32_u ())) in
   let local_ t368_C : t368 = (C (create_float_u ())) in
   let local_ t369_A : t369 = (A (create_float (), create_float_u ())) in
   let local_ t369_B : t369 = (B (create_string (), create_float_u ())) in
   let local_ t369_C : t369 = (C (create_float_u ())) in
   let local_ t369_D : t369 = (D (create_float_u ())) in
-  let local_ t370_A : t370 = (A (create_string (), create_int32_u ())) in
+  let local_ t370_A : t370 = (A (create_string (), create_float32_u ())) in
   let local_ t370_B : t370 = (B (create_float_u ())) in
   let local_ t370_C : t370 = (C (create_string (), create_float_u ())) in
-  let local_ t371_A : t371 = (A (create_int64_u ())) in
-  let local_ t371_B : t371 = (B (create_int32_u ())) in
+  let local_ t371_A : t371 = (A (create_int32_u ())) in
+  let local_ t371_B : t371 = (B (create_float32_u ())) in
   let local_ t372_A : t372 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t372_B : t372 = (B (create_string (), create_float_u ())) in
   let local_ t372_C : t372 = (C (create_float_u ())) in
-  let local_ t373_A : t373 = (A (create_float (), create_int32_u ())) in
+  let local_ t373_A : t373 = (A (create_float (), create_float32_u ())) in
   let local_ t373_B : t373 = (B (create_float_u ())) in
   let local_ t373_C : t373 = (C (create_float_u ())) in
   let local_ t373_D : t373 = (D (create_float_u ())) in
-  let local_ t374_A : t374 = (A (create_string (), create_int64_u ())) in
+  let local_ t374_A : t374 = (A (create_string (), create_int32_u ())) in
   let local_ t374_B : t374 = (B (create_string (), create_float_u ())) in
-  let local_ t375_A : t375 = (A (create_nativeint_u ())) in
+  let local_ t375_A : t375 = (A (create_int64_u ())) in
   let local_ t375_B : t375 = (B (create_float_u ())) in
   let local_ t375_C : t375 = (C (create_float_u ())) in
   let local_ t376_A : t376 = (A (create_float (), create_string (), create_float_u ())) in
   let local_ t376_B : t376 = (B (create_float_u ())) in
-  let local_ t377_A : t377 = (A (create_string (), create_string (), create_int32_u ())) in
+  let local_ t377_A : t377 = (A (create_string (), create_string (), create_float32_u ())) in
   let local_ t378_A : t378 = (A (create_float_u ())) in
   let local_ t378_B : t378 = (B (create_string (), create_float_u ())) in
   let local_ t378_C : t378 = (C (create_string (), create_float_u ())) in
@@ -15348,84 +15313,84 @@ let go () =
   let local_ t379_C : t379 = (C (create_float_u ())) in
   let local_ t379_D : t379 = (D (create_float_u ())) in
   let local_ t379_E : t379 = (E (create_float_u ())) in
-  let local_ t380_A : t380 = (A (create_int32_u ())) in
+  let local_ t380_A : t380 = (A (create_float32_u ())) in
   let local_ t380_B : t380 = (B (create_float (), create_float_u ())) in
   let local_ t381_A : t381 = (A (create_float (), create_float_u ())) in
-  let local_ t381_B : t381 = (B (create_int32_u ())) in
+  let local_ t381_B : t381 = (B (create_float32_u ())) in
   let local_ t381_C : t381 = (C (create_float_u ())) in
-  let local_ t382_A : t382 = (A (create_string (), create_int32_u ())) in
+  let local_ t382_A : t382 = (A (create_string (), create_float32_u ())) in
   let local_ t382_B : t382 = (B (create_string (), create_float_u ())) in
   let local_ t382_C : t382 = (C (create_float_u ())) in
   let local_ t382_D : t382 = (D (create_float_u ())) in
-  let local_ t383_A : t383 = (A (create_int64_u ())) in
+  let local_ t383_A : t383 = (A (create_int32_u ())) in
   let local_ t383_B : t383 = (B (create_float_u ())) in
   let local_ t383_C : t383 = (C (create_string (), create_float_u ())) in
   let local_ t384_A : t384 = (A (create_string (), create_string (), create_float_u ())) in
-  let local_ t384_B : t384 = (B (create_int32_u ())) in
-  let local_ t385_A : t385 = (A (create_float (), create_int32_u ())) in
+  let local_ t384_B : t384 = (B (create_float32_u ())) in
+  let local_ t385_A : t385 = (A (create_float (), create_float32_u ())) in
   let local_ t385_B : t385 = (B (create_string (), create_float_u ())) in
   let local_ t385_C : t385 = (C (create_float_u ())) in
-  let local_ t386_A : t386 = (A (create_string (), create_int64_u ())) in
+  let local_ t386_A : t386 = (A (create_string (), create_int32_u ())) in
   let local_ t386_B : t386 = (B (create_float_u ())) in
   let local_ t386_C : t386 = (C (create_float_u ())) in
   let local_ t386_D : t386 = (D (create_float_u ())) in
-  let local_ t387_A : t387 = (A (create_nativeint_u ())) in
+  let local_ t387_A : t387 = (A (create_int64_u ())) in
   let local_ t387_B : t387 = (B (create_string (), create_float_u ())) in
   let local_ t388_A : t388 = (A (create_float (), create_string (), create_float_u ())) in
   let local_ t388_B : t388 = (B (create_float_u ())) in
   let local_ t388_C : t388 = (C (create_float_u ())) in
-  let local_ t389_A : t389 = (A (create_string (), create_string (), create_int32_u ())) in
+  let local_ t389_A : t389 = (A (create_string (), create_string (), create_float32_u ())) in
   let local_ t389_B : t389 = (B (create_float_u ())) in
-  let local_ t390_A : t390 = (A (create_float (), create_int64_u ())) in
+  let local_ t390_A : t390 = (A (create_float (), create_int32_u ())) in
   let local_ t391_A : t391 = (A (create_float_u ())) in
-  let local_ t391_B : t391 = (B (create_int32_u ())) in
+  let local_ t391_B : t391 = (B (create_float32_u ())) in
   let local_ t391_C : t391 = (C (create_float_u ())) in
   let local_ t391_D : t391 = (D (create_float_u ())) in
   let local_ t392_A : t392 = (A (create_string (), create_float_u ())) in
   let local_ t392_B : t392 = (B (create_string (), create_float_u ())) in
   let local_ t392_C : t392 = (C (create_string (), create_float_u ())) in
-  let local_ t393_A : t393 = (A (create_int32_u ())) in
+  let local_ t393_A : t393 = (A (create_float32_u ())) in
   let local_ t393_B : t393 = (B (create_float_u ())) in
   let local_ t393_C : t393 = (C (create_float_u ())) in
   let local_ t393_D : t393 = (D (create_float_u ())) in
   let local_ t393_E : t393 = (E (create_float_u ())) in
   let local_ t394_A : t394 = (A (create_float (), create_float_u ())) in
   let local_ t394_B : t394 = (B (create_float (), create_float_u ())) in
-  let local_ t395_A : t395 = (A (create_string (), create_int32_u ())) in
-  let local_ t395_B : t395 = (B (create_int32_u ())) in
+  let local_ t395_A : t395 = (A (create_string (), create_float32_u ())) in
+  let local_ t395_B : t395 = (B (create_float32_u ())) in
   let local_ t395_C : t395 = (C (create_float_u ())) in
-  let local_ t396_A : t396 = (A (create_int64_u ())) in
+  let local_ t396_A : t396 = (A (create_int32_u ())) in
   let local_ t396_B : t396 = (B (create_string (), create_float_u ())) in
   let local_ t396_C : t396 = (C (create_float_u ())) in
   let local_ t396_D : t396 = (D (create_float_u ())) in
   let local_ t397_A : t397 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t397_B : t397 = (B (create_float_u ())) in
   let local_ t397_C : t397 = (C (create_string (), create_float_u ())) in
-  let local_ t398_A : t398 = (A (create_float (), create_int32_u ())) in
-  let local_ t398_B : t398 = (B (create_int32_u ())) in
-  let local_ t399_A : t399 = (A (create_string (), create_int64_u ())) in
+  let local_ t398_A : t398 = (A (create_float (), create_float32_u ())) in
+  let local_ t398_B : t398 = (B (create_float32_u ())) in
+  let local_ t399_A : t399 = (A (create_string (), create_int32_u ())) in
   let local_ t399_B : t399 = (B (create_string (), create_float_u ())) in
   let local_ t399_C : t399 = (C (create_float_u ())) in
-  let local_ t400_A : t400 = (A (create_nativeint_u ())) in
+  let local_ t400_A : t400 = (A (create_int64_u ())) in
   let local_ t400_B : t400 = (B (create_float_u ())) in
   let local_ t400_C : t400 = (C (create_float_u ())) in
   let local_ t400_D : t400 = (D (create_float_u ())) in
   let local_ t401_A : t401 = (A (create_float (), create_string (), create_float_u ())) in
   let local_ t401_B : t401 = (B (create_string (), create_float_u ())) in
-  let local_ t402_A : t402 = (A (create_string (), create_string (), create_int32_u ())) in
+  let local_ t402_A : t402 = (A (create_string (), create_string (), create_float32_u ())) in
   let local_ t402_B : t402 = (B (create_float_u ())) in
   let local_ t402_C : t402 = (C (create_float_u ())) in
-  let local_ t403_A : t403 = (A (create_float (), create_int64_u ())) in
+  let local_ t403_A : t403 = (A (create_float (), create_int32_u ())) in
   let local_ t403_B : t403 = (B (create_float_u ())) in
-  let local_ t404_A : t404 = (A (create_string (), create_nativeint_u ())) in
+  let local_ t404_A : t404 = (A (create_string (), create_int64_u ())) in
   let local_ t405_A : t405 = (A (create_float_u ())) in
   let local_ t405_B : t405 = (B (create_float (), create_float_u ())) in
   let local_ t405_C : t405 = (C (create_float_u ())) in
   let local_ t406_A : t406 = (A (create_string (), create_float_u ())) in
-  let local_ t406_B : t406 = (B (create_int32_u ())) in
+  let local_ t406_B : t406 = (B (create_float32_u ())) in
   let local_ t406_C : t406 = (C (create_float_u ())) in
   let local_ t406_D : t406 = (D (create_float_u ())) in
-  let local_ t407_A : t407 = (A (create_int32_u ())) in
+  let local_ t407_A : t407 = (A (create_float32_u ())) in
   let local_ t407_B : t407 = (B (create_string (), create_float_u ())) in
   let local_ t407_C : t407 = (C (create_string (), create_float_u ())) in
   let local_ t408_A : t408 = (A (create_float (), create_float_u ())) in
@@ -15433,79 +15398,79 @@ let go () =
   let local_ t408_C : t408 = (C (create_float_u ())) in
   let local_ t408_D : t408 = (D (create_float_u ())) in
   let local_ t408_E : t408 = (E (create_float_u ())) in
-  let local_ t409_A : t409 = (A (create_string (), create_int32_u ())) in
+  let local_ t409_A : t409 = (A (create_string (), create_float32_u ())) in
   let local_ t409_B : t409 = (B (create_float (), create_float_u ())) in
-  let local_ t410_A : t410 = (A (create_int64_u ())) in
-  let local_ t410_B : t410 = (B (create_int32_u ())) in
+  let local_ t410_A : t410 = (A (create_int32_u ())) in
+  let local_ t410_B : t410 = (B (create_float32_u ())) in
   let local_ t410_C : t410 = (C (create_float_u ())) in
   let local_ t411_A : t411 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t411_B : t411 = (B (create_string (), create_float_u ())) in
   let local_ t411_C : t411 = (C (create_float_u ())) in
   let local_ t411_D : t411 = (D (create_float_u ())) in
-  let local_ t412_A : t412 = (A (create_float (), create_int32_u ())) in
+  let local_ t412_A : t412 = (A (create_float (), create_float32_u ())) in
   let local_ t412_B : t412 = (B (create_float_u ())) in
   let local_ t412_C : t412 = (C (create_string (), create_float_u ())) in
-  let local_ t413_A : t413 = (A (create_string (), create_int64_u ())) in
-  let local_ t413_B : t413 = (B (create_int32_u ())) in
-  let local_ t414_A : t414 = (A (create_nativeint_u ())) in
+  let local_ t413_A : t413 = (A (create_string (), create_int32_u ())) in
+  let local_ t413_B : t413 = (B (create_float32_u ())) in
+  let local_ t414_A : t414 = (A (create_int64_u ())) in
   let local_ t414_B : t414 = (B (create_string (), create_float_u ())) in
   let local_ t414_C : t414 = (C (create_float_u ())) in
   let local_ t415_A : t415 = (A (create_float (), create_string (), create_float_u ())) in
   let local_ t415_B : t415 = (B (create_float_u ())) in
   let local_ t415_C : t415 = (C (create_float_u ())) in
   let local_ t415_D : t415 = (D (create_float_u ())) in
-  let local_ t416_A : t416 = (A (create_string (), create_string (), create_int32_u ())) in
+  let local_ t416_A : t416 = (A (create_string (), create_string (), create_float32_u ())) in
   let local_ t416_B : t416 = (B (create_string (), create_float_u ())) in
-  let local_ t417_A : t417 = (A (create_float (), create_int64_u ())) in
+  let local_ t417_A : t417 = (A (create_float (), create_int32_u ())) in
   let local_ t417_B : t417 = (B (create_float_u ())) in
   let local_ t417_C : t417 = (C (create_float_u ())) in
-  let local_ t418_A : t418 = (A (create_string (), create_nativeint_u ())) in
+  let local_ t418_A : t418 = (A (create_string (), create_int64_u ())) in
   let local_ t418_B : t418 = (B (create_float_u ())) in
-  let local_ t419_A : t419 = (A (create_float_u (), create_int ())) in
+  let local_ t419_A : t419 = (A (create_nativeint_u ())) in
   let local_ t420_A : t420 = (A (create_float_u ())) in
-  let local_ t420_B : t420 = (B (create_string (), create_int32_u ())) in
+  let local_ t420_B : t420 = (B (create_string (), create_float32_u ())) in
   let local_ t421_A : t421 = (A (create_string (), create_float_u ())) in
   let local_ t421_B : t421 = (B (create_float (), create_float_u ())) in
   let local_ t421_C : t421 = (C (create_float_u ())) in
-  let local_ t422_A : t422 = (A (create_int32_u ())) in
-  let local_ t422_B : t422 = (B (create_int32_u ())) in
+  let local_ t422_A : t422 = (A (create_float32_u ())) in
+  let local_ t422_B : t422 = (B (create_float32_u ())) in
   let local_ t422_C : t422 = (C (create_float_u ())) in
   let local_ t422_D : t422 = (D (create_float_u ())) in
   let local_ t423_A : t423 = (A (create_float (), create_float_u ())) in
   let local_ t423_B : t423 = (B (create_string (), create_float_u ())) in
   let local_ t423_C : t423 = (C (create_string (), create_float_u ())) in
-  let local_ t424_A : t424 = (A (create_string (), create_int32_u ())) in
+  let local_ t424_A : t424 = (A (create_string (), create_float32_u ())) in
   let local_ t424_B : t424 = (B (create_float_u ())) in
   let local_ t424_C : t424 = (C (create_float_u ())) in
   let local_ t424_D : t424 = (D (create_float_u ())) in
   let local_ t424_E : t424 = (E (create_float_u ())) in
-  let local_ t425_A : t425 = (A (create_int64_u ())) in
+  let local_ t425_A : t425 = (A (create_int32_u ())) in
   let local_ t425_B : t425 = (B (create_float (), create_float_u ())) in
   let local_ t426_A : t426 = (A (create_string (), create_string (), create_float_u ())) in
-  let local_ t426_B : t426 = (B (create_int32_u ())) in
+  let local_ t426_B : t426 = (B (create_float32_u ())) in
   let local_ t426_C : t426 = (C (create_float_u ())) in
-  let local_ t427_A : t427 = (A (create_float (), create_int32_u ())) in
+  let local_ t427_A : t427 = (A (create_float (), create_float32_u ())) in
   let local_ t427_B : t427 = (B (create_string (), create_float_u ())) in
   let local_ t427_C : t427 = (C (create_float_u ())) in
   let local_ t427_D : t427 = (D (create_float_u ())) in
-  let local_ t428_A : t428 = (A (create_string (), create_int64_u ())) in
+  let local_ t428_A : t428 = (A (create_string (), create_int32_u ())) in
   let local_ t428_B : t428 = (B (create_float_u ())) in
   let local_ t428_C : t428 = (C (create_string (), create_float_u ())) in
-  let local_ t429_A : t429 = (A (create_nativeint_u ())) in
-  let local_ t429_B : t429 = (B (create_int32_u ())) in
+  let local_ t429_A : t429 = (A (create_int64_u ())) in
+  let local_ t429_B : t429 = (B (create_float32_u ())) in
   let local_ t430_A : t430 = (A (create_float (), create_string (), create_float_u ())) in
   let local_ t430_B : t430 = (B (create_string (), create_float_u ())) in
   let local_ t430_C : t430 = (C (create_float_u ())) in
-  let local_ t431_A : t431 = (A (create_string (), create_string (), create_int32_u ())) in
+  let local_ t431_A : t431 = (A (create_string (), create_string (), create_float32_u ())) in
   let local_ t431_B : t431 = (B (create_float_u ())) in
   let local_ t431_C : t431 = (C (create_float_u ())) in
   let local_ t431_D : t431 = (D (create_float_u ())) in
-  let local_ t432_A : t432 = (A (create_float (), create_int64_u ())) in
+  let local_ t432_A : t432 = (A (create_float (), create_int32_u ())) in
   let local_ t432_B : t432 = (B (create_string (), create_float_u ())) in
-  let local_ t433_A : t433 = (A (create_string (), create_nativeint_u ())) in
+  let local_ t433_A : t433 = (A (create_string (), create_int64_u ())) in
   let local_ t433_B : t433 = (B (create_float_u ())) in
   let local_ t433_C : t433 = (C (create_float_u ())) in
-  let local_ t434_A : t434 = (A (create_float_u (), create_int ())) in
+  let local_ t434_A : t434 = (A (create_nativeint_u ())) in
   let local_ t434_B : t434 = (B (create_float_u ())) in
   let local_ t435_A : t435 = (A (create_int (), create_string (), create_float_u ())) in
   let local_ t436_A : t436 = (A (create_float_u ())) in
@@ -15513,51 +15478,51 @@ let go () =
   let local_ t436_C : t436 = (C (create_string (), create_float_u ())) in
   let local_ t436_D : t436 = (D (create_float_u ())) in
   let local_ t437_A : t437 = (A (create_string (), create_float_u ())) in
-  let local_ t437_B : t437 = (B (create_string (), create_int32_u ())) in
-  let local_ t438_A : t438 = (A (create_int32_u ())) in
+  let local_ t437_B : t437 = (B (create_string (), create_float32_u ())) in
+  let local_ t438_A : t438 = (A (create_float32_u ())) in
   let local_ t438_B : t438 = (B (create_float (), create_float_u ())) in
   let local_ t438_C : t438 = (C (create_float_u ())) in
   let local_ t439_A : t439 = (A (create_float (), create_float_u ())) in
-  let local_ t439_B : t439 = (B (create_int32_u ())) in
+  let local_ t439_B : t439 = (B (create_float32_u ())) in
   let local_ t439_C : t439 = (C (create_float_u ())) in
   let local_ t439_D : t439 = (D (create_float_u ())) in
-  let local_ t440_A : t440 = (A (create_string (), create_int32_u ())) in
+  let local_ t440_A : t440 = (A (create_string (), create_float32_u ())) in
   let local_ t440_B : t440 = (B (create_string (), create_float_u ())) in
   let local_ t440_C : t440 = (C (create_string (), create_float_u ())) in
-  let local_ t441_A : t441 = (A (create_int64_u ())) in
+  let local_ t441_A : t441 = (A (create_int32_u ())) in
   let local_ t441_B : t441 = (B (create_float_u ())) in
   let local_ t441_C : t441 = (C (create_float_u ())) in
   let local_ t441_D : t441 = (D (create_float_u ())) in
   let local_ t441_E : t441 = (E (create_float_u ())) in
   let local_ t442_A : t442 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t442_B : t442 = (B (create_float (), create_float_u ())) in
-  let local_ t443_A : t443 = (A (create_float (), create_int32_u ())) in
-  let local_ t443_B : t443 = (B (create_int32_u ())) in
+  let local_ t443_A : t443 = (A (create_float (), create_float32_u ())) in
+  let local_ t443_B : t443 = (B (create_float32_u ())) in
   let local_ t443_C : t443 = (C (create_float_u ())) in
-  let local_ t444_A : t444 = (A (create_string (), create_int64_u ())) in
+  let local_ t444_A : t444 = (A (create_string (), create_int32_u ())) in
   let local_ t444_B : t444 = (B (create_string (), create_float_u ())) in
   let local_ t444_C : t444 = (C (create_float_u ())) in
   let local_ t444_D : t444 = (D (create_float_u ())) in
-  let local_ t445_A : t445 = (A (create_nativeint_u ())) in
+  let local_ t445_A : t445 = (A (create_int64_u ())) in
   let local_ t445_B : t445 = (B (create_float_u ())) in
   let local_ t445_C : t445 = (C (create_string (), create_float_u ())) in
   let local_ t446_A : t446 = (A (create_float (), create_string (), create_float_u ())) in
-  let local_ t446_B : t446 = (B (create_int32_u ())) in
-  let local_ t447_A : t447 = (A (create_string (), create_string (), create_int32_u ())) in
+  let local_ t446_B : t446 = (B (create_float32_u ())) in
+  let local_ t447_A : t447 = (A (create_string (), create_string (), create_float32_u ())) in
   let local_ t447_B : t447 = (B (create_string (), create_float_u ())) in
   let local_ t447_C : t447 = (C (create_float_u ())) in
-  let local_ t448_A : t448 = (A (create_float (), create_int64_u ())) in
+  let local_ t448_A : t448 = (A (create_float (), create_int32_u ())) in
   let local_ t448_B : t448 = (B (create_float_u ())) in
   let local_ t448_C : t448 = (C (create_float_u ())) in
   let local_ t448_D : t448 = (D (create_float_u ())) in
-  let local_ t449_A : t449 = (A (create_string (), create_nativeint_u ())) in
+  let local_ t449_A : t449 = (A (create_string (), create_int64_u ())) in
   let local_ t449_B : t449 = (B (create_string (), create_float_u ())) in
-  let local_ t450_A : t450 = (A (create_float_u (), create_int ())) in
+  let local_ t450_A : t450 = (A (create_nativeint_u ())) in
   let local_ t450_B : t450 = (B (create_float_u ())) in
   let local_ t450_C : t450 = (C (create_float_u ())) in
   let local_ t451_A : t451 = (A (create_int (), create_string (), create_float_u ())) in
   let local_ t451_B : t451 = (B (create_float_u ())) in
-  let local_ t452_A : t452 = (A (create_float (), create_string (), create_int32_u ())) in
+  let local_ t452_A : t452 = (A (create_float (), create_string (), create_float32_u ())) in
   let local_ t453_A : t453 = (A (create_float_u ())) in
   let local_ t453_B : t453 = (B (create_string (), create_float_u ())) in
   let local_ t453_C : t453 = (C (create_float_u ())) in
@@ -15567,16 +15532,16 @@ let go () =
   let local_ t454_B : t454 = (B (create_float_u ())) in
   let local_ t454_C : t454 = (C (create_string (), create_float_u ())) in
   let local_ t454_D : t454 = (D (create_float_u ())) in
-  let local_ t455_A : t455 = (A (create_int32_u ())) in
-  let local_ t455_B : t455 = (B (create_string (), create_int32_u ())) in
+  let local_ t455_A : t455 = (A (create_float32_u ())) in
+  let local_ t455_B : t455 = (B (create_string (), create_float32_u ())) in
   let local_ t456_A : t456 = (A (create_float (), create_float_u ())) in
   let local_ t456_B : t456 = (B (create_float (), create_float_u ())) in
   let local_ t456_C : t456 = (C (create_float_u ())) in
-  let local_ t457_A : t457 = (A (create_string (), create_int32_u ())) in
-  let local_ t457_B : t457 = (B (create_int32_u ())) in
+  let local_ t457_A : t457 = (A (create_string (), create_float32_u ())) in
+  let local_ t457_B : t457 = (B (create_float32_u ())) in
   let local_ t457_C : t457 = (C (create_float_u ())) in
   let local_ t457_D : t457 = (D (create_float_u ())) in
-  let local_ t458_A : t458 = (A (create_int64_u ())) in
+  let local_ t458_A : t458 = (A (create_int32_u ())) in
   let local_ t458_B : t458 = (B (create_string (), create_float_u ())) in
   let local_ t458_C : t458 = (C (create_string (), create_float_u ())) in
   let local_ t459_A : t459 = (A (create_string (), create_string (), create_float_u ())) in
@@ -15584,101 +15549,101 @@ let go () =
   let local_ t459_C : t459 = (C (create_float_u ())) in
   let local_ t459_D : t459 = (D (create_float_u ())) in
   let local_ t459_E : t459 = (E (create_float_u ())) in
-  let local_ t460_A : t460 = (A (create_float (), create_int32_u ())) in
+  let local_ t460_A : t460 = (A (create_float (), create_float32_u ())) in
   let local_ t460_B : t460 = (B (create_float (), create_float_u ())) in
-  let local_ t461_A : t461 = (A (create_string (), create_int64_u ())) in
-  let local_ t461_B : t461 = (B (create_int32_u ())) in
+  let local_ t461_A : t461 = (A (create_string (), create_int32_u ())) in
+  let local_ t461_B : t461 = (B (create_float32_u ())) in
   let local_ t461_C : t461 = (C (create_float_u ())) in
-  let local_ t462_A : t462 = (A (create_nativeint_u ())) in
+  let local_ t462_A : t462 = (A (create_int64_u ())) in
   let local_ t462_B : t462 = (B (create_string (), create_float_u ())) in
   let local_ t462_C : t462 = (C (create_float_u ())) in
   let local_ t462_D : t462 = (D (create_float_u ())) in
   let local_ t463_A : t463 = (A (create_float (), create_string (), create_float_u ())) in
   let local_ t463_B : t463 = (B (create_float_u ())) in
   let local_ t463_C : t463 = (C (create_string (), create_float_u ())) in
-  let local_ t464_A : t464 = (A (create_string (), create_string (), create_int32_u ())) in
-  let local_ t464_B : t464 = (B (create_int32_u ())) in
-  let local_ t465_A : t465 = (A (create_float (), create_int64_u ())) in
+  let local_ t464_A : t464 = (A (create_string (), create_string (), create_float32_u ())) in
+  let local_ t464_B : t464 = (B (create_float32_u ())) in
+  let local_ t465_A : t465 = (A (create_float (), create_int32_u ())) in
   let local_ t465_B : t465 = (B (create_string (), create_float_u ())) in
   let local_ t465_C : t465 = (C (create_float_u ())) in
-  let local_ t466_A : t466 = (A (create_string (), create_nativeint_u ())) in
+  let local_ t466_A : t466 = (A (create_string (), create_int64_u ())) in
   let local_ t466_B : t466 = (B (create_float_u ())) in
   let local_ t466_C : t466 = (C (create_float_u ())) in
   let local_ t466_D : t466 = (D (create_float_u ())) in
-  let local_ t467_A : t467 = (A (create_float_u (), create_int ())) in
+  let local_ t467_A : t467 = (A (create_nativeint_u ())) in
   let local_ t467_B : t467 = (B (create_string (), create_float_u ())) in
   let local_ t468_A : t468 = (A (create_int (), create_string (), create_float_u ())) in
   let local_ t468_B : t468 = (B (create_float_u ())) in
   let local_ t468_C : t468 = (C (create_float_u ())) in
-  let local_ t469_A : t469 = (A (create_float (), create_string (), create_int32_u ())) in
+  let local_ t469_A : t469 = (A (create_float (), create_string (), create_float32_u ())) in
   let local_ t469_B : t469 = (B (create_float_u ())) in
-  let local_ t470_A : t470 = (A (create_string (), create_string (), create_int64_u ())) in
+  let local_ t470_A : t470 = (A (create_string (), create_string (), create_int32_u ())) in
   let local_ t471_A : t471 = (A (create_float_u ())) in
-  let local_ t471_B : t471 = (B (create_int32_u ())) in
+  let local_ t471_B : t471 = (B (create_float32_u ())) in
   let local_ t471_C : t471 = (C (create_string (), create_float_u ())) in
   let local_ t472_A : t472 = (A (create_string (), create_float_u ())) in
   let local_ t472_B : t472 = (B (create_string (), create_float_u ())) in
   let local_ t472_C : t472 = (C (create_float_u ())) in
   let local_ t472_D : t472 = (D (create_float_u ())) in
   let local_ t472_E : t472 = (E (create_float_u ())) in
-  let local_ t473_A : t473 = (A (create_int32_u ())) in
+  let local_ t473_A : t473 = (A (create_float32_u ())) in
   let local_ t473_B : t473 = (B (create_float_u ())) in
   let local_ t473_C : t473 = (C (create_string (), create_float_u ())) in
   let local_ t473_D : t473 = (D (create_float_u ())) in
   let local_ t474_A : t474 = (A (create_float (), create_float_u ())) in
-  let local_ t474_B : t474 = (B (create_string (), create_int32_u ())) in
-  let local_ t475_A : t475 = (A (create_string (), create_int32_u ())) in
+  let local_ t474_B : t474 = (B (create_string (), create_float32_u ())) in
+  let local_ t475_A : t475 = (A (create_string (), create_float32_u ())) in
   let local_ t475_B : t475 = (B (create_float (), create_float_u ())) in
   let local_ t475_C : t475 = (C (create_float_u ())) in
-  let local_ t476_A : t476 = (A (create_int64_u ())) in
-  let local_ t476_B : t476 = (B (create_int32_u ())) in
+  let local_ t476_A : t476 = (A (create_int32_u ())) in
+  let local_ t476_B : t476 = (B (create_float32_u ())) in
   let local_ t476_C : t476 = (C (create_float_u ())) in
   let local_ t476_D : t476 = (D (create_float_u ())) in
   let local_ t477_A : t477 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t477_B : t477 = (B (create_string (), create_float_u ())) in
   let local_ t477_C : t477 = (C (create_string (), create_float_u ())) in
-  let local_ t478_A : t478 = (A (create_float (), create_int32_u ())) in
+  let local_ t478_A : t478 = (A (create_float (), create_float32_u ())) in
   let local_ t478_B : t478 = (B (create_float_u ())) in
   let local_ t478_C : t478 = (C (create_float_u ())) in
   let local_ t478_D : t478 = (D (create_float_u ())) in
   let local_ t478_E : t478 = (E (create_float_u ())) in
-  let local_ t479_A : t479 = (A (create_string (), create_int64_u ())) in
+  let local_ t479_A : t479 = (A (create_string (), create_int32_u ())) in
   let local_ t479_B : t479 = (B (create_float (), create_float_u ())) in
-  let local_ t480_A : t480 = (A (create_nativeint_u ())) in
-  let local_ t480_B : t480 = (B (create_int32_u ())) in
+  let local_ t480_A : t480 = (A (create_int64_u ())) in
+  let local_ t480_B : t480 = (B (create_float32_u ())) in
   let local_ t480_C : t480 = (C (create_float_u ())) in
   let local_ t481_A : t481 = (A (create_float (), create_string (), create_float_u ())) in
   let local_ t481_B : t481 = (B (create_string (), create_float_u ())) in
   let local_ t481_C : t481 = (C (create_float_u ())) in
   let local_ t481_D : t481 = (D (create_float_u ())) in
-  let local_ t482_A : t482 = (A (create_string (), create_string (), create_int32_u ())) in
+  let local_ t482_A : t482 = (A (create_string (), create_string (), create_float32_u ())) in
   let local_ t482_B : t482 = (B (create_float_u ())) in
   let local_ t482_C : t482 = (C (create_string (), create_float_u ())) in
-  let local_ t483_A : t483 = (A (create_float (), create_int64_u ())) in
-  let local_ t483_B : t483 = (B (create_int32_u ())) in
-  let local_ t484_A : t484 = (A (create_string (), create_nativeint_u ())) in
+  let local_ t483_A : t483 = (A (create_float (), create_int32_u ())) in
+  let local_ t483_B : t483 = (B (create_float32_u ())) in
+  let local_ t484_A : t484 = (A (create_string (), create_int64_u ())) in
   let local_ t484_B : t484 = (B (create_string (), create_float_u ())) in
   let local_ t484_C : t484 = (C (create_float_u ())) in
-  let local_ t485_A : t485 = (A (create_float_u (), create_int ())) in
+  let local_ t485_A : t485 = (A (create_nativeint_u ())) in
   let local_ t485_B : t485 = (B (create_float_u ())) in
   let local_ t485_C : t485 = (C (create_float_u ())) in
   let local_ t485_D : t485 = (D (create_float_u ())) in
   let local_ t486_A : t486 = (A (create_int (), create_string (), create_float_u ())) in
   let local_ t486_B : t486 = (B (create_string (), create_float_u ())) in
-  let local_ t487_A : t487 = (A (create_float (), create_string (), create_int32_u ())) in
+  let local_ t487_A : t487 = (A (create_float (), create_string (), create_float32_u ())) in
   let local_ t487_B : t487 = (B (create_float_u ())) in
   let local_ t487_C : t487 = (C (create_float_u ())) in
-  let local_ t488_A : t488 = (A (create_string (), create_string (), create_int64_u ())) in
+  let local_ t488_A : t488 = (A (create_string (), create_string (), create_int32_u ())) in
   let local_ t488_B : t488 = (B (create_float_u ())) in
-  let local_ t489_A : t489 = (A (create_float (), create_nativeint_u ())) in
+  let local_ t489_A : t489 = (A (create_float (), create_int64_u ())) in
   let local_ t490_A : t490 = (A (create_float_u ())) in
   let local_ t490_B : t490 = (B (create_float (), create_float_u ())) in
   let local_ t490_C : t490 = (C (create_float_u ())) in
   let local_ t490_D : t490 = (D (create_float_u ())) in
   let local_ t491_A : t491 = (A (create_string (), create_float_u ())) in
-  let local_ t491_B : t491 = (B (create_int32_u ())) in
+  let local_ t491_B : t491 = (B (create_float32_u ())) in
   let local_ t491_C : t491 = (C (create_string (), create_float_u ())) in
-  let local_ t492_A : t492 = (A (create_int32_u ())) in
+  let local_ t492_A : t492 = (A (create_float32_u ())) in
   let local_ t492_B : t492 = (B (create_string (), create_float_u ())) in
   let local_ t492_C : t492 = (C (create_float_u ())) in
   let local_ t492_D : t492 = (D (create_float_u ())) in
@@ -15687,148 +15652,148 @@ let go () =
   let local_ t493_B : t493 = (B (create_float_u ())) in
   let local_ t493_C : t493 = (C (create_string (), create_float_u ())) in
   let local_ t493_D : t493 = (D (create_float_u ())) in
-  let local_ t494_A : t494 = (A (create_string (), create_int32_u ())) in
-  let local_ t494_B : t494 = (B (create_string (), create_int32_u ())) in
-  let local_ t495_A : t495 = (A (create_int64_u ())) in
+  let local_ t494_A : t494 = (A (create_string (), create_float32_u ())) in
+  let local_ t494_B : t494 = (B (create_string (), create_float32_u ())) in
+  let local_ t495_A : t495 = (A (create_int32_u ())) in
   let local_ t495_B : t495 = (B (create_float (), create_float_u ())) in
   let local_ t495_C : t495 = (C (create_float_u ())) in
   let local_ t496_A : t496 = (A (create_string (), create_string (), create_float_u ())) in
-  let local_ t496_B : t496 = (B (create_int32_u ())) in
+  let local_ t496_B : t496 = (B (create_float32_u ())) in
   let local_ t496_C : t496 = (C (create_float_u ())) in
   let local_ t496_D : t496 = (D (create_float_u ())) in
-  let local_ t497_A : t497 = (A (create_float (), create_int32_u ())) in
+  let local_ t497_A : t497 = (A (create_float (), create_float32_u ())) in
   let local_ t497_B : t497 = (B (create_string (), create_float_u ())) in
   let local_ t497_C : t497 = (C (create_string (), create_float_u ())) in
-  let local_ t498_A : t498 = (A (create_string (), create_int64_u ())) in
+  let local_ t498_A : t498 = (A (create_string (), create_int32_u ())) in
   let local_ t498_B : t498 = (B (create_float_u ())) in
   let local_ t498_C : t498 = (C (create_float_u ())) in
   let local_ t498_D : t498 = (D (create_float_u ())) in
   let local_ t498_E : t498 = (E (create_float_u ())) in
-  let local_ t499_A : t499 = (A (create_nativeint_u ())) in
+  let local_ t499_A : t499 = (A (create_int64_u ())) in
   let local_ t499_B : t499 = (B (create_float (), create_float_u ())) in
   let local_ t500_A : t500 = (A (create_float (), create_string (), create_float_u ())) in
-  let local_ t500_B : t500 = (B (create_int32_u ())) in
+  let local_ t500_B : t500 = (B (create_float32_u ())) in
   let local_ t500_C : t500 = (C (create_float_u ())) in
-  let local_ t501_A : t501 = (A (create_string (), create_string (), create_int32_u ())) in
+  let local_ t501_A : t501 = (A (create_string (), create_string (), create_float32_u ())) in
   let local_ t501_B : t501 = (B (create_string (), create_float_u ())) in
   let local_ t501_C : t501 = (C (create_float_u ())) in
   let local_ t501_D : t501 = (D (create_float_u ())) in
-  let local_ t502_A : t502 = (A (create_float (), create_int64_u ())) in
+  let local_ t502_A : t502 = (A (create_float (), create_int32_u ())) in
   let local_ t502_B : t502 = (B (create_float_u ())) in
   let local_ t502_C : t502 = (C (create_string (), create_float_u ())) in
-  let local_ t503_A : t503 = (A (create_string (), create_nativeint_u ())) in
-  let local_ t503_B : t503 = (B (create_int32_u ())) in
-  let local_ t504_A : t504 = (A (create_float_u (), create_int ())) in
+  let local_ t503_A : t503 = (A (create_string (), create_int64_u ())) in
+  let local_ t503_B : t503 = (B (create_float32_u ())) in
+  let local_ t504_A : t504 = (A (create_nativeint_u ())) in
   let local_ t504_B : t504 = (B (create_string (), create_float_u ())) in
   let local_ t504_C : t504 = (C (create_float_u ())) in
   let local_ t505_A : t505 = (A (create_int (), create_string (), create_float_u ())) in
   let local_ t505_B : t505 = (B (create_float_u ())) in
   let local_ t505_C : t505 = (C (create_float_u ())) in
   let local_ t505_D : t505 = (D (create_float_u ())) in
-  let local_ t506_A : t506 = (A (create_float (), create_string (), create_int32_u ())) in
+  let local_ t506_A : t506 = (A (create_float (), create_string (), create_float32_u ())) in
   let local_ t506_B : t506 = (B (create_string (), create_float_u ())) in
-  let local_ t507_A : t507 = (A (create_string (), create_string (), create_int64_u ())) in
+  let local_ t507_A : t507 = (A (create_string (), create_string (), create_int32_u ())) in
   let local_ t507_B : t507 = (B (create_float_u ())) in
   let local_ t507_C : t507 = (C (create_float_u ())) in
-  let local_ t508_A : t508 = (A (create_float (), create_nativeint_u ())) in
+  let local_ t508_A : t508 = (A (create_float (), create_int64_u ())) in
   let local_ t508_B : t508 = (B (create_float_u ())) in
-  let local_ t509_A : t509 = (A (create_string (), create_float_u (), create_int ())) in
+  let local_ t509_A : t509 = (A (create_string (), create_nativeint_u ())) in
   let local_ t510_A : t510 = (A (create_float_u ())) in
-  let local_ t510_B : t510 = (B (create_string (), create_int32_u ())) in
+  let local_ t510_B : t510 = (B (create_string (), create_float32_u ())) in
   let local_ t510_C : t510 = (C (create_float_u ())) in
   let local_ t511_A : t511 = (A (create_string (), create_float_u ())) in
   let local_ t511_B : t511 = (B (create_float (), create_float_u ())) in
   let local_ t511_C : t511 = (C (create_float_u ())) in
   let local_ t511_D : t511 = (D (create_float_u ())) in
-  let local_ t512_A : t512 = (A (create_int32_u ())) in
-  let local_ t512_B : t512 = (B (create_int32_u ())) in
+  let local_ t512_A : t512 = (A (create_float32_u ())) in
+  let local_ t512_B : t512 = (B (create_float32_u ())) in
   let local_ t512_C : t512 = (C (create_string (), create_float_u ())) in
   let local_ t513_A : t513 = (A (create_float (), create_float_u ())) in
   let local_ t513_B : t513 = (B (create_string (), create_float_u ())) in
   let local_ t513_C : t513 = (C (create_float_u ())) in
   let local_ t513_D : t513 = (D (create_float_u ())) in
   let local_ t513_E : t513 = (E (create_float_u ())) in
-  let local_ t514_A : t514 = (A (create_string (), create_int32_u ())) in
+  let local_ t514_A : t514 = (A (create_string (), create_float32_u ())) in
   let local_ t514_B : t514 = (B (create_float_u ())) in
   let local_ t514_C : t514 = (C (create_string (), create_float_u ())) in
   let local_ t514_D : t514 = (D (create_float_u ())) in
-  let local_ t515_A : t515 = (A (create_int64_u ())) in
-  let local_ t515_B : t515 = (B (create_string (), create_int32_u ())) in
+  let local_ t515_A : t515 = (A (create_int32_u ())) in
+  let local_ t515_B : t515 = (B (create_string (), create_float32_u ())) in
   let local_ t516_A : t516 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t516_B : t516 = (B (create_float (), create_float_u ())) in
   let local_ t516_C : t516 = (C (create_float_u ())) in
-  let local_ t517_A : t517 = (A (create_float (), create_int32_u ())) in
-  let local_ t517_B : t517 = (B (create_int32_u ())) in
+  let local_ t517_A : t517 = (A (create_float (), create_float32_u ())) in
+  let local_ t517_B : t517 = (B (create_float32_u ())) in
   let local_ t517_C : t517 = (C (create_float_u ())) in
   let local_ t517_D : t517 = (D (create_float_u ())) in
-  let local_ t518_A : t518 = (A (create_string (), create_int64_u ())) in
+  let local_ t518_A : t518 = (A (create_string (), create_int32_u ())) in
   let local_ t518_B : t518 = (B (create_string (), create_float_u ())) in
   let local_ t518_C : t518 = (C (create_string (), create_float_u ())) in
-  let local_ t519_A : t519 = (A (create_nativeint_u ())) in
+  let local_ t519_A : t519 = (A (create_int64_u ())) in
   let local_ t519_B : t519 = (B (create_float_u ())) in
   let local_ t519_C : t519 = (C (create_float_u ())) in
   let local_ t519_D : t519 = (D (create_float_u ())) in
   let local_ t519_E : t519 = (E (create_float_u ())) in
   let local_ t520_A : t520 = (A (create_float (), create_string (), create_float_u ())) in
   let local_ t520_B : t520 = (B (create_float (), create_float_u ())) in
-  let local_ t521_A : t521 = (A (create_string (), create_string (), create_int32_u ())) in
-  let local_ t521_B : t521 = (B (create_int32_u ())) in
+  let local_ t521_A : t521 = (A (create_string (), create_string (), create_float32_u ())) in
+  let local_ t521_B : t521 = (B (create_float32_u ())) in
   let local_ t521_C : t521 = (C (create_float_u ())) in
-  let local_ t522_A : t522 = (A (create_float (), create_int64_u ())) in
+  let local_ t522_A : t522 = (A (create_float (), create_int32_u ())) in
   let local_ t522_B : t522 = (B (create_string (), create_float_u ())) in
   let local_ t522_C : t522 = (C (create_float_u ())) in
   let local_ t522_D : t522 = (D (create_float_u ())) in
-  let local_ t523_A : t523 = (A (create_string (), create_nativeint_u ())) in
+  let local_ t523_A : t523 = (A (create_string (), create_int64_u ())) in
   let local_ t523_B : t523 = (B (create_float_u ())) in
   let local_ t523_C : t523 = (C (create_string (), create_float_u ())) in
-  let local_ t524_A : t524 = (A (create_float_u (), create_int ())) in
-  let local_ t524_B : t524 = (B (create_int32_u ())) in
+  let local_ t524_A : t524 = (A (create_nativeint_u ())) in
+  let local_ t524_B : t524 = (B (create_float32_u ())) in
   let local_ t525_A : t525 = (A (create_int (), create_string (), create_float_u ())) in
   let local_ t525_B : t525 = (B (create_string (), create_float_u ())) in
   let local_ t525_C : t525 = (C (create_float_u ())) in
-  let local_ t526_A : t526 = (A (create_float (), create_string (), create_int32_u ())) in
+  let local_ t526_A : t526 = (A (create_float (), create_string (), create_float32_u ())) in
   let local_ t526_B : t526 = (B (create_float_u ())) in
   let local_ t526_C : t526 = (C (create_float_u ())) in
   let local_ t526_D : t526 = (D (create_float_u ())) in
-  let local_ t527_A : t527 = (A (create_string (), create_string (), create_int64_u ())) in
+  let local_ t527_A : t527 = (A (create_string (), create_string (), create_int32_u ())) in
   let local_ t527_B : t527 = (B (create_string (), create_float_u ())) in
-  let local_ t528_A : t528 = (A (create_float (), create_nativeint_u ())) in
+  let local_ t528_A : t528 = (A (create_float (), create_int64_u ())) in
   let local_ t528_B : t528 = (B (create_float_u ())) in
   let local_ t528_C : t528 = (C (create_float_u ())) in
-  let local_ t529_A : t529 = (A (create_string (), create_float_u (), create_int ())) in
+  let local_ t529_A : t529 = (A (create_string (), create_nativeint_u ())) in
   let local_ t529_B : t529 = (B (create_float_u ())) in
-  let local_ t530_A : t530 = (A (create_int32_u (), create_int ())) in
+  let local_ t530_A : t530 = (A (create_float_u (), create_int ())) in
   let local_ t531_A : t531 = (A (create_float_u ())) in
-  let local_ t531_B : t531 = (B (create_int64_u ())) in
+  let local_ t531_B : t531 = (B (create_int32_u ())) in
   let local_ t532_A : t532 = (A (create_string (), create_float_u ())) in
-  let local_ t532_B : t532 = (B (create_string (), create_int32_u ())) in
+  let local_ t532_B : t532 = (B (create_string (), create_float32_u ())) in
   let local_ t532_C : t532 = (C (create_float_u ())) in
-  let local_ t533_A : t533 = (A (create_int32_u ())) in
+  let local_ t533_A : t533 = (A (create_float32_u ())) in
   let local_ t533_B : t533 = (B (create_float (), create_float_u ())) in
   let local_ t533_C : t533 = (C (create_float_u ())) in
   let local_ t533_D : t533 = (D (create_float_u ())) in
   let local_ t534_A : t534 = (A (create_float (), create_float_u ())) in
-  let local_ t534_B : t534 = (B (create_int32_u ())) in
+  let local_ t534_B : t534 = (B (create_float32_u ())) in
   let local_ t534_C : t534 = (C (create_string (), create_float_u ())) in
-  let local_ t535_A : t535 = (A (create_string (), create_int32_u ())) in
+  let local_ t535_A : t535 = (A (create_string (), create_float32_u ())) in
   let local_ t535_B : t535 = (B (create_string (), create_float_u ())) in
   let local_ t535_C : t535 = (C (create_float_u ())) in
   let local_ t535_D : t535 = (D (create_float_u ())) in
   let local_ t535_E : t535 = (E (create_float_u ())) in
-  let local_ t536_A : t536 = (A (create_int64_u ())) in
+  let local_ t536_A : t536 = (A (create_int32_u ())) in
   let local_ t536_B : t536 = (B (create_float_u ())) in
   let local_ t536_C : t536 = (C (create_string (), create_float_u ())) in
   let local_ t536_D : t536 = (D (create_float_u ())) in
   let local_ t537_A : t537 = (A (create_string (), create_string (), create_float_u ())) in
-  let local_ t537_B : t537 = (B (create_string (), create_int32_u ())) in
-  let local_ t538_A : t538 = (A (create_float (), create_int32_u ())) in
+  let local_ t537_B : t537 = (B (create_string (), create_float32_u ())) in
+  let local_ t538_A : t538 = (A (create_float (), create_float32_u ())) in
   let local_ t538_B : t538 = (B (create_float (), create_float_u ())) in
   let local_ t538_C : t538 = (C (create_float_u ())) in
-  let local_ t539_A : t539 = (A (create_string (), create_int64_u ())) in
-  let local_ t539_B : t539 = (B (create_int32_u ())) in
+  let local_ t539_A : t539 = (A (create_string (), create_int32_u ())) in
+  let local_ t539_B : t539 = (B (create_float32_u ())) in
   let local_ t539_C : t539 = (C (create_float_u ())) in
   let local_ t539_D : t539 = (D (create_float_u ())) in
-  let local_ t540_A : t540 = (A (create_nativeint_u ())) in
+  let local_ t540_A : t540 = (A (create_int64_u ())) in
   let local_ t540_B : t540 = (B (create_string (), create_float_u ())) in
   let local_ t540_C : t540 = (C (create_string (), create_float_u ())) in
   let local_ t541_A : t541 = (A (create_float (), create_string (), create_float_u ())) in
@@ -15836,51 +15801,51 @@ let go () =
   let local_ t541_C : t541 = (C (create_float_u ())) in
   let local_ t541_D : t541 = (D (create_float_u ())) in
   let local_ t541_E : t541 = (E (create_float_u ())) in
-  let local_ t542_A : t542 = (A (create_string (), create_string (), create_int32_u ())) in
+  let local_ t542_A : t542 = (A (create_string (), create_string (), create_float32_u ())) in
   let local_ t542_B : t542 = (B (create_float (), create_float_u ())) in
-  let local_ t543_A : t543 = (A (create_float (), create_int64_u ())) in
-  let local_ t543_B : t543 = (B (create_int32_u ())) in
+  let local_ t543_A : t543 = (A (create_float (), create_int32_u ())) in
+  let local_ t543_B : t543 = (B (create_float32_u ())) in
   let local_ t543_C : t543 = (C (create_float_u ())) in
-  let local_ t544_A : t544 = (A (create_string (), create_nativeint_u ())) in
+  let local_ t544_A : t544 = (A (create_string (), create_int64_u ())) in
   let local_ t544_B : t544 = (B (create_string (), create_float_u ())) in
   let local_ t544_C : t544 = (C (create_float_u ())) in
   let local_ t544_D : t544 = (D (create_float_u ())) in
-  let local_ t545_A : t545 = (A (create_float_u (), create_int ())) in
+  let local_ t545_A : t545 = (A (create_nativeint_u ())) in
   let local_ t545_B : t545 = (B (create_float_u ())) in
   let local_ t545_C : t545 = (C (create_string (), create_float_u ())) in
   let local_ t546_A : t546 = (A (create_int (), create_string (), create_float_u ())) in
-  let local_ t546_B : t546 = (B (create_int32_u ())) in
-  let local_ t547_A : t547 = (A (create_float (), create_string (), create_int32_u ())) in
+  let local_ t546_B : t546 = (B (create_float32_u ())) in
+  let local_ t547_A : t547 = (A (create_float (), create_string (), create_float32_u ())) in
   let local_ t547_B : t547 = (B (create_string (), create_float_u ())) in
   let local_ t547_C : t547 = (C (create_float_u ())) in
-  let local_ t548_A : t548 = (A (create_string (), create_string (), create_int64_u ())) in
+  let local_ t548_A : t548 = (A (create_string (), create_string (), create_int32_u ())) in
   let local_ t548_B : t548 = (B (create_float_u ())) in
   let local_ t548_C : t548 = (C (create_float_u ())) in
   let local_ t548_D : t548 = (D (create_float_u ())) in
-  let local_ t549_A : t549 = (A (create_float (), create_nativeint_u ())) in
+  let local_ t549_A : t549 = (A (create_float (), create_int64_u ())) in
   let local_ t549_B : t549 = (B (create_string (), create_float_u ())) in
-  let local_ t550_A : t550 = (A (create_string (), create_float_u (), create_int ())) in
+  let local_ t550_A : t550 = (A (create_string (), create_nativeint_u ())) in
   let local_ t550_B : t550 = (B (create_float_u ())) in
   let local_ t550_C : t550 = (C (create_float_u ())) in
-  let local_ t551_A : t551 = (A (create_int32_u (), create_int ())) in
+  let local_ t551_A : t551 = (A (create_float_u (), create_int ())) in
   let local_ t551_B : t551 = (B (create_float_u ())) in
   let local_ t552_A : t552 = (A (create_string (), create_float (), create_float_u ())) in
   let local_ t553_A : t553 = (A (create_float_u ())) in
   let local_ t553_B : t553 = (B (create_float_u ())) in
-  let local_ t553_C : t553 = (C (create_int32_u ())) in
+  let local_ t553_C : t553 = (C (create_float32_u ())) in
   let local_ t554_A : t554 = (A (create_string (), create_float_u ())) in
-  let local_ t554_B : t554 = (B (create_int64_u ())) in
-  let local_ t555_A : t555 = (A (create_int32_u ())) in
-  let local_ t555_B : t555 = (B (create_string (), create_int32_u ())) in
+  let local_ t554_B : t554 = (B (create_int32_u ())) in
+  let local_ t555_A : t555 = (A (create_float32_u ())) in
+  let local_ t555_B : t555 = (B (create_string (), create_float32_u ())) in
   let local_ t555_C : t555 = (C (create_float_u ())) in
   let local_ t556_A : t556 = (A (create_float (), create_float_u ())) in
   let local_ t556_B : t556 = (B (create_float (), create_float_u ())) in
   let local_ t556_C : t556 = (C (create_float_u ())) in
   let local_ t556_D : t556 = (D (create_float_u ())) in
-  let local_ t557_A : t557 = (A (create_string (), create_int32_u ())) in
-  let local_ t557_B : t557 = (B (create_int32_u ())) in
+  let local_ t557_A : t557 = (A (create_string (), create_float32_u ())) in
+  let local_ t557_B : t557 = (B (create_float32_u ())) in
   let local_ t557_C : t557 = (C (create_string (), create_float_u ())) in
-  let local_ t558_A : t558 = (A (create_int64_u ())) in
+  let local_ t558_A : t558 = (A (create_int32_u ())) in
   let local_ t558_B : t558 = (B (create_string (), create_float_u ())) in
   let local_ t558_C : t558 = (C (create_float_u ())) in
   let local_ t558_D : t558 = (D (create_float_u ())) in
@@ -15889,126 +15854,126 @@ let go () =
   let local_ t559_B : t559 = (B (create_float_u ())) in
   let local_ t559_C : t559 = (C (create_string (), create_float_u ())) in
   let local_ t559_D : t559 = (D (create_float_u ())) in
-  let local_ t560_A : t560 = (A (create_float (), create_int32_u ())) in
-  let local_ t560_B : t560 = (B (create_string (), create_int32_u ())) in
-  let local_ t561_A : t561 = (A (create_string (), create_int64_u ())) in
+  let local_ t560_A : t560 = (A (create_float (), create_float32_u ())) in
+  let local_ t560_B : t560 = (B (create_string (), create_float32_u ())) in
+  let local_ t561_A : t561 = (A (create_string (), create_int32_u ())) in
   let local_ t561_B : t561 = (B (create_float (), create_float_u ())) in
   let local_ t561_C : t561 = (C (create_float_u ())) in
-  let local_ t562_A : t562 = (A (create_nativeint_u ())) in
-  let local_ t562_B : t562 = (B (create_int32_u ())) in
+  let local_ t562_A : t562 = (A (create_int64_u ())) in
+  let local_ t562_B : t562 = (B (create_float32_u ())) in
   let local_ t562_C : t562 = (C (create_float_u ())) in
   let local_ t562_D : t562 = (D (create_float_u ())) in
   let local_ t563_A : t563 = (A (create_float (), create_string (), create_float_u ())) in
   let local_ t563_B : t563 = (B (create_string (), create_float_u ())) in
   let local_ t563_C : t563 = (C (create_string (), create_float_u ())) in
-  let local_ t564_A : t564 = (A (create_string (), create_string (), create_int32_u ())) in
+  let local_ t564_A : t564 = (A (create_string (), create_string (), create_float32_u ())) in
   let local_ t564_B : t564 = (B (create_float_u ())) in
   let local_ t564_C : t564 = (C (create_float_u ())) in
   let local_ t564_D : t564 = (D (create_float_u ())) in
   let local_ t564_E : t564 = (E (create_float_u ())) in
-  let local_ t565_A : t565 = (A (create_float (), create_int64_u ())) in
+  let local_ t565_A : t565 = (A (create_float (), create_int32_u ())) in
   let local_ t565_B : t565 = (B (create_float (), create_float_u ())) in
-  let local_ t566_A : t566 = (A (create_string (), create_nativeint_u ())) in
-  let local_ t566_B : t566 = (B (create_int32_u ())) in
+  let local_ t566_A : t566 = (A (create_string (), create_int64_u ())) in
+  let local_ t566_B : t566 = (B (create_float32_u ())) in
   let local_ t566_C : t566 = (C (create_float_u ())) in
-  let local_ t567_A : t567 = (A (create_float_u (), create_int ())) in
+  let local_ t567_A : t567 = (A (create_nativeint_u ())) in
   let local_ t567_B : t567 = (B (create_string (), create_float_u ())) in
   let local_ t567_C : t567 = (C (create_float_u ())) in
   let local_ t567_D : t567 = (D (create_float_u ())) in
   let local_ t568_A : t568 = (A (create_int (), create_string (), create_float_u ())) in
   let local_ t568_B : t568 = (B (create_float_u ())) in
   let local_ t568_C : t568 = (C (create_string (), create_float_u ())) in
-  let local_ t569_A : t569 = (A (create_float (), create_string (), create_int32_u ())) in
-  let local_ t569_B : t569 = (B (create_int32_u ())) in
-  let local_ t570_A : t570 = (A (create_string (), create_string (), create_int64_u ())) in
+  let local_ t569_A : t569 = (A (create_float (), create_string (), create_float32_u ())) in
+  let local_ t569_B : t569 = (B (create_float32_u ())) in
+  let local_ t570_A : t570 = (A (create_string (), create_string (), create_int32_u ())) in
   let local_ t570_B : t570 = (B (create_string (), create_float_u ())) in
   let local_ t570_C : t570 = (C (create_float_u ())) in
-  let local_ t571_A : t571 = (A (create_float (), create_nativeint_u ())) in
+  let local_ t571_A : t571 = (A (create_float (), create_int64_u ())) in
   let local_ t571_B : t571 = (B (create_float_u ())) in
   let local_ t571_C : t571 = (C (create_float_u ())) in
   let local_ t571_D : t571 = (D (create_float_u ())) in
-  let local_ t572_A : t572 = (A (create_string (), create_float_u (), create_int ())) in
+  let local_ t572_A : t572 = (A (create_string (), create_nativeint_u ())) in
   let local_ t572_B : t572 = (B (create_string (), create_float_u ())) in
-  let local_ t573_A : t573 = (A (create_int32_u (), create_int ())) in
+  let local_ t573_A : t573 = (A (create_float_u (), create_int ())) in
   let local_ t573_B : t573 = (B (create_float_u ())) in
   let local_ t573_C : t573 = (C (create_float_u ())) in
   let local_ t574_A : t574 = (A (create_string (), create_float (), create_float_u ())) in
   let local_ t574_B : t574 = (B (create_float_u ())) in
-  let local_ t575_A : t575 = (A (create_int (), create_string (), create_int32_u ())) in
+  let local_ t575_A : t575 = (A (create_int (), create_string (), create_float32_u ())) in
   let local_ t576_A : t576 = (A (create_float_u ())) in
   let local_ t576_B : t576 = (B (create_string (), create_float_u ())) in
   let local_ t576_C : t576 = (C (create_string (), create_float_u ())) in
   let local_ t576_D : t576 = (D (create_float_u ())) in
   let local_ t577_A : t577 = (A (create_string (), create_float_u ())) in
   let local_ t577_B : t577 = (B (create_float_u ())) in
-  let local_ t577_C : t577 = (C (create_int32_u ())) in
-  let local_ t578_A : t578 = (A (create_int32_u ())) in
-  let local_ t578_B : t578 = (B (create_int64_u ())) in
+  let local_ t577_C : t577 = (C (create_float32_u ())) in
+  let local_ t578_A : t578 = (A (create_float32_u ())) in
+  let local_ t578_B : t578 = (B (create_int32_u ())) in
   let local_ t579_A : t579 = (A (create_float (), create_float_u ())) in
-  let local_ t579_B : t579 = (B (create_string (), create_int32_u ())) in
+  let local_ t579_B : t579 = (B (create_string (), create_float32_u ())) in
   let local_ t579_C : t579 = (C (create_float_u ())) in
-  let local_ t580_A : t580 = (A (create_string (), create_int32_u ())) in
+  let local_ t580_A : t580 = (A (create_string (), create_float32_u ())) in
   let local_ t580_B : t580 = (B (create_float (), create_float_u ())) in
   let local_ t580_C : t580 = (C (create_float_u ())) in
   let local_ t580_D : t580 = (D (create_float_u ())) in
-  let local_ t581_A : t581 = (A (create_int64_u ())) in
-  let local_ t581_B : t581 = (B (create_int32_u ())) in
+  let local_ t581_A : t581 = (A (create_int32_u ())) in
+  let local_ t581_B : t581 = (B (create_float32_u ())) in
   let local_ t581_C : t581 = (C (create_string (), create_float_u ())) in
   let local_ t582_A : t582 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t582_B : t582 = (B (create_string (), create_float_u ())) in
   let local_ t582_C : t582 = (C (create_float_u ())) in
   let local_ t582_D : t582 = (D (create_float_u ())) in
   let local_ t582_E : t582 = (E (create_float_u ())) in
-  let local_ t583_A : t583 = (A (create_float (), create_int32_u ())) in
+  let local_ t583_A : t583 = (A (create_float (), create_float32_u ())) in
   let local_ t583_B : t583 = (B (create_float_u ())) in
   let local_ t583_C : t583 = (C (create_string (), create_float_u ())) in
   let local_ t583_D : t583 = (D (create_float_u ())) in
-  let local_ t584_A : t584 = (A (create_string (), create_int64_u ())) in
-  let local_ t584_B : t584 = (B (create_string (), create_int32_u ())) in
-  let local_ t585_A : t585 = (A (create_nativeint_u ())) in
+  let local_ t584_A : t584 = (A (create_string (), create_int32_u ())) in
+  let local_ t584_B : t584 = (B (create_string (), create_float32_u ())) in
+  let local_ t585_A : t585 = (A (create_int64_u ())) in
   let local_ t585_B : t585 = (B (create_float (), create_float_u ())) in
   let local_ t585_C : t585 = (C (create_float_u ())) in
   let local_ t586_A : t586 = (A (create_float (), create_string (), create_float_u ())) in
-  let local_ t586_B : t586 = (B (create_int32_u ())) in
+  let local_ t586_B : t586 = (B (create_float32_u ())) in
   let local_ t586_C : t586 = (C (create_float_u ())) in
   let local_ t586_D : t586 = (D (create_float_u ())) in
-  let local_ t587_A : t587 = (A (create_string (), create_string (), create_int32_u ())) in
+  let local_ t587_A : t587 = (A (create_string (), create_string (), create_float32_u ())) in
   let local_ t587_B : t587 = (B (create_string (), create_float_u ())) in
   let local_ t587_C : t587 = (C (create_string (), create_float_u ())) in
-  let local_ t588_A : t588 = (A (create_float (), create_int64_u ())) in
+  let local_ t588_A : t588 = (A (create_float (), create_int32_u ())) in
   let local_ t588_B : t588 = (B (create_float_u ())) in
   let local_ t588_C : t588 = (C (create_float_u ())) in
   let local_ t588_D : t588 = (D (create_float_u ())) in
   let local_ t588_E : t588 = (E (create_float_u ())) in
-  let local_ t589_A : t589 = (A (create_string (), create_nativeint_u ())) in
+  let local_ t589_A : t589 = (A (create_string (), create_int64_u ())) in
   let local_ t589_B : t589 = (B (create_float (), create_float_u ())) in
-  let local_ t590_A : t590 = (A (create_float_u (), create_int ())) in
-  let local_ t590_B : t590 = (B (create_int32_u ())) in
+  let local_ t590_A : t590 = (A (create_nativeint_u ())) in
+  let local_ t590_B : t590 = (B (create_float32_u ())) in
   let local_ t590_C : t590 = (C (create_float_u ())) in
   let local_ t591_A : t591 = (A (create_int (), create_string (), create_float_u ())) in
   let local_ t591_B : t591 = (B (create_string (), create_float_u ())) in
   let local_ t591_C : t591 = (C (create_float_u ())) in
   let local_ t591_D : t591 = (D (create_float_u ())) in
-  let local_ t592_A : t592 = (A (create_float (), create_string (), create_int32_u ())) in
+  let local_ t592_A : t592 = (A (create_float (), create_string (), create_float32_u ())) in
   let local_ t592_B : t592 = (B (create_float_u ())) in
   let local_ t592_C : t592 = (C (create_string (), create_float_u ())) in
-  let local_ t593_A : t593 = (A (create_string (), create_string (), create_int64_u ())) in
-  let local_ t593_B : t593 = (B (create_int32_u ())) in
-  let local_ t594_A : t594 = (A (create_float (), create_nativeint_u ())) in
+  let local_ t593_A : t593 = (A (create_string (), create_string (), create_int32_u ())) in
+  let local_ t593_B : t593 = (B (create_float32_u ())) in
+  let local_ t594_A : t594 = (A (create_float (), create_int64_u ())) in
   let local_ t594_B : t594 = (B (create_string (), create_float_u ())) in
   let local_ t594_C : t594 = (C (create_float_u ())) in
-  let local_ t595_A : t595 = (A (create_string (), create_float_u (), create_int ())) in
+  let local_ t595_A : t595 = (A (create_string (), create_nativeint_u ())) in
   let local_ t595_B : t595 = (B (create_float_u ())) in
   let local_ t595_C : t595 = (C (create_float_u ())) in
   let local_ t595_D : t595 = (D (create_float_u ())) in
-  let local_ t596_A : t596 = (A (create_int32_u (), create_int ())) in
+  let local_ t596_A : t596 = (A (create_float_u (), create_int ())) in
   let local_ t596_B : t596 = (B (create_string (), create_float_u ())) in
   let local_ t597_A : t597 = (A (create_string (), create_float (), create_float_u ())) in
   let local_ t597_B : t597 = (B (create_float_u ())) in
   let local_ t597_C : t597 = (C (create_float_u ())) in
-  let local_ t598_A : t598 = (A (create_int (), create_string (), create_int32_u ())) in
+  let local_ t598_A : t598 = (A (create_int (), create_string (), create_float32_u ())) in
   let local_ t598_B : t598 = (B (create_float_u ())) in
-  let local_ t599_A : t599 = (A (create_float (), create_string (), create_int64_u ())) in
+  let local_ t599_A : t599 = (A (create_float (), create_string (), create_int32_u ())) in
     let module _ = struct
     let () = print_endline " - Doing GC";;
     let () = Gc.full_major ();;
diff --git a/ocaml/testsuite/tests/mixed-blocks/generated_native_test.ml b/ocaml/testsuite/tests/mixed-blocks/generated_native_test.ml
index 3a45dea1435..d9773bd06f9 100644
--- a/ocaml/testsuite/tests/mixed-blocks/generated_native_test.ml
+++ b/ocaml/testsuite/tests/mixed-blocks/generated_native_test.ml
@@ -1,5 +1,6 @@
 (* TEST
- flags = "-extension layouts_beta";
+ flags = "-extension layouts_beta -extension small_numbers";
+ include beta;
  flambda2;
  native;
 *)
@@ -9,7 +10,9 @@
 let create_string () = String.make (Random.int 100) 'a'
 let create_int () = Random.int 0x3FFF_FFFF
 let create_float () = Random.float Float.max_float
+let create_float32 () = Beta.Float32.of_float (Random.float Float.max_float)
 let create_float_u () = Stdlib__Float_u.of_float (create_float ())
+let create_float32_u () = Beta.Float32_u.of_float32 (create_float32 ())
 let create_int32_u () = Stdlib__Int32_u.of_int32 (Random.int32 0x7FFF_FFFFl)
 let create_int64_u () = Stdlib__Int64_u.of_int64 (Random.int64 0x7FFF_FFFF_FFFF_FFFFL)
 let create_nativeint_u () = Stdlib__Nativeint_u.of_nativeint (Random.nativeint 0x7FFF_FFFF_FFFF_FFFFn)
@@ -22,6 +25,8 @@ let check_string = check_gen ~equal:String.equal ~to_string:(fun x -> x)
 let check_int = check_gen ~equal:Int.equal ~to_string:Int.to_string
 let check_float =
   check_gen ~equal:Float.equal ~to_string:Float.to_string
+let check_float32 =
+  check_gen ~equal:Beta.Float32.equal ~to_string:Beta.Float32.to_string
 let check_int32 =
   check_gen ~equal:Int32.equal ~to_string:Int32.to_string
 let check_int64 =
@@ -89,60 +94,60 @@ type t17 = { float_u0 : float#; float1 : float; mutable float_u2 : float# }
 type t18 = { mutable str0 : string; mutable float_u1 : float# }
 type t19 = { str0 : string; mutable float_u1 : float# }
 type t20 = { mutable str0 : string; float_u1 : float# }
-type t21 = { mutable i32_0 : int32# }
+type t21 = { mutable float32_u0 : float32# }
 type t22 = { str0 : string; float_u1 : float# }
-type t23 = { mutable str0 : string; mutable i32_1 : int32# }
-type t24 = { i32_0 : int32# }
-type t25 = { str0 : string; mutable i32_1 : int32# }
-type t26 = { mutable str0 : string; i32_1 : int32# }
-type t27 = { mutable i64_0 : int64# }
+type t23 = { mutable str0 : string; mutable float32_u1 : float32# }
+type t24 = { float32_u0 : float32# }
+type t25 = { str0 : string; mutable float32_u1 : float32# }
+type t26 = { mutable str0 : string; float32_u1 : float32# }
+type t27 = { mutable i32_0 : int32# }
 type t28 = { mutable str0 : string; mutable str1 : string; mutable float_u2 : float# }
-type t29 = { mutable float0 : float; mutable i32_1 : int32# }
-type t30 = { str0 : string; i32_1 : int32# }
-type t31 = { mutable str0 : string; mutable i64_1 : int64# }
-type t32 = { i64_0 : int64# }
+type t29 = { mutable float0 : float; mutable float32_u1 : float32# }
+type t30 = { str0 : string; float32_u1 : float32# }
+type t31 = { mutable str0 : string; mutable i32_1 : int32# }
+type t32 = { i32_0 : int32# }
 type t33 = { str0 : string; mutable str1 : string; mutable float_u2 : float# }
 type t34 = { mutable str0 : string; mutable str1 : string; float_u2 : float# }
-type t35 = { float0 : float; mutable i32_1 : int32# }
-type t36 = { mutable float0 : float; i32_1 : int32# }
-type t37 = { str0 : string; mutable i64_1 : int64# }
-type t38 = { mutable str0 : string; i64_1 : int64# }
-type t39 = { mutable n0 : nativeint# }
+type t35 = { float0 : float; mutable float32_u1 : float32# }
+type t36 = { mutable float0 : float; float32_u1 : float32# }
+type t37 = { str0 : string; mutable i32_1 : int32# }
+type t38 = { mutable str0 : string; i32_1 : int32# }
+type t39 = { mutable i64_0 : int64# }
 type t40 = { mutable float0 : float; mutable str1 : string; mutable float_u2 : float# }
 type t41 = { str0 : string; mutable str1 : string; float_u2 : float# }
-type t42 = { mutable str0 : string; mutable str1 : string; mutable i32_2 : int32# }
-type t43 = { float0 : float; i32_1 : int32# }
-type t44 = { mutable float0 : float; mutable i64_1 : int64# }
-type t45 = { str0 : string; i64_1 : int64# }
-type t46 = { mutable str0 : string; mutable n1 : nativeint# }
-type t47 = { n0 : nativeint# }
+type t42 = { mutable str0 : string; mutable str1 : string; mutable float32_u2 : float32# }
+type t43 = { float0 : float; float32_u1 : float32# }
+type t44 = { mutable float0 : float; mutable i32_1 : int32# }
+type t45 = { str0 : string; i32_1 : int32# }
+type t46 = { mutable str0 : string; mutable i64_1 : int64# }
+type t47 = { i64_0 : int64# }
 type t48 = { float0 : float; mutable str1 : string; mutable float_u2 : float# }
 type t49 = { mutable float0 : float; mutable str1 : string; float_u2 : float# }
-type t50 = { str0 : string; mutable str1 : string; mutable i32_2 : int32# }
-type t51 = { mutable str0 : string; mutable str1 : string; i32_2 : int32# }
-type t52 = { float0 : float; mutable i64_1 : int64# }
-type t53 = { mutable float0 : float; i64_1 : int64# }
-type t54 = { str0 : string; mutable n1 : nativeint# }
-type t55 = { mutable str0 : string; n1 : nativeint# }
-type t56 = { mutable float_u0 : float#; mutable imm1 : int }
+type t50 = { str0 : string; mutable str1 : string; mutable float32_u2 : float32# }
+type t51 = { mutable str0 : string; mutable str1 : string; float32_u2 : float32# }
+type t52 = { float0 : float; mutable i32_1 : int32# }
+type t53 = { mutable float0 : float; i32_1 : int32# }
+type t54 = { str0 : string; mutable i64_1 : int64# }
+type t55 = { mutable str0 : string; i64_1 : int64# }
+type t56 = { mutable n0 : nativeint# }
 type t57 = { mutable imm0 : int; mutable str1 : string; mutable float_u2 : float# }
 type t58 = { float0 : float; mutable str1 : string; float_u2 : float# }
-type t59 = { mutable float0 : float; mutable str1 : string; mutable i32_2 : int32# }
-type t60 = { str0 : string; mutable str1 : string; i32_2 : int32# }
-type t61 = { mutable str0 : string; mutable str1 : string; mutable i64_2 : int64# }
-type t62 = { float0 : float; i64_1 : int64# }
-type t63 = { mutable float0 : float; mutable n1 : nativeint# }
-type t64 = { str0 : string; n1 : nativeint# }
-type t65 = { mutable str0 : string; mutable float_u1 : float#; mutable imm2 : int }
-type t66 = { float_u0 : float#; mutable imm1 : int }
+type t59 = { mutable float0 : float; mutable str1 : string; mutable float32_u2 : float32# }
+type t60 = { str0 : string; mutable str1 : string; float32_u2 : float32# }
+type t61 = { mutable str0 : string; mutable str1 : string; mutable i32_2 : int32# }
+type t62 = { float0 : float; i32_1 : int32# }
+type t63 = { mutable float0 : float; mutable i64_1 : int64# }
+type t64 = { str0 : string; i64_1 : int64# }
+type t65 = { mutable str0 : string; mutable n1 : nativeint# }
+type t66 = { n0 : nativeint# }
 type t67 = { imm0 : int; mutable str1 : string; mutable float_u2 : float# }
 type t68 = { mutable imm0 : int; mutable str1 : string; float_u2 : float# }
-type t69 = { float0 : float; mutable str1 : string; mutable i32_2 : int32# }
-type t70 = { mutable float0 : float; mutable str1 : string; i32_2 : int32# }
-type t71 = { str0 : string; mutable str1 : string; mutable i64_2 : int64# }
-type t72 = { mutable str0 : string; mutable str1 : string; i64_2 : int64# }
-type t73 = { float0 : float; mutable n1 : nativeint# }
-type t74 = { mutable float0 : float; n1 : nativeint# }
+type t69 = { float0 : float; mutable str1 : string; mutable float32_u2 : float32# }
+type t70 = { mutable float0 : float; mutable str1 : string; float32_u2 : float32# }
+type t71 = { str0 : string; mutable str1 : string; mutable i32_2 : int32# }
+type t72 = { mutable str0 : string; mutable str1 : string; i32_2 : int32# }
+type t73 = { float0 : float; mutable i64_1 : int64# }
+type t74 = { mutable float0 : float; i64_1 : int64# }
 type t75 =
   | A of float#
 type t76 =
@@ -158,7 +163,7 @@ type t79 =
   | A of string * float#
   | B of float#
 type t80 =
-  | A of int32#
+  | A of float32#
 type t81 =
   | A of float#
   | B of string * float#
@@ -167,7 +172,7 @@ type t82 =
   | B of float#
   | C of float#
 type t83 =
-  | A of int32#
+  | A of float32#
   | B of float#
 type t84 =
   | A of float * float#
@@ -180,14 +185,14 @@ type t86 =
   | A of string * float#
   | B of string * float#
 type t87 =
-  | A of int32#
+  | A of float32#
   | B of float#
   | C of float#
 type t88 =
   | A of float * float#
   | B of float#
 type t89 =
-  | A of string * int32#
+  | A of string * float32#
 type t90 =
   | A of float#
   | B of string * float#
@@ -198,26 +203,26 @@ type t91 =
   | C of float#
   | D of float#
 type t92 =
-  | A of int32#
+  | A of float32#
   | B of string * float#
 type t93 =
   | A of float * float#
   | B of float#
   | C of float#
 type t94 =
-  | A of string * int32#
+  | A of string * float32#
   | B of float#
 type t95 =
-  | A of int64#
+  | A of int32#
 type t96 =
   | A of float#
-  | B of int32#
+  | B of float32#
 type t97 =
   | A of string * float#
   | B of string * float#
   | C of float#
 type t98 =
-  | A of int32#
+  | A of float32#
   | B of float#
   | C of float#
   | D of float#
@@ -225,11 +230,11 @@ type t99 =
   | A of float * float#
   | B of string * float#
 type t100 =
-  | A of string * int32#
+  | A of string * float32#
   | B of float#
   | C of float#
 type t101 =
-  | A of int64#
+  | A of int32#
   | B of float#
 type t102 =
   | A of string * string * float#
@@ -239,9 +244,9 @@ type t103 =
   | C of string * float#
 type t104 =
   | A of string * float#
-  | B of int32#
+  | B of float32#
 type t105 =
-  | A of int32#
+  | A of float32#
   | B of string * float#
   | C of float#
 type t106 =
@@ -250,17 +255,17 @@ type t106 =
   | C of float#
   | D of float#
 type t107 =
-  | A of string * int32#
+  | A of string * float32#
   | B of string * float#
 type t108 =
-  | A of int64#
+  | A of int32#
   | B of float#
   | C of float#
 type t109 =
   | A of string * string * float#
   | B of float#
 type t110 =
-  | A of float * int32#
+  | A of float * float32#
 type t111 =
   | A of float#
   | B of string * float#
@@ -271,32 +276,32 @@ type t112 =
   | B of float#
   | C of string * float#
 type t113 =
-  | A of int32#
-  | B of int32#
+  | A of float32#
+  | B of float32#
 type t114 =
   | A of float * float#
   | B of string * float#
   | C of float#
 type t115 =
-  | A of string * int32#
+  | A of string * float32#
   | B of float#
   | C of float#
   | D of float#
 type t116 =
-  | A of int64#
+  | A of int32#
   | B of string * float#
 type t117 =
   | A of string * string * float#
   | B of float#
   | C of float#
 type t118 =
-  | A of float * int32#
+  | A of float * float32#
   | B of float#
 type t119 =
-  | A of string * int64#
+  | A of string * int32#
 type t120 =
   | A of float#
-  | B of int32#
+  | B of float32#
   | C of float#
 type t121 =
   | A of string * float#
@@ -304,18 +309,18 @@ type t121 =
   | C of float#
   | D of float#
 type t122 =
-  | A of int32#
+  | A of float32#
   | B of float#
   | C of string * float#
 type t123 =
   | A of float * float#
-  | B of int32#
+  | B of float32#
 type t124 =
-  | A of string * int32#
+  | A of string * float32#
   | B of string * float#
   | C of float#
 type t125 =
-  | A of int64#
+  | A of int32#
   | B of float#
   | C of float#
   | D of float#
@@ -323,23 +328,23 @@ type t126 =
   | A of string * string * float#
   | B of string * float#
 type t127 =
-  | A of float * int32#
+  | A of float * float32#
   | B of float#
   | C of float#
 type t128 =
-  | A of string * int64#
+  | A of string * int32#
   | B of float#
 type t129 =
-  | A of nativeint#
+  | A of int64#
 type t130 =
   | A of float#
   | B of float * float#
 type t131 =
   | A of string * float#
-  | B of int32#
+  | B of float32#
   | C of float#
 type t132 =
-  | A of int32#
+  | A of float32#
   | B of string * float#
   | C of float#
   | D of float#
@@ -348,10 +353,10 @@ type t133 =
   | B of float#
   | C of string * float#
 type t134 =
-  | A of string * int32#
-  | B of int32#
+  | A of string * float32#
+  | B of float32#
 type t135 =
-  | A of int64#
+  | A of int32#
   | B of string * float#
   | C of float#
 type t136 =
@@ -360,14 +365,14 @@ type t136 =
   | C of float#
   | D of float#
 type t137 =
-  | A of float * int32#
+  | A of float * float32#
   | B of string * float#
 type t138 =
-  | A of string * int64#
+  | A of string * int32#
   | B of float#
   | C of float#
 type t139 =
-  | A of nativeint#
+  | A of int64#
   | B of float#
 type t140 =
   | A of float * string * float#
@@ -381,8 +386,8 @@ type t142 =
   | A of string * float#
   | B of float * float#
 type t143 =
-  | A of int32#
-  | B of int32#
+  | A of float32#
+  | B of float32#
   | C of float#
 type t144 =
   | A of float * float#
@@ -390,23 +395,23 @@ type t144 =
   | C of float#
   | D of float#
 type t145 =
-  | A of string * int32#
+  | A of string * float32#
   | B of float#
   | C of string * float#
 type t146 =
-  | A of int64#
-  | B of int32#
+  | A of int32#
+  | B of float32#
 type t147 =
   | A of string * string * float#
   | B of string * float#
   | C of float#
 type t148 =
-  | A of float * int32#
+  | A of float * float32#
   | B of float#
   | C of float#
   | D of float#
 type t149 =
-  | A of string * int64#
+  | A of string * int32#
   | B of string * float#
 
 (* Let declarations *)
@@ -432,60 +437,60 @@ let t17 : t17 = { float_u0 = create_float_u (); float1 = create_float (); float_
 let t18 : t18 = { str0 = create_string (); float_u1 = create_float_u () };;
 let t19 : t19 = { str0 = create_string (); float_u1 = create_float_u () };;
 let t20 : t20 = { str0 = create_string (); float_u1 = create_float_u () };;
-let t21 : t21 = { i32_0 = create_int32_u () };;
+let t21 : t21 = { float32_u0 = create_float32_u () };;
 let t22 : t22 = { str0 = create_string (); float_u1 = create_float_u () };;
-let t23 : t23 = { str0 = create_string (); i32_1 = create_int32_u () };;
-let t24 : t24 = { i32_0 = create_int32_u () };;
-let t25 : t25 = { str0 = create_string (); i32_1 = create_int32_u () };;
-let t26 : t26 = { str0 = create_string (); i32_1 = create_int32_u () };;
-let t27 : t27 = { i64_0 = create_int64_u () };;
+let t23 : t23 = { str0 = create_string (); float32_u1 = create_float32_u () };;
+let t24 : t24 = { float32_u0 = create_float32_u () };;
+let t25 : t25 = { str0 = create_string (); float32_u1 = create_float32_u () };;
+let t26 : t26 = { str0 = create_string (); float32_u1 = create_float32_u () };;
+let t27 : t27 = { i32_0 = create_int32_u () };;
 let t28 : t28 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () };;
-let t29 : t29 = { float0 = create_float (); i32_1 = create_int32_u () };;
-let t30 : t30 = { str0 = create_string (); i32_1 = create_int32_u () };;
-let t31 : t31 = { str0 = create_string (); i64_1 = create_int64_u () };;
-let t32 : t32 = { i64_0 = create_int64_u () };;
+let t29 : t29 = { float0 = create_float (); float32_u1 = create_float32_u () };;
+let t30 : t30 = { str0 = create_string (); float32_u1 = create_float32_u () };;
+let t31 : t31 = { str0 = create_string (); i32_1 = create_int32_u () };;
+let t32 : t32 = { i32_0 = create_int32_u () };;
 let t33 : t33 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () };;
 let t34 : t34 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () };;
-let t35 : t35 = { float0 = create_float (); i32_1 = create_int32_u () };;
-let t36 : t36 = { float0 = create_float (); i32_1 = create_int32_u () };;
-let t37 : t37 = { str0 = create_string (); i64_1 = create_int64_u () };;
-let t38 : t38 = { str0 = create_string (); i64_1 = create_int64_u () };;
-let t39 : t39 = { n0 = create_nativeint_u () };;
+let t35 : t35 = { float0 = create_float (); float32_u1 = create_float32_u () };;
+let t36 : t36 = { float0 = create_float (); float32_u1 = create_float32_u () };;
+let t37 : t37 = { str0 = create_string (); i32_1 = create_int32_u () };;
+let t38 : t38 = { str0 = create_string (); i32_1 = create_int32_u () };;
+let t39 : t39 = { i64_0 = create_int64_u () };;
 let t40 : t40 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () };;
 let t41 : t41 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () };;
-let t42 : t42 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t43 : t43 = { float0 = create_float (); i32_1 = create_int32_u () };;
-let t44 : t44 = { float0 = create_float (); i64_1 = create_int64_u () };;
-let t45 : t45 = { str0 = create_string (); i64_1 = create_int64_u () };;
-let t46 : t46 = { str0 = create_string (); n1 = create_nativeint_u () };;
-let t47 : t47 = { n0 = create_nativeint_u () };;
+let t42 : t42 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t43 : t43 = { float0 = create_float (); float32_u1 = create_float32_u () };;
+let t44 : t44 = { float0 = create_float (); i32_1 = create_int32_u () };;
+let t45 : t45 = { str0 = create_string (); i32_1 = create_int32_u () };;
+let t46 : t46 = { str0 = create_string (); i64_1 = create_int64_u () };;
+let t47 : t47 = { i64_0 = create_int64_u () };;
 let t48 : t48 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () };;
 let t49 : t49 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () };;
-let t50 : t50 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t51 : t51 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t52 : t52 = { float0 = create_float (); i64_1 = create_int64_u () };;
-let t53 : t53 = { float0 = create_float (); i64_1 = create_int64_u () };;
-let t54 : t54 = { str0 = create_string (); n1 = create_nativeint_u () };;
-let t55 : t55 = { str0 = create_string (); n1 = create_nativeint_u () };;
-let t56 : t56 = { float_u0 = create_float_u (); imm1 = create_int () };;
+let t50 : t50 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t51 : t51 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t52 : t52 = { float0 = create_float (); i32_1 = create_int32_u () };;
+let t53 : t53 = { float0 = create_float (); i32_1 = create_int32_u () };;
+let t54 : t54 = { str0 = create_string (); i64_1 = create_int64_u () };;
+let t55 : t55 = { str0 = create_string (); i64_1 = create_int64_u () };;
+let t56 : t56 = { n0 = create_nativeint_u () };;
 let t57 : t57 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () };;
 let t58 : t58 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () };;
-let t59 : t59 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t60 : t60 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t61 : t61 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t62 : t62 = { float0 = create_float (); i64_1 = create_int64_u () };;
-let t63 : t63 = { float0 = create_float (); n1 = create_nativeint_u () };;
-let t64 : t64 = { str0 = create_string (); n1 = create_nativeint_u () };;
-let t65 : t65 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () };;
-let t66 : t66 = { float_u0 = create_float_u (); imm1 = create_int () };;
+let t59 : t59 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t60 : t60 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t61 : t61 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t62 : t62 = { float0 = create_float (); i32_1 = create_int32_u () };;
+let t63 : t63 = { float0 = create_float (); i64_1 = create_int64_u () };;
+let t64 : t64 = { str0 = create_string (); i64_1 = create_int64_u () };;
+let t65 : t65 = { str0 = create_string (); n1 = create_nativeint_u () };;
+let t66 : t66 = { n0 = create_nativeint_u () };;
 let t67 : t67 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () };;
 let t68 : t68 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () };;
-let t69 : t69 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t70 : t70 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () };;
-let t71 : t71 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t72 : t72 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () };;
-let t73 : t73 = { float0 = create_float (); n1 = create_nativeint_u () };;
-let t74 : t74 = { float0 = create_float (); n1 = create_nativeint_u () };;
+let t69 : t69 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t70 : t70 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () };;
+let t71 : t71 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t72 : t72 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () };;
+let t73 : t73 = { float0 = create_float (); i64_1 = create_int64_u () };;
+let t74 : t74 = { float0 = create_float (); i64_1 = create_int64_u () };;
 let t75_A : t75 = (A (create_float_u ()));;
 let t76_A : t76 = (A (create_float_u ()));;
 let t76_B : t76 = (B (create_float_u ()));;
@@ -495,13 +500,13 @@ let t78_B : t78 = (B (create_float_u ()));;
 let t78_C : t78 = (C (create_float_u ()));;
 let t79_A : t79 = (A (create_string (), create_float_u ()));;
 let t79_B : t79 = (B (create_float_u ()));;
-let t80_A : t80 = (A (create_int32_u ()));;
+let t80_A : t80 = (A (create_float32_u ()));;
 let t81_A : t81 = (A (create_float_u ()));;
 let t81_B : t81 = (B (create_string (), create_float_u ()));;
 let t82_A : t82 = (A (create_string (), create_float_u ()));;
 let t82_B : t82 = (B (create_float_u ()));;
 let t82_C : t82 = (C (create_float_u ()));;
-let t83_A : t83 = (A (create_int32_u ()));;
+let t83_A : t83 = (A (create_float32_u ()));;
 let t83_B : t83 = (B (create_float_u ()));;
 let t84_A : t84 = (A (create_float (), create_float_u ()));;
 let t85_A : t85 = (A (create_float_u ()));;
@@ -510,12 +515,12 @@ let t85_C : t85 = (C (create_float_u ()));;
 let t85_D : t85 = (D (create_float_u ()));;
 let t86_A : t86 = (A (create_string (), create_float_u ()));;
 let t86_B : t86 = (B (create_string (), create_float_u ()));;
-let t87_A : t87 = (A (create_int32_u ()));;
+let t87_A : t87 = (A (create_float32_u ()));;
 let t87_B : t87 = (B (create_float_u ()));;
 let t87_C : t87 = (C (create_float_u ()));;
 let t88_A : t88 = (A (create_float (), create_float_u ()));;
 let t88_B : t88 = (B (create_float_u ()));;
-let t89_A : t89 = (A (create_string (), create_int32_u ()));;
+let t89_A : t89 = (A (create_string (), create_float32_u ()));;
 let t90_A : t90 = (A (create_float_u ()));;
 let t90_B : t90 = (B (create_string (), create_float_u ()));;
 let t90_C : t90 = (C (create_float_u ()));;
@@ -523,51 +528,51 @@ let t91_A : t91 = (A (create_string (), create_float_u ()));;
 let t91_B : t91 = (B (create_float_u ()));;
 let t91_C : t91 = (C (create_float_u ()));;
 let t91_D : t91 = (D (create_float_u ()));;
-let t92_A : t92 = (A (create_int32_u ()));;
+let t92_A : t92 = (A (create_float32_u ()));;
 let t92_B : t92 = (B (create_string (), create_float_u ()));;
 let t93_A : t93 = (A (create_float (), create_float_u ()));;
 let t93_B : t93 = (B (create_float_u ()));;
 let t93_C : t93 = (C (create_float_u ()));;
-let t94_A : t94 = (A (create_string (), create_int32_u ()));;
+let t94_A : t94 = (A (create_string (), create_float32_u ()));;
 let t94_B : t94 = (B (create_float_u ()));;
-let t95_A : t95 = (A (create_int64_u ()));;
+let t95_A : t95 = (A (create_int32_u ()));;
 let t96_A : t96 = (A (create_float_u ()));;
-let t96_B : t96 = (B (create_int32_u ()));;
+let t96_B : t96 = (B (create_float32_u ()));;
 let t97_A : t97 = (A (create_string (), create_float_u ()));;
 let t97_B : t97 = (B (create_string (), create_float_u ()));;
 let t97_C : t97 = (C (create_float_u ()));;
-let t98_A : t98 = (A (create_int32_u ()));;
+let t98_A : t98 = (A (create_float32_u ()));;
 let t98_B : t98 = (B (create_float_u ()));;
 let t98_C : t98 = (C (create_float_u ()));;
 let t98_D : t98 = (D (create_float_u ()));;
 let t99_A : t99 = (A (create_float (), create_float_u ()));;
 let t99_B : t99 = (B (create_string (), create_float_u ()));;
-let t100_A : t100 = (A (create_string (), create_int32_u ()));;
+let t100_A : t100 = (A (create_string (), create_float32_u ()));;
 let t100_B : t100 = (B (create_float_u ()));;
 let t100_C : t100 = (C (create_float_u ()));;
-let t101_A : t101 = (A (create_int64_u ()));;
+let t101_A : t101 = (A (create_int32_u ()));;
 let t101_B : t101 = (B (create_float_u ()));;
 let t102_A : t102 = (A (create_string (), create_string (), create_float_u ()));;
 let t103_A : t103 = (A (create_float_u ()));;
 let t103_B : t103 = (B (create_float_u ()));;
 let t103_C : t103 = (C (create_string (), create_float_u ()));;
 let t104_A : t104 = (A (create_string (), create_float_u ()));;
-let t104_B : t104 = (B (create_int32_u ()));;
-let t105_A : t105 = (A (create_int32_u ()));;
+let t104_B : t104 = (B (create_float32_u ()));;
+let t105_A : t105 = (A (create_float32_u ()));;
 let t105_B : t105 = (B (create_string (), create_float_u ()));;
 let t105_C : t105 = (C (create_float_u ()));;
 let t106_A : t106 = (A (create_float (), create_float_u ()));;
 let t106_B : t106 = (B (create_float_u ()));;
 let t106_C : t106 = (C (create_float_u ()));;
 let t106_D : t106 = (D (create_float_u ()));;
-let t107_A : t107 = (A (create_string (), create_int32_u ()));;
+let t107_A : t107 = (A (create_string (), create_float32_u ()));;
 let t107_B : t107 = (B (create_string (), create_float_u ()));;
-let t108_A : t108 = (A (create_int64_u ()));;
+let t108_A : t108 = (A (create_int32_u ()));;
 let t108_B : t108 = (B (create_float_u ()));;
 let t108_C : t108 = (C (create_float_u ()));;
 let t109_A : t109 = (A (create_string (), create_string (), create_float_u ()));;
 let t109_B : t109 = (B (create_float_u ()));;
-let t110_A : t110 = (A (create_float (), create_int32_u ()));;
+let t110_A : t110 = (A (create_float (), create_float32_u ()));;
 let t111_A : t111 = (A (create_float_u ()));;
 let t111_B : t111 = (B (create_string (), create_float_u ()));;
 let t111_C : t111 = (C (create_float_u ()));;
@@ -575,77 +580,77 @@ let t111_D : t111 = (D (create_float_u ()));;
 let t112_A : t112 = (A (create_string (), create_float_u ()));;
 let t112_B : t112 = (B (create_float_u ()));;
 let t112_C : t112 = (C (create_string (), create_float_u ()));;
-let t113_A : t113 = (A (create_int32_u ()));;
-let t113_B : t113 = (B (create_int32_u ()));;
+let t113_A : t113 = (A (create_float32_u ()));;
+let t113_B : t113 = (B (create_float32_u ()));;
 let t114_A : t114 = (A (create_float (), create_float_u ()));;
 let t114_B : t114 = (B (create_string (), create_float_u ()));;
 let t114_C : t114 = (C (create_float_u ()));;
-let t115_A : t115 = (A (create_string (), create_int32_u ()));;
+let t115_A : t115 = (A (create_string (), create_float32_u ()));;
 let t115_B : t115 = (B (create_float_u ()));;
 let t115_C : t115 = (C (create_float_u ()));;
 let t115_D : t115 = (D (create_float_u ()));;
-let t116_A : t116 = (A (create_int64_u ()));;
+let t116_A : t116 = (A (create_int32_u ()));;
 let t116_B : t116 = (B (create_string (), create_float_u ()));;
 let t117_A : t117 = (A (create_string (), create_string (), create_float_u ()));;
 let t117_B : t117 = (B (create_float_u ()));;
 let t117_C : t117 = (C (create_float_u ()));;
-let t118_A : t118 = (A (create_float (), create_int32_u ()));;
+let t118_A : t118 = (A (create_float (), create_float32_u ()));;
 let t118_B : t118 = (B (create_float_u ()));;
-let t119_A : t119 = (A (create_string (), create_int64_u ()));;
+let t119_A : t119 = (A (create_string (), create_int32_u ()));;
 let t120_A : t120 = (A (create_float_u ()));;
-let t120_B : t120 = (B (create_int32_u ()));;
+let t120_B : t120 = (B (create_float32_u ()));;
 let t120_C : t120 = (C (create_float_u ()));;
 let t121_A : t121 = (A (create_string (), create_float_u ()));;
 let t121_B : t121 = (B (create_string (), create_float_u ()));;
 let t121_C : t121 = (C (create_float_u ()));;
 let t121_D : t121 = (D (create_float_u ()));;
-let t122_A : t122 = (A (create_int32_u ()));;
+let t122_A : t122 = (A (create_float32_u ()));;
 let t122_B : t122 = (B (create_float_u ()));;
 let t122_C : t122 = (C (create_string (), create_float_u ()));;
 let t123_A : t123 = (A (create_float (), create_float_u ()));;
-let t123_B : t123 = (B (create_int32_u ()));;
-let t124_A : t124 = (A (create_string (), create_int32_u ()));;
+let t123_B : t123 = (B (create_float32_u ()));;
+let t124_A : t124 = (A (create_string (), create_float32_u ()));;
 let t124_B : t124 = (B (create_string (), create_float_u ()));;
 let t124_C : t124 = (C (create_float_u ()));;
-let t125_A : t125 = (A (create_int64_u ()));;
+let t125_A : t125 = (A (create_int32_u ()));;
 let t125_B : t125 = (B (create_float_u ()));;
 let t125_C : t125 = (C (create_float_u ()));;
 let t125_D : t125 = (D (create_float_u ()));;
 let t126_A : t126 = (A (create_string (), create_string (), create_float_u ()));;
 let t126_B : t126 = (B (create_string (), create_float_u ()));;
-let t127_A : t127 = (A (create_float (), create_int32_u ()));;
+let t127_A : t127 = (A (create_float (), create_float32_u ()));;
 let t127_B : t127 = (B (create_float_u ()));;
 let t127_C : t127 = (C (create_float_u ()));;
-let t128_A : t128 = (A (create_string (), create_int64_u ()));;
+let t128_A : t128 = (A (create_string (), create_int32_u ()));;
 let t128_B : t128 = (B (create_float_u ()));;
-let t129_A : t129 = (A (create_nativeint_u ()));;
+let t129_A : t129 = (A (create_int64_u ()));;
 let t130_A : t130 = (A (create_float_u ()));;
 let t130_B : t130 = (B (create_float (), create_float_u ()));;
 let t131_A : t131 = (A (create_string (), create_float_u ()));;
-let t131_B : t131 = (B (create_int32_u ()));;
+let t131_B : t131 = (B (create_float32_u ()));;
 let t131_C : t131 = (C (create_float_u ()));;
-let t132_A : t132 = (A (create_int32_u ()));;
+let t132_A : t132 = (A (create_float32_u ()));;
 let t132_B : t132 = (B (create_string (), create_float_u ()));;
 let t132_C : t132 = (C (create_float_u ()));;
 let t132_D : t132 = (D (create_float_u ()));;
 let t133_A : t133 = (A (create_float (), create_float_u ()));;
 let t133_B : t133 = (B (create_float_u ()));;
 let t133_C : t133 = (C (create_string (), create_float_u ()));;
-let t134_A : t134 = (A (create_string (), create_int32_u ()));;
-let t134_B : t134 = (B (create_int32_u ()));;
-let t135_A : t135 = (A (create_int64_u ()));;
+let t134_A : t134 = (A (create_string (), create_float32_u ()));;
+let t134_B : t134 = (B (create_float32_u ()));;
+let t135_A : t135 = (A (create_int32_u ()));;
 let t135_B : t135 = (B (create_string (), create_float_u ()));;
 let t135_C : t135 = (C (create_float_u ()));;
 let t136_A : t136 = (A (create_string (), create_string (), create_float_u ()));;
 let t136_B : t136 = (B (create_float_u ()));;
 let t136_C : t136 = (C (create_float_u ()));;
 let t136_D : t136 = (D (create_float_u ()));;
-let t137_A : t137 = (A (create_float (), create_int32_u ()));;
+let t137_A : t137 = (A (create_float (), create_float32_u ()));;
 let t137_B : t137 = (B (create_string (), create_float_u ()));;
-let t138_A : t138 = (A (create_string (), create_int64_u ()));;
+let t138_A : t138 = (A (create_string (), create_int32_u ()));;
 let t138_B : t138 = (B (create_float_u ()));;
 let t138_C : t138 = (C (create_float_u ()));;
-let t139_A : t139 = (A (create_nativeint_u ()));;
+let t139_A : t139 = (A (create_int64_u ()));;
 let t139_B : t139 = (B (create_float_u ()));;
 let t140_A : t140 = (A (create_float (), create_string (), create_float_u ()));;
 let t141_A : t141 = (A (create_float_u ()));;
@@ -655,26 +660,26 @@ let t141_D : t141 = (D (create_float_u ()));;
 let t141_E : t141 = (E (create_float_u ()));;
 let t142_A : t142 = (A (create_string (), create_float_u ()));;
 let t142_B : t142 = (B (create_float (), create_float_u ()));;
-let t143_A : t143 = (A (create_int32_u ()));;
-let t143_B : t143 = (B (create_int32_u ()));;
+let t143_A : t143 = (A (create_float32_u ()));;
+let t143_B : t143 = (B (create_float32_u ()));;
 let t143_C : t143 = (C (create_float_u ()));;
 let t144_A : t144 = (A (create_float (), create_float_u ()));;
 let t144_B : t144 = (B (create_string (), create_float_u ()));;
 let t144_C : t144 = (C (create_float_u ()));;
 let t144_D : t144 = (D (create_float_u ()));;
-let t145_A : t145 = (A (create_string (), create_int32_u ()));;
+let t145_A : t145 = (A (create_string (), create_float32_u ()));;
 let t145_B : t145 = (B (create_float_u ()));;
 let t145_C : t145 = (C (create_string (), create_float_u ()));;
-let t146_A : t146 = (A (create_int64_u ()));;
-let t146_B : t146 = (B (create_int32_u ()));;
+let t146_A : t146 = (A (create_int32_u ()));;
+let t146_B : t146 = (B (create_float32_u ()));;
 let t147_A : t147 = (A (create_string (), create_string (), create_float_u ()));;
 let t147_B : t147 = (B (create_string (), create_float_u ()));;
 let t147_C : t147 = (C (create_float_u ()));;
-let t148_A : t148 = (A (create_float (), create_int32_u ()));;
+let t148_A : t148 = (A (create_float (), create_float32_u ()));;
 let t148_B : t148 = (B (create_float_u ()));;
 let t148_C : t148 = (C (create_float_u ()));;
 let t148_D : t148 = (D (create_float_u ()));;
-let t149_A : t149 = (A (create_string (), create_int64_u ()));;
+let t149_A : t149 = (A (create_string (), create_int32_u ()));;
 let t149_B : t149 = (B (create_string (), create_float_u ()));;
 let () = print_endline " - Doing GC";;
 let () = Gc.full_major ();;
@@ -702,25 +707,25 @@ let t_orig17 = { t17 with float_u0 = t17.float_u0 };;
 let t_orig18 = { t18 with str0 = t18.str0 };;
 let t_orig19 = { t19 with str0 = t19.str0 };;
 let t_orig20 = { t20 with str0 = t20.str0 };;
-let t_orig21 = { i32_0 = t21.i32_0 };;
+let t_orig21 = { float32_u0 = t21.float32_u0 };;
 let t_orig22 = { t22 with str0 = t22.str0 };;
 let t_orig23 = { t23 with str0 = t23.str0 };;
-let t_orig24 = { i32_0 = t24.i32_0 };;
+let t_orig24 = { float32_u0 = t24.float32_u0 };;
 let t_orig25 = { t25 with str0 = t25.str0 };;
 let t_orig26 = { t26 with str0 = t26.str0 };;
-let t_orig27 = { i64_0 = t27.i64_0 };;
+let t_orig27 = { i32_0 = t27.i32_0 };;
 let t_orig28 = { t28 with str0 = t28.str0 };;
 let t_orig29 = { t29 with float0 = t29.float0 };;
 let t_orig30 = { t30 with str0 = t30.str0 };;
 let t_orig31 = { t31 with str0 = t31.str0 };;
-let t_orig32 = { i64_0 = t32.i64_0 };;
+let t_orig32 = { i32_0 = t32.i32_0 };;
 let t_orig33 = { t33 with str0 = t33.str0 };;
 let t_orig34 = { t34 with str0 = t34.str0 };;
 let t_orig35 = { t35 with float0 = t35.float0 };;
 let t_orig36 = { t36 with float0 = t36.float0 };;
 let t_orig37 = { t37 with str0 = t37.str0 };;
 let t_orig38 = { t38 with str0 = t38.str0 };;
-let t_orig39 = { n0 = t39.n0 };;
+let t_orig39 = { i64_0 = t39.i64_0 };;
 let t_orig40 = { t40 with float0 = t40.float0 };;
 let t_orig41 = { t41 with str0 = t41.str0 };;
 let t_orig42 = { t42 with str0 = t42.str0 };;
@@ -728,7 +733,7 @@ let t_orig43 = { t43 with float0 = t43.float0 };;
 let t_orig44 = { t44 with float0 = t44.float0 };;
 let t_orig45 = { t45 with str0 = t45.str0 };;
 let t_orig46 = { t46 with str0 = t46.str0 };;
-let t_orig47 = { n0 = t47.n0 };;
+let t_orig47 = { i64_0 = t47.i64_0 };;
 let t_orig48 = { t48 with float0 = t48.float0 };;
 let t_orig49 = { t49 with float0 = t49.float0 };;
 let t_orig50 = { t50 with str0 = t50.str0 };;
@@ -737,7 +742,7 @@ let t_orig52 = { t52 with float0 = t52.float0 };;
 let t_orig53 = { t53 with float0 = t53.float0 };;
 let t_orig54 = { t54 with str0 = t54.str0 };;
 let t_orig55 = { t55 with str0 = t55.str0 };;
-let t_orig56 = { t56 with float_u0 = t56.float_u0 };;
+let t_orig56 = { n0 = t56.n0 };;
 let t_orig57 = { t57 with imm0 = t57.imm0 };;
 let t_orig58 = { t58 with float0 = t58.float0 };;
 let t_orig59 = { t59 with float0 = t59.float0 };;
@@ -747,7 +752,7 @@ let t_orig62 = { t62 with float0 = t62.float0 };;
 let t_orig63 = { t63 with float0 = t63.float0 };;
 let t_orig64 = { t64 with str0 = t64.str0 };;
 let t_orig65 = { t65 with str0 = t65.str0 };;
-let t_orig66 = { t66 with float_u0 = t66.float_u0 };;
+let t_orig66 = { n0 = t66.n0 };;
 let t_orig67 = { t67 with imm0 = t67.imm0 };;
 let t_orig68 = { t68 with imm0 = t68.imm0 };;
 let t_orig69 = { t69 with float0 = t69.float0 };;
@@ -1800,27 +1805,27 @@ let t_orig149_B = t149_B;;
   check_float (Stdlib__Float_u.to_float t19.float_u1) (Stdlib__Float_u.to_float t_orig19.float_u1) ~message:"t19.float_u1";
   check_string t20.str0 t_orig20.str0 ~message:"t20.str0";
   check_float (Stdlib__Float_u.to_float t20.float_u1) (Stdlib__Float_u.to_float t_orig20.float_u1) ~message:"t20.float_u1";
-  check_int32 (Stdlib__Int32_u.to_int32 t21.i32_0) (Stdlib__Int32_u.to_int32 t_orig21.i32_0) ~message:"t21.i32_0";
+  check_float32 (Beta.Float32_u.to_float32 t21.float32_u0) (Beta.Float32_u.to_float32 t_orig21.float32_u0) ~message:"t21.float32_u0";
   check_string t22.str0 t_orig22.str0 ~message:"t22.str0";
   check_float (Stdlib__Float_u.to_float t22.float_u1) (Stdlib__Float_u.to_float t_orig22.float_u1) ~message:"t22.float_u1";
   check_string t23.str0 t_orig23.str0 ~message:"t23.str0";
-  check_int32 (Stdlib__Int32_u.to_int32 t23.i32_1) (Stdlib__Int32_u.to_int32 t_orig23.i32_1) ~message:"t23.i32_1";
-  check_int32 (Stdlib__Int32_u.to_int32 t24.i32_0) (Stdlib__Int32_u.to_int32 t_orig24.i32_0) ~message:"t24.i32_0";
+  check_float32 (Beta.Float32_u.to_float32 t23.float32_u1) (Beta.Float32_u.to_float32 t_orig23.float32_u1) ~message:"t23.float32_u1";
+  check_float32 (Beta.Float32_u.to_float32 t24.float32_u0) (Beta.Float32_u.to_float32 t_orig24.float32_u0) ~message:"t24.float32_u0";
   check_string t25.str0 t_orig25.str0 ~message:"t25.str0";
-  check_int32 (Stdlib__Int32_u.to_int32 t25.i32_1) (Stdlib__Int32_u.to_int32 t_orig25.i32_1) ~message:"t25.i32_1";
+  check_float32 (Beta.Float32_u.to_float32 t25.float32_u1) (Beta.Float32_u.to_float32 t_orig25.float32_u1) ~message:"t25.float32_u1";
   check_string t26.str0 t_orig26.str0 ~message:"t26.str0";
-  check_int32 (Stdlib__Int32_u.to_int32 t26.i32_1) (Stdlib__Int32_u.to_int32 t_orig26.i32_1) ~message:"t26.i32_1";
-  check_int64 (Stdlib__Int64_u.to_int64 t27.i64_0) (Stdlib__Int64_u.to_int64 t_orig27.i64_0) ~message:"t27.i64_0";
+  check_float32 (Beta.Float32_u.to_float32 t26.float32_u1) (Beta.Float32_u.to_float32 t_orig26.float32_u1) ~message:"t26.float32_u1";
+  check_int32 (Stdlib__Int32_u.to_int32 t27.i32_0) (Stdlib__Int32_u.to_int32 t_orig27.i32_0) ~message:"t27.i32_0";
   check_string t28.str0 t_orig28.str0 ~message:"t28.str0";
   check_string t28.str1 t_orig28.str1 ~message:"t28.str1";
   check_float (Stdlib__Float_u.to_float t28.float_u2) (Stdlib__Float_u.to_float t_orig28.float_u2) ~message:"t28.float_u2";
   check_float t29.float0 t_orig29.float0 ~message:"t29.float0";
-  check_int32 (Stdlib__Int32_u.to_int32 t29.i32_1) (Stdlib__Int32_u.to_int32 t_orig29.i32_1) ~message:"t29.i32_1";
+  check_float32 (Beta.Float32_u.to_float32 t29.float32_u1) (Beta.Float32_u.to_float32 t_orig29.float32_u1) ~message:"t29.float32_u1";
   check_string t30.str0 t_orig30.str0 ~message:"t30.str0";
-  check_int32 (Stdlib__Int32_u.to_int32 t30.i32_1) (Stdlib__Int32_u.to_int32 t_orig30.i32_1) ~message:"t30.i32_1";
+  check_float32 (Beta.Float32_u.to_float32 t30.float32_u1) (Beta.Float32_u.to_float32 t_orig30.float32_u1) ~message:"t30.float32_u1";
   check_string t31.str0 t_orig31.str0 ~message:"t31.str0";
-  check_int64 (Stdlib__Int64_u.to_int64 t31.i64_1) (Stdlib__Int64_u.to_int64 t_orig31.i64_1) ~message:"t31.i64_1";
-  check_int64 (Stdlib__Int64_u.to_int64 t32.i64_0) (Stdlib__Int64_u.to_int64 t_orig32.i64_0) ~message:"t32.i64_0";
+  check_int32 (Stdlib__Int32_u.to_int32 t31.i32_1) (Stdlib__Int32_u.to_int32 t_orig31.i32_1) ~message:"t31.i32_1";
+  check_int32 (Stdlib__Int32_u.to_int32 t32.i32_0) (Stdlib__Int32_u.to_int32 t_orig32.i32_0) ~message:"t32.i32_0";
   check_string t33.str0 t_orig33.str0 ~message:"t33.str0";
   check_string t33.str1 t_orig33.str1 ~message:"t33.str1";
   check_float (Stdlib__Float_u.to_float t33.float_u2) (Stdlib__Float_u.to_float t_orig33.float_u2) ~message:"t33.float_u2";
@@ -1828,14 +1833,14 @@ let t_orig149_B = t149_B;;
   check_string t34.str1 t_orig34.str1 ~message:"t34.str1";
   check_float (Stdlib__Float_u.to_float t34.float_u2) (Stdlib__Float_u.to_float t_orig34.float_u2) ~message:"t34.float_u2";
   check_float t35.float0 t_orig35.float0 ~message:"t35.float0";
-  check_int32 (Stdlib__Int32_u.to_int32 t35.i32_1) (Stdlib__Int32_u.to_int32 t_orig35.i32_1) ~message:"t35.i32_1";
+  check_float32 (Beta.Float32_u.to_float32 t35.float32_u1) (Beta.Float32_u.to_float32 t_orig35.float32_u1) ~message:"t35.float32_u1";
   check_float t36.float0 t_orig36.float0 ~message:"t36.float0";
-  check_int32 (Stdlib__Int32_u.to_int32 t36.i32_1) (Stdlib__Int32_u.to_int32 t_orig36.i32_1) ~message:"t36.i32_1";
+  check_float32 (Beta.Float32_u.to_float32 t36.float32_u1) (Beta.Float32_u.to_float32 t_orig36.float32_u1) ~message:"t36.float32_u1";
   check_string t37.str0 t_orig37.str0 ~message:"t37.str0";
-  check_int64 (Stdlib__Int64_u.to_int64 t37.i64_1) (Stdlib__Int64_u.to_int64 t_orig37.i64_1) ~message:"t37.i64_1";
+  check_int32 (Stdlib__Int32_u.to_int32 t37.i32_1) (Stdlib__Int32_u.to_int32 t_orig37.i32_1) ~message:"t37.i32_1";
   check_string t38.str0 t_orig38.str0 ~message:"t38.str0";
-  check_int64 (Stdlib__Int64_u.to_int64 t38.i64_1) (Stdlib__Int64_u.to_int64 t_orig38.i64_1) ~message:"t38.i64_1";
-  check_int (Stdlib__Nativeint_u.to_int t39.n0) (Stdlib__Nativeint_u.to_int t_orig39.n0) ~message:"t39.n0";
+  check_int32 (Stdlib__Int32_u.to_int32 t38.i32_1) (Stdlib__Int32_u.to_int32 t_orig38.i32_1) ~message:"t38.i32_1";
+  check_int64 (Stdlib__Int64_u.to_int64 t39.i64_0) (Stdlib__Int64_u.to_int64 t_orig39.i64_0) ~message:"t39.i64_0";
   check_float t40.float0 t_orig40.float0 ~message:"t40.float0";
   check_string t40.str1 t_orig40.str1 ~message:"t40.str1";
   check_float (Stdlib__Float_u.to_float t40.float_u2) (Stdlib__Float_u.to_float t_orig40.float_u2) ~message:"t40.float_u2";
@@ -1844,16 +1849,16 @@ let t_orig149_B = t149_B;;
   check_float (Stdlib__Float_u.to_float t41.float_u2) (Stdlib__Float_u.to_float t_orig41.float_u2) ~message:"t41.float_u2";
   check_string t42.str0 t_orig42.str0 ~message:"t42.str0";
   check_string t42.str1 t_orig42.str1 ~message:"t42.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t42.i32_2) (Stdlib__Int32_u.to_int32 t_orig42.i32_2) ~message:"t42.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t42.float32_u2) (Beta.Float32_u.to_float32 t_orig42.float32_u2) ~message:"t42.float32_u2";
   check_float t43.float0 t_orig43.float0 ~message:"t43.float0";
-  check_int32 (Stdlib__Int32_u.to_int32 t43.i32_1) (Stdlib__Int32_u.to_int32 t_orig43.i32_1) ~message:"t43.i32_1";
+  check_float32 (Beta.Float32_u.to_float32 t43.float32_u1) (Beta.Float32_u.to_float32 t_orig43.float32_u1) ~message:"t43.float32_u1";
   check_float t44.float0 t_orig44.float0 ~message:"t44.float0";
-  check_int64 (Stdlib__Int64_u.to_int64 t44.i64_1) (Stdlib__Int64_u.to_int64 t_orig44.i64_1) ~message:"t44.i64_1";
+  check_int32 (Stdlib__Int32_u.to_int32 t44.i32_1) (Stdlib__Int32_u.to_int32 t_orig44.i32_1) ~message:"t44.i32_1";
   check_string t45.str0 t_orig45.str0 ~message:"t45.str0";
-  check_int64 (Stdlib__Int64_u.to_int64 t45.i64_1) (Stdlib__Int64_u.to_int64 t_orig45.i64_1) ~message:"t45.i64_1";
+  check_int32 (Stdlib__Int32_u.to_int32 t45.i32_1) (Stdlib__Int32_u.to_int32 t_orig45.i32_1) ~message:"t45.i32_1";
   check_string t46.str0 t_orig46.str0 ~message:"t46.str0";
-  check_int (Stdlib__Nativeint_u.to_int t46.n1) (Stdlib__Nativeint_u.to_int t_orig46.n1) ~message:"t46.n1";
-  check_int (Stdlib__Nativeint_u.to_int t47.n0) (Stdlib__Nativeint_u.to_int t_orig47.n0) ~message:"t47.n0";
+  check_int64 (Stdlib__Int64_u.to_int64 t46.i64_1) (Stdlib__Int64_u.to_int64 t_orig46.i64_1) ~message:"t46.i64_1";
+  check_int64 (Stdlib__Int64_u.to_int64 t47.i64_0) (Stdlib__Int64_u.to_int64 t_orig47.i64_0) ~message:"t47.i64_0";
   check_float t48.float0 t_orig48.float0 ~message:"t48.float0";
   check_string t48.str1 t_orig48.str1 ~message:"t48.str1";
   check_float (Stdlib__Float_u.to_float t48.float_u2) (Stdlib__Float_u.to_float t_orig48.float_u2) ~message:"t48.float_u2";
@@ -1862,20 +1867,19 @@ let t_orig149_B = t149_B;;
   check_float (Stdlib__Float_u.to_float t49.float_u2) (Stdlib__Float_u.to_float t_orig49.float_u2) ~message:"t49.float_u2";
   check_string t50.str0 t_orig50.str0 ~message:"t50.str0";
   check_string t50.str1 t_orig50.str1 ~message:"t50.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t50.i32_2) (Stdlib__Int32_u.to_int32 t_orig50.i32_2) ~message:"t50.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t50.float32_u2) (Beta.Float32_u.to_float32 t_orig50.float32_u2) ~message:"t50.float32_u2";
   check_string t51.str0 t_orig51.str0 ~message:"t51.str0";
   check_string t51.str1 t_orig51.str1 ~message:"t51.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t51.i32_2) (Stdlib__Int32_u.to_int32 t_orig51.i32_2) ~message:"t51.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t51.float32_u2) (Beta.Float32_u.to_float32 t_orig51.float32_u2) ~message:"t51.float32_u2";
   check_float t52.float0 t_orig52.float0 ~message:"t52.float0";
-  check_int64 (Stdlib__Int64_u.to_int64 t52.i64_1) (Stdlib__Int64_u.to_int64 t_orig52.i64_1) ~message:"t52.i64_1";
+  check_int32 (Stdlib__Int32_u.to_int32 t52.i32_1) (Stdlib__Int32_u.to_int32 t_orig52.i32_1) ~message:"t52.i32_1";
   check_float t53.float0 t_orig53.float0 ~message:"t53.float0";
-  check_int64 (Stdlib__Int64_u.to_int64 t53.i64_1) (Stdlib__Int64_u.to_int64 t_orig53.i64_1) ~message:"t53.i64_1";
+  check_int32 (Stdlib__Int32_u.to_int32 t53.i32_1) (Stdlib__Int32_u.to_int32 t_orig53.i32_1) ~message:"t53.i32_1";
   check_string t54.str0 t_orig54.str0 ~message:"t54.str0";
-  check_int (Stdlib__Nativeint_u.to_int t54.n1) (Stdlib__Nativeint_u.to_int t_orig54.n1) ~message:"t54.n1";
+  check_int64 (Stdlib__Int64_u.to_int64 t54.i64_1) (Stdlib__Int64_u.to_int64 t_orig54.i64_1) ~message:"t54.i64_1";
   check_string t55.str0 t_orig55.str0 ~message:"t55.str0";
-  check_int (Stdlib__Nativeint_u.to_int t55.n1) (Stdlib__Nativeint_u.to_int t_orig55.n1) ~message:"t55.n1";
-  check_float (Stdlib__Float_u.to_float t56.float_u0) (Stdlib__Float_u.to_float t_orig56.float_u0) ~message:"t56.float_u0";
-  check_int t56.imm1 t_orig56.imm1 ~message:"t56.imm1";
+  check_int64 (Stdlib__Int64_u.to_int64 t55.i64_1) (Stdlib__Int64_u.to_int64 t_orig55.i64_1) ~message:"t55.i64_1";
+  check_int (Stdlib__Nativeint_u.to_int t56.n0) (Stdlib__Nativeint_u.to_int t_orig56.n0) ~message:"t56.n0";
   check_int t57.imm0 t_orig57.imm0 ~message:"t57.imm0";
   check_string t57.str1 t_orig57.str1 ~message:"t57.str1";
   check_float (Stdlib__Float_u.to_float t57.float_u2) (Stdlib__Float_u.to_float t_orig57.float_u2) ~message:"t57.float_u2";
@@ -1884,24 +1888,22 @@ let t_orig149_B = t149_B;;
   check_float (Stdlib__Float_u.to_float t58.float_u2) (Stdlib__Float_u.to_float t_orig58.float_u2) ~message:"t58.float_u2";
   check_float t59.float0 t_orig59.float0 ~message:"t59.float0";
   check_string t59.str1 t_orig59.str1 ~message:"t59.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t59.i32_2) (Stdlib__Int32_u.to_int32 t_orig59.i32_2) ~message:"t59.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t59.float32_u2) (Beta.Float32_u.to_float32 t_orig59.float32_u2) ~message:"t59.float32_u2";
   check_string t60.str0 t_orig60.str0 ~message:"t60.str0";
   check_string t60.str1 t_orig60.str1 ~message:"t60.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t60.i32_2) (Stdlib__Int32_u.to_int32 t_orig60.i32_2) ~message:"t60.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t60.float32_u2) (Beta.Float32_u.to_float32 t_orig60.float32_u2) ~message:"t60.float32_u2";
   check_string t61.str0 t_orig61.str0 ~message:"t61.str0";
   check_string t61.str1 t_orig61.str1 ~message:"t61.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t61.i64_2) (Stdlib__Int64_u.to_int64 t_orig61.i64_2) ~message:"t61.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t61.i32_2) (Stdlib__Int32_u.to_int32 t_orig61.i32_2) ~message:"t61.i32_2";
   check_float t62.float0 t_orig62.float0 ~message:"t62.float0";
-  check_int64 (Stdlib__Int64_u.to_int64 t62.i64_1) (Stdlib__Int64_u.to_int64 t_orig62.i64_1) ~message:"t62.i64_1";
+  check_int32 (Stdlib__Int32_u.to_int32 t62.i32_1) (Stdlib__Int32_u.to_int32 t_orig62.i32_1) ~message:"t62.i32_1";
   check_float t63.float0 t_orig63.float0 ~message:"t63.float0";
-  check_int (Stdlib__Nativeint_u.to_int t63.n1) (Stdlib__Nativeint_u.to_int t_orig63.n1) ~message:"t63.n1";
+  check_int64 (Stdlib__Int64_u.to_int64 t63.i64_1) (Stdlib__Int64_u.to_int64 t_orig63.i64_1) ~message:"t63.i64_1";
   check_string t64.str0 t_orig64.str0 ~message:"t64.str0";
-  check_int (Stdlib__Nativeint_u.to_int t64.n1) (Stdlib__Nativeint_u.to_int t_orig64.n1) ~message:"t64.n1";
+  check_int64 (Stdlib__Int64_u.to_int64 t64.i64_1) (Stdlib__Int64_u.to_int64 t_orig64.i64_1) ~message:"t64.i64_1";
   check_string t65.str0 t_orig65.str0 ~message:"t65.str0";
-  check_float (Stdlib__Float_u.to_float t65.float_u1) (Stdlib__Float_u.to_float t_orig65.float_u1) ~message:"t65.float_u1";
-  check_int t65.imm2 t_orig65.imm2 ~message:"t65.imm2";
-  check_float (Stdlib__Float_u.to_float t66.float_u0) (Stdlib__Float_u.to_float t_orig66.float_u0) ~message:"t66.float_u0";
-  check_int t66.imm1 t_orig66.imm1 ~message:"t66.imm1";
+  check_int (Stdlib__Nativeint_u.to_int t65.n1) (Stdlib__Nativeint_u.to_int t_orig65.n1) ~message:"t65.n1";
+  check_int (Stdlib__Nativeint_u.to_int t66.n0) (Stdlib__Nativeint_u.to_int t_orig66.n0) ~message:"t66.n0";
   check_int t67.imm0 t_orig67.imm0 ~message:"t67.imm0";
   check_string t67.str1 t_orig67.str1 ~message:"t67.str1";
   check_float (Stdlib__Float_u.to_float t67.float_u2) (Stdlib__Float_u.to_float t_orig67.float_u2) ~message:"t67.float_u2";
@@ -1910,20 +1912,20 @@ let t_orig149_B = t149_B;;
   check_float (Stdlib__Float_u.to_float t68.float_u2) (Stdlib__Float_u.to_float t_orig68.float_u2) ~message:"t68.float_u2";
   check_float t69.float0 t_orig69.float0 ~message:"t69.float0";
   check_string t69.str1 t_orig69.str1 ~message:"t69.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t69.i32_2) (Stdlib__Int32_u.to_int32 t_orig69.i32_2) ~message:"t69.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t69.float32_u2) (Beta.Float32_u.to_float32 t_orig69.float32_u2) ~message:"t69.float32_u2";
   check_float t70.float0 t_orig70.float0 ~message:"t70.float0";
   check_string t70.str1 t_orig70.str1 ~message:"t70.str1";
-  check_int32 (Stdlib__Int32_u.to_int32 t70.i32_2) (Stdlib__Int32_u.to_int32 t_orig70.i32_2) ~message:"t70.i32_2";
+  check_float32 (Beta.Float32_u.to_float32 t70.float32_u2) (Beta.Float32_u.to_float32 t_orig70.float32_u2) ~message:"t70.float32_u2";
   check_string t71.str0 t_orig71.str0 ~message:"t71.str0";
   check_string t71.str1 t_orig71.str1 ~message:"t71.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t71.i64_2) (Stdlib__Int64_u.to_int64 t_orig71.i64_2) ~message:"t71.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t71.i32_2) (Stdlib__Int32_u.to_int32 t_orig71.i32_2) ~message:"t71.i32_2";
   check_string t72.str0 t_orig72.str0 ~message:"t72.str0";
   check_string t72.str1 t_orig72.str1 ~message:"t72.str1";
-  check_int64 (Stdlib__Int64_u.to_int64 t72.i64_2) (Stdlib__Int64_u.to_int64 t_orig72.i64_2) ~message:"t72.i64_2";
+  check_int32 (Stdlib__Int32_u.to_int32 t72.i32_2) (Stdlib__Int32_u.to_int32 t_orig72.i32_2) ~message:"t72.i32_2";
   check_float t73.float0 t_orig73.float0 ~message:"t73.float0";
-  check_int (Stdlib__Nativeint_u.to_int t73.n1) (Stdlib__Nativeint_u.to_int t_orig73.n1) ~message:"t73.n1";
+  check_int64 (Stdlib__Int64_u.to_int64 t73.i64_1) (Stdlib__Int64_u.to_int64 t_orig73.i64_1) ~message:"t73.i64_1";
   check_float t74.float0 t_orig74.float0 ~message:"t74.float0";
-  check_int (Stdlib__Nativeint_u.to_int t74.n1) (Stdlib__Nativeint_u.to_int t_orig74.n1) ~message:"t74.n1";
+  check_int64 (Stdlib__Int64_u.to_int64 t74.i64_1) (Stdlib__Int64_u.to_int64 t_orig74.i64_1) ~message:"t74.i64_1";
   let () = match t75_A, t_orig75_A with
       | A (a0), A (b0) -> check_float (Stdlib__Float_u.to_float a0) (Stdlib__Float_u.to_float b0) ~message:"t75_A.0";
       
@@ -1963,7 +1965,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t80_A, t_orig80_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t80_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t80_A.0";
       
     in
   let () = match t81_A, t_orig81_A with
@@ -1989,7 +1991,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t83_A, t_orig83_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t83_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t83_A.0";
       | _ -> assert false
     in
   let () = match t83_B, t_orig83_B with
@@ -2028,7 +2030,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t87_A, t_orig87_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t87_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t87_A.0";
       | _ -> assert false
     in
   let () = match t87_B, t_orig87_B with
@@ -2050,7 +2052,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t89_A, t_orig89_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t89_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t89_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t89_A.1";
       
     in
   let () = match t90_A, t_orig90_A with
@@ -2084,7 +2086,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t92_A, t_orig92_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t92_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t92_A.0";
       | _ -> assert false
     in
   let () = match t92_B, t_orig92_B with
@@ -2107,7 +2109,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t94_A, t_orig94_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t94_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t94_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t94_A.1";
       | _ -> assert false
     in
   let () = match t94_B, t_orig94_B with
@@ -2115,7 +2117,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
       | _ -> assert false
     in
   let () = match t95_A, t_orig95_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t95_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t95_A.0";
       
     in
   let () = match t96_A, t_orig96_A with
@@ -2123,7 +2125,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
       | _ -> assert false
     in
   let () = match t96_B, t_orig96_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t96_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t96_B.0";
       | _ -> assert false
     in
   let () = match t97_A, t_orig97_A with
@@ -2141,7 +2143,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t98_A, t_orig98_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t98_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t98_A.0";
       | _ -> assert false
     in
   let () = match t98_B, t_orig98_B with
@@ -2168,7 +2170,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t100_A, t_orig100_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t100_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t100_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t100_A.1";
       | _ -> assert false
     in
   let () = match t100_B, t_orig100_B with
@@ -2180,7 +2182,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
       | _ -> assert false
     in
   let () = match t101_A, t_orig101_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t101_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t101_A.0";
       | _ -> assert false
     in
   let () = match t101_B, t_orig101_B with
@@ -2212,11 +2214,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t104_B, t_orig104_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t104_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t104_B.0";
       | _ -> assert false
     in
   let () = match t105_A, t_orig105_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t105_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t105_A.0";
       | _ -> assert false
     in
   let () = match t105_B, t_orig105_B with
@@ -2247,7 +2249,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t107_A, t_orig107_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t107_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t107_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t107_A.1";
       | _ -> assert false
     in
   let () = match t107_B, t_orig107_B with
@@ -2256,7 +2258,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t108_A, t_orig108_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t108_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t108_A.0";
       | _ -> assert false
     in
   let () = match t108_B, t_orig108_B with
@@ -2279,7 +2281,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
     in
   let () = match t110_A, t_orig110_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t110_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t110_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t110_A.1";
       
     in
   let () = match t111_A, t_orig111_A with
@@ -2314,11 +2316,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t113_A, t_orig113_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t113_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t113_A.0";
       | _ -> assert false
     in
   let () = match t113_B, t_orig113_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t113_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t113_B.0";
       | _ -> assert false
     in
   let () = match t114_A, t_orig114_A with
@@ -2337,7 +2339,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t115_A, t_orig115_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t115_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t115_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t115_A.1";
       | _ -> assert false
     in
   let () = match t115_B, t_orig115_B with
@@ -2353,7 +2355,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
       | _ -> assert false
     in
   let () = match t116_A, t_orig116_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t116_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t116_A.0";
       | _ -> assert false
     in
   let () = match t116_B, t_orig116_B with
@@ -2377,7 +2379,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
     in
   let () = match t118_A, t_orig118_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t118_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t118_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t118_A.1";
       | _ -> assert false
     in
   let () = match t118_B, t_orig118_B with
@@ -2386,7 +2388,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
     in
   let () = match t119_A, t_orig119_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t119_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t119_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t119_A.1";
       
     in
   let () = match t120_A, t_orig120_A with
@@ -2394,7 +2396,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message
       | _ -> assert false
     in
   let () = match t120_B, t_orig120_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t120_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t120_B.0";
       | _ -> assert false
     in
   let () = match t120_C, t_orig120_C with
@@ -2420,7 +2422,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t122_A, t_orig122_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t122_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t122_A.0";
       | _ -> assert false
     in
   let () = match t122_B, t_orig122_B with
@@ -2438,12 +2440,12 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t123_B, t_orig123_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t123_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t123_B.0";
       | _ -> assert false
     in
   let () = match t124_A, t_orig124_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t124_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t124_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t124_A.1";
       | _ -> assert false
     in
   let () = match t124_B, t_orig124_B with
@@ -2456,7 +2458,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t125_A, t_orig125_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t125_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t125_A.0";
       | _ -> assert false
     in
   let () = match t125_B, t_orig125_B with
@@ -2484,7 +2486,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t127_A, t_orig127_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t127_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t127_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t127_A.1";
       | _ -> assert false
     in
   let () = match t127_B, t_orig127_B with
@@ -2497,7 +2499,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
     in
   let () = match t128_A, t_orig128_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t128_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t128_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t128_A.1";
       | _ -> assert false
     in
   let () = match t128_B, t_orig128_B with
@@ -2505,7 +2507,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message
       | _ -> assert false
     in
   let () = match t129_A, t_orig129_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t129_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t129_A.0";
       
     in
   let () = match t130_A, t_orig130_A with
@@ -2523,7 +2525,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t131_B, t_orig131_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t131_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t131_B.0";
       | _ -> assert false
     in
   let () = match t131_C, t_orig131_C with
@@ -2531,7 +2533,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t132_A, t_orig132_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t132_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t132_A.0";
       | _ -> assert false
     in
   let () = match t132_B, t_orig132_B with
@@ -2563,15 +2565,15 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t134_A, t_orig134_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t134_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t134_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t134_A.1";
       | _ -> assert false
     in
   let () = match t134_B, t_orig134_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t134_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t134_B.0";
       | _ -> assert false
     in
   let () = match t135_A, t_orig135_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t135_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t135_A.0";
       | _ -> assert false
     in
   let () = match t135_B, t_orig135_B with
@@ -2603,7 +2605,7 @@ check_float (Stdlib__Float_u.to_float a2) (Stdlib__Float_u.to_float b2) ~message
     in
   let () = match t137_A, t_orig137_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t137_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t137_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t137_A.1";
       | _ -> assert false
     in
   let () = match t137_B, t_orig137_B with
@@ -2613,7 +2615,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t138_A, t_orig138_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t138_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t138_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t138_A.1";
       | _ -> assert false
     in
   let () = match t138_B, t_orig138_B with
@@ -2625,7 +2627,7 @@ check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message
       | _ -> assert false
     in
   let () = match t139_A, t_orig139_A with
-      | A (a0), A (b0) -> check_int (Stdlib__Nativeint_u.to_int a0) (Stdlib__Nativeint_u.to_int b0) ~message:"t139_A.0";
+      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t139_A.0";
       | _ -> assert false
     in
   let () = match t139_B, t_orig139_B with
@@ -2669,11 +2671,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t143_A, t_orig143_A with
-      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t143_A.0";
+      | A (a0), A (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t143_A.0";
       | _ -> assert false
     in
   let () = match t143_B, t_orig143_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t143_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t143_B.0";
       | _ -> assert false
     in
   let () = match t143_C, t_orig143_C with
@@ -2700,7 +2702,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t145_A, t_orig145_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t145_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t145_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t145_A.1";
       | _ -> assert false
     in
   let () = match t145_B, t_orig145_B with
@@ -2713,11 +2715,11 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
       | _ -> assert false
     in
   let () = match t146_A, t_orig146_A with
-      | A (a0), A (b0) -> check_int64 (Stdlib__Int64_u.to_int64 a0) (Stdlib__Int64_u.to_int64 b0) ~message:"t146_A.0";
+      | A (a0), A (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t146_A.0";
       | _ -> assert false
     in
   let () = match t146_B, t_orig146_B with
-      | B (a0), B (b0) -> check_int32 (Stdlib__Int32_u.to_int32 a0) (Stdlib__Int32_u.to_int32 b0) ~message:"t146_B.0";
+      | B (a0), B (b0) -> check_float32 (Beta.Float32_u.to_float32 a0) (Beta.Float32_u.to_float32 b0) ~message:"t146_B.0";
       | _ -> assert false
     in
   let () = match t147_A, t_orig147_A with
@@ -2737,7 +2739,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
     in
   let () = match t148_A, t_orig148_A with
       | A (a0,a1), A (b0,b1) -> check_float a0 b0 ~message:"t148_A.0";
-check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t148_A.1";
+check_float32 (Beta.Float32_u.to_float32 a1) (Beta.Float32_u.to_float32 b1) ~message:"t148_A.1";
       | _ -> assert false
     in
   let () = match t148_B, t_orig148_B with
@@ -2754,7 +2756,7 @@ check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message
     in
   let () = match t149_A, t_orig149_A with
       | A (a0,a1), A (b0,b1) -> check_string a0 b0 ~message:"t149_A.0";
-check_int64 (Stdlib__Int64_u.to_int64 a1) (Stdlib__Int64_u.to_int64 b1) ~message:"t149_A.1";
+check_int32 (Stdlib__Int32_u.to_int32 a1) (Stdlib__Int32_u.to_int32 b1) ~message:"t149_A.1";
       | _ -> assert false
     in
   let () = match t149_B, t_orig149_B with
@@ -2819,7 +2821,7 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
   check_reachable_words (Obj.reachable_words (Obj.repr t53)) (3 + 2) "Reachable words 53";
   check_reachable_words (Obj.reachable_words (Obj.repr t54)) (3 + Obj.reachable_words (Obj.repr t54.str0)) "Reachable words 54";
   check_reachable_words (Obj.reachable_words (Obj.repr t55)) (3 + Obj.reachable_words (Obj.repr t55.str0)) "Reachable words 55";
-  check_reachable_words (Obj.reachable_words (Obj.repr t56)) (3) "Reachable words 56";
+  check_reachable_words (Obj.reachable_words (Obj.repr t56)) (2) "Reachable words 56";
   check_reachable_words (Obj.reachable_words (Obj.repr t57)) (4 + Obj.reachable_words (Obj.repr t57.str1)) "Reachable words 57";
   check_reachable_words (Obj.reachable_words (Obj.repr t58)) (4 + 2 + Obj.reachable_words (Obj.repr t58.str1)) "Reachable words 58";
   check_reachable_words (Obj.reachable_words (Obj.repr t59)) (4 + 2 + Obj.reachable_words (Obj.repr t59.str1)) "Reachable words 59";
@@ -2828,8 +2830,8 @@ check_float (Stdlib__Float_u.to_float a1) (Stdlib__Float_u.to_float b1) ~message
   check_reachable_words (Obj.reachable_words (Obj.repr t62)) (3 + 2) "Reachable words 62";
   check_reachable_words (Obj.reachable_words (Obj.repr t63)) (3 + 2) "Reachable words 63";
   check_reachable_words (Obj.reachable_words (Obj.repr t64)) (3 + Obj.reachable_words (Obj.repr t64.str0)) "Reachable words 64";
-  check_reachable_words (Obj.reachable_words (Obj.repr t65)) (4 + Obj.reachable_words (Obj.repr t65.str0)) "Reachable words 65";
-  check_reachable_words (Obj.reachable_words (Obj.repr t66)) (3) "Reachable words 66";
+  check_reachable_words (Obj.reachable_words (Obj.repr t65)) (3 + Obj.reachable_words (Obj.repr t65.str0)) "Reachable words 65";
+  check_reachable_words (Obj.reachable_words (Obj.repr t66)) (2) "Reachable words 66";
   check_reachable_words (Obj.reachable_words (Obj.repr t67)) (4 + Obj.reachable_words (Obj.repr t67.str1)) "Reachable words 67";
   check_reachable_words (Obj.reachable_words (Obj.repr t68)) (4 + Obj.reachable_words (Obj.repr t68.str1)) "Reachable words 68";
   check_reachable_words (Obj.reachable_words (Obj.repr t69)) (4 + 2 + Obj.reachable_words (Obj.repr t69.str1)) "Reachable words 69";
@@ -3414,60 +3416,60 @@ let go () =
   let local_ t18 : t18 = { str0 = create_string (); float_u1 = create_float_u () } in
   let local_ t19 : t19 = { str0 = create_string (); float_u1 = create_float_u () } in
   let local_ t20 : t20 = { str0 = create_string (); float_u1 = create_float_u () } in
-  let local_ t21 : t21 = { i32_0 = create_int32_u () } in
+  let local_ t21 : t21 = { float32_u0 = create_float32_u () } in
   let local_ t22 : t22 = { str0 = create_string (); float_u1 = create_float_u () } in
-  let local_ t23 : t23 = { str0 = create_string (); i32_1 = create_int32_u () } in
-  let local_ t24 : t24 = { i32_0 = create_int32_u () } in
-  let local_ t25 : t25 = { str0 = create_string (); i32_1 = create_int32_u () } in
-  let local_ t26 : t26 = { str0 = create_string (); i32_1 = create_int32_u () } in
-  let local_ t27 : t27 = { i64_0 = create_int64_u () } in
+  let local_ t23 : t23 = { str0 = create_string (); float32_u1 = create_float32_u () } in
+  let local_ t24 : t24 = { float32_u0 = create_float32_u () } in
+  let local_ t25 : t25 = { str0 = create_string (); float32_u1 = create_float32_u () } in
+  let local_ t26 : t26 = { str0 = create_string (); float32_u1 = create_float32_u () } in
+  let local_ t27 : t27 = { i32_0 = create_int32_u () } in
   let local_ t28 : t28 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t29 : t29 = { float0 = create_float (); i32_1 = create_int32_u () } in
-  let local_ t30 : t30 = { str0 = create_string (); i32_1 = create_int32_u () } in
-  let local_ t31 : t31 = { str0 = create_string (); i64_1 = create_int64_u () } in
-  let local_ t32 : t32 = { i64_0 = create_int64_u () } in
+  let local_ t29 : t29 = { float0 = create_float (); float32_u1 = create_float32_u () } in
+  let local_ t30 : t30 = { str0 = create_string (); float32_u1 = create_float32_u () } in
+  let local_ t31 : t31 = { str0 = create_string (); i32_1 = create_int32_u () } in
+  let local_ t32 : t32 = { i32_0 = create_int32_u () } in
   let local_ t33 : t33 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () } in
   let local_ t34 : t34 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t35 : t35 = { float0 = create_float (); i32_1 = create_int32_u () } in
-  let local_ t36 : t36 = { float0 = create_float (); i32_1 = create_int32_u () } in
-  let local_ t37 : t37 = { str0 = create_string (); i64_1 = create_int64_u () } in
-  let local_ t38 : t38 = { str0 = create_string (); i64_1 = create_int64_u () } in
-  let local_ t39 : t39 = { n0 = create_nativeint_u () } in
+  let local_ t35 : t35 = { float0 = create_float (); float32_u1 = create_float32_u () } in
+  let local_ t36 : t36 = { float0 = create_float (); float32_u1 = create_float32_u () } in
+  let local_ t37 : t37 = { str0 = create_string (); i32_1 = create_int32_u () } in
+  let local_ t38 : t38 = { str0 = create_string (); i32_1 = create_int32_u () } in
+  let local_ t39 : t39 = { i64_0 = create_int64_u () } in
   let local_ t40 : t40 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () } in
   let local_ t41 : t41 = { str0 = create_string (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t42 : t42 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t43 : t43 = { float0 = create_float (); i32_1 = create_int32_u () } in
-  let local_ t44 : t44 = { float0 = create_float (); i64_1 = create_int64_u () } in
-  let local_ t45 : t45 = { str0 = create_string (); i64_1 = create_int64_u () } in
-  let local_ t46 : t46 = { str0 = create_string (); n1 = create_nativeint_u () } in
-  let local_ t47 : t47 = { n0 = create_nativeint_u () } in
+  let local_ t42 : t42 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t43 : t43 = { float0 = create_float (); float32_u1 = create_float32_u () } in
+  let local_ t44 : t44 = { float0 = create_float (); i32_1 = create_int32_u () } in
+  let local_ t45 : t45 = { str0 = create_string (); i32_1 = create_int32_u () } in
+  let local_ t46 : t46 = { str0 = create_string (); i64_1 = create_int64_u () } in
+  let local_ t47 : t47 = { i64_0 = create_int64_u () } in
   let local_ t48 : t48 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () } in
   let local_ t49 : t49 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t50 : t50 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t51 : t51 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t52 : t52 = { float0 = create_float (); i64_1 = create_int64_u () } in
-  let local_ t53 : t53 = { float0 = create_float (); i64_1 = create_int64_u () } in
-  let local_ t54 : t54 = { str0 = create_string (); n1 = create_nativeint_u () } in
-  let local_ t55 : t55 = { str0 = create_string (); n1 = create_nativeint_u () } in
-  let local_ t56 : t56 = { float_u0 = create_float_u (); imm1 = create_int () } in
+  let local_ t50 : t50 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t51 : t51 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t52 : t52 = { float0 = create_float (); i32_1 = create_int32_u () } in
+  let local_ t53 : t53 = { float0 = create_float (); i32_1 = create_int32_u () } in
+  let local_ t54 : t54 = { str0 = create_string (); i64_1 = create_int64_u () } in
+  let local_ t55 : t55 = { str0 = create_string (); i64_1 = create_int64_u () } in
+  let local_ t56 : t56 = { n0 = create_nativeint_u () } in
   let local_ t57 : t57 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () } in
   let local_ t58 : t58 = { float0 = create_float (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t59 : t59 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t60 : t60 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t61 : t61 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t62 : t62 = { float0 = create_float (); i64_1 = create_int64_u () } in
-  let local_ t63 : t63 = { float0 = create_float (); n1 = create_nativeint_u () } in
-  let local_ t64 : t64 = { str0 = create_string (); n1 = create_nativeint_u () } in
-  let local_ t65 : t65 = { str0 = create_string (); float_u1 = create_float_u (); imm2 = create_int () } in
-  let local_ t66 : t66 = { float_u0 = create_float_u (); imm1 = create_int () } in
+  let local_ t59 : t59 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t60 : t60 = { str0 = create_string (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t61 : t61 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t62 : t62 = { float0 = create_float (); i32_1 = create_int32_u () } in
+  let local_ t63 : t63 = { float0 = create_float (); i64_1 = create_int64_u () } in
+  let local_ t64 : t64 = { str0 = create_string (); i64_1 = create_int64_u () } in
+  let local_ t65 : t65 = { str0 = create_string (); n1 = create_nativeint_u () } in
+  let local_ t66 : t66 = { n0 = create_nativeint_u () } in
   let local_ t67 : t67 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () } in
   let local_ t68 : t68 = { imm0 = create_int (); str1 = create_string (); float_u2 = create_float_u () } in
-  let local_ t69 : t69 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t70 : t70 = { float0 = create_float (); str1 = create_string (); i32_2 = create_int32_u () } in
-  let local_ t71 : t71 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t72 : t72 = { str0 = create_string (); str1 = create_string (); i64_2 = create_int64_u () } in
-  let local_ t73 : t73 = { float0 = create_float (); n1 = create_nativeint_u () } in
-  let local_ t74 : t74 = { float0 = create_float (); n1 = create_nativeint_u () } in
+  let local_ t69 : t69 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t70 : t70 = { float0 = create_float (); str1 = create_string (); float32_u2 = create_float32_u () } in
+  let local_ t71 : t71 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t72 : t72 = { str0 = create_string (); str1 = create_string (); i32_2 = create_int32_u () } in
+  let local_ t73 : t73 = { float0 = create_float (); i64_1 = create_int64_u () } in
+  let local_ t74 : t74 = { float0 = create_float (); i64_1 = create_int64_u () } in
   let local_ t75_A : t75 = (A (create_float_u ())) in
   let local_ t76_A : t76 = (A (create_float_u ())) in
   let local_ t76_B : t76 = (B (create_float_u ())) in
@@ -3477,13 +3479,13 @@ let go () =
   let local_ t78_C : t78 = (C (create_float_u ())) in
   let local_ t79_A : t79 = (A (create_string (), create_float_u ())) in
   let local_ t79_B : t79 = (B (create_float_u ())) in
-  let local_ t80_A : t80 = (A (create_int32_u ())) in
+  let local_ t80_A : t80 = (A (create_float32_u ())) in
   let local_ t81_A : t81 = (A (create_float_u ())) in
   let local_ t81_B : t81 = (B (create_string (), create_float_u ())) in
   let local_ t82_A : t82 = (A (create_string (), create_float_u ())) in
   let local_ t82_B : t82 = (B (create_float_u ())) in
   let local_ t82_C : t82 = (C (create_float_u ())) in
-  let local_ t83_A : t83 = (A (create_int32_u ())) in
+  let local_ t83_A : t83 = (A (create_float32_u ())) in
   let local_ t83_B : t83 = (B (create_float_u ())) in
   let local_ t84_A : t84 = (A (create_float (), create_float_u ())) in
   let local_ t85_A : t85 = (A (create_float_u ())) in
@@ -3492,12 +3494,12 @@ let go () =
   let local_ t85_D : t85 = (D (create_float_u ())) in
   let local_ t86_A : t86 = (A (create_string (), create_float_u ())) in
   let local_ t86_B : t86 = (B (create_string (), create_float_u ())) in
-  let local_ t87_A : t87 = (A (create_int32_u ())) in
+  let local_ t87_A : t87 = (A (create_float32_u ())) in
   let local_ t87_B : t87 = (B (create_float_u ())) in
   let local_ t87_C : t87 = (C (create_float_u ())) in
   let local_ t88_A : t88 = (A (create_float (), create_float_u ())) in
   let local_ t88_B : t88 = (B (create_float_u ())) in
-  let local_ t89_A : t89 = (A (create_string (), create_int32_u ())) in
+  let local_ t89_A : t89 = (A (create_string (), create_float32_u ())) in
   let local_ t90_A : t90 = (A (create_float_u ())) in
   let local_ t90_B : t90 = (B (create_string (), create_float_u ())) in
   let local_ t90_C : t90 = (C (create_float_u ())) in
@@ -3505,51 +3507,51 @@ let go () =
   let local_ t91_B : t91 = (B (create_float_u ())) in
   let local_ t91_C : t91 = (C (create_float_u ())) in
   let local_ t91_D : t91 = (D (create_float_u ())) in
-  let local_ t92_A : t92 = (A (create_int32_u ())) in
+  let local_ t92_A : t92 = (A (create_float32_u ())) in
   let local_ t92_B : t92 = (B (create_string (), create_float_u ())) in
   let local_ t93_A : t93 = (A (create_float (), create_float_u ())) in
   let local_ t93_B : t93 = (B (create_float_u ())) in
   let local_ t93_C : t93 = (C (create_float_u ())) in
-  let local_ t94_A : t94 = (A (create_string (), create_int32_u ())) in
+  let local_ t94_A : t94 = (A (create_string (), create_float32_u ())) in
   let local_ t94_B : t94 = (B (create_float_u ())) in
-  let local_ t95_A : t95 = (A (create_int64_u ())) in
+  let local_ t95_A : t95 = (A (create_int32_u ())) in
   let local_ t96_A : t96 = (A (create_float_u ())) in
-  let local_ t96_B : t96 = (B (create_int32_u ())) in
+  let local_ t96_B : t96 = (B (create_float32_u ())) in
   let local_ t97_A : t97 = (A (create_string (), create_float_u ())) in
   let local_ t97_B : t97 = (B (create_string (), create_float_u ())) in
   let local_ t97_C : t97 = (C (create_float_u ())) in
-  let local_ t98_A : t98 = (A (create_int32_u ())) in
+  let local_ t98_A : t98 = (A (create_float32_u ())) in
   let local_ t98_B : t98 = (B (create_float_u ())) in
   let local_ t98_C : t98 = (C (create_float_u ())) in
   let local_ t98_D : t98 = (D (create_float_u ())) in
   let local_ t99_A : t99 = (A (create_float (), create_float_u ())) in
   let local_ t99_B : t99 = (B (create_string (), create_float_u ())) in
-  let local_ t100_A : t100 = (A (create_string (), create_int32_u ())) in
+  let local_ t100_A : t100 = (A (create_string (), create_float32_u ())) in
   let local_ t100_B : t100 = (B (create_float_u ())) in
   let local_ t100_C : t100 = (C (create_float_u ())) in
-  let local_ t101_A : t101 = (A (create_int64_u ())) in
+  let local_ t101_A : t101 = (A (create_int32_u ())) in
   let local_ t101_B : t101 = (B (create_float_u ())) in
   let local_ t102_A : t102 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t103_A : t103 = (A (create_float_u ())) in
   let local_ t103_B : t103 = (B (create_float_u ())) in
   let local_ t103_C : t103 = (C (create_string (), create_float_u ())) in
   let local_ t104_A : t104 = (A (create_string (), create_float_u ())) in
-  let local_ t104_B : t104 = (B (create_int32_u ())) in
-  let local_ t105_A : t105 = (A (create_int32_u ())) in
+  let local_ t104_B : t104 = (B (create_float32_u ())) in
+  let local_ t105_A : t105 = (A (create_float32_u ())) in
   let local_ t105_B : t105 = (B (create_string (), create_float_u ())) in
   let local_ t105_C : t105 = (C (create_float_u ())) in
   let local_ t106_A : t106 = (A (create_float (), create_float_u ())) in
   let local_ t106_B : t106 = (B (create_float_u ())) in
   let local_ t106_C : t106 = (C (create_float_u ())) in
   let local_ t106_D : t106 = (D (create_float_u ())) in
-  let local_ t107_A : t107 = (A (create_string (), create_int32_u ())) in
+  let local_ t107_A : t107 = (A (create_string (), create_float32_u ())) in
   let local_ t107_B : t107 = (B (create_string (), create_float_u ())) in
-  let local_ t108_A : t108 = (A (create_int64_u ())) in
+  let local_ t108_A : t108 = (A (create_int32_u ())) in
   let local_ t108_B : t108 = (B (create_float_u ())) in
   let local_ t108_C : t108 = (C (create_float_u ())) in
   let local_ t109_A : t109 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t109_B : t109 = (B (create_float_u ())) in
-  let local_ t110_A : t110 = (A (create_float (), create_int32_u ())) in
+  let local_ t110_A : t110 = (A (create_float (), create_float32_u ())) in
   let local_ t111_A : t111 = (A (create_float_u ())) in
   let local_ t111_B : t111 = (B (create_string (), create_float_u ())) in
   let local_ t111_C : t111 = (C (create_float_u ())) in
@@ -3557,77 +3559,77 @@ let go () =
   let local_ t112_A : t112 = (A (create_string (), create_float_u ())) in
   let local_ t112_B : t112 = (B (create_float_u ())) in
   let local_ t112_C : t112 = (C (create_string (), create_float_u ())) in
-  let local_ t113_A : t113 = (A (create_int32_u ())) in
-  let local_ t113_B : t113 = (B (create_int32_u ())) in
+  let local_ t113_A : t113 = (A (create_float32_u ())) in
+  let local_ t113_B : t113 = (B (create_float32_u ())) in
   let local_ t114_A : t114 = (A (create_float (), create_float_u ())) in
   let local_ t114_B : t114 = (B (create_string (), create_float_u ())) in
   let local_ t114_C : t114 = (C (create_float_u ())) in
-  let local_ t115_A : t115 = (A (create_string (), create_int32_u ())) in
+  let local_ t115_A : t115 = (A (create_string (), create_float32_u ())) in
   let local_ t115_B : t115 = (B (create_float_u ())) in
   let local_ t115_C : t115 = (C (create_float_u ())) in
   let local_ t115_D : t115 = (D (create_float_u ())) in
-  let local_ t116_A : t116 = (A (create_int64_u ())) in
+  let local_ t116_A : t116 = (A (create_int32_u ())) in
   let local_ t116_B : t116 = (B (create_string (), create_float_u ())) in
   let local_ t117_A : t117 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t117_B : t117 = (B (create_float_u ())) in
   let local_ t117_C : t117 = (C (create_float_u ())) in
-  let local_ t118_A : t118 = (A (create_float (), create_int32_u ())) in
+  let local_ t118_A : t118 = (A (create_float (), create_float32_u ())) in
   let local_ t118_B : t118 = (B (create_float_u ())) in
-  let local_ t119_A : t119 = (A (create_string (), create_int64_u ())) in
+  let local_ t119_A : t119 = (A (create_string (), create_int32_u ())) in
   let local_ t120_A : t120 = (A (create_float_u ())) in
-  let local_ t120_B : t120 = (B (create_int32_u ())) in
+  let local_ t120_B : t120 = (B (create_float32_u ())) in
   let local_ t120_C : t120 = (C (create_float_u ())) in
   let local_ t121_A : t121 = (A (create_string (), create_float_u ())) in
   let local_ t121_B : t121 = (B (create_string (), create_float_u ())) in
   let local_ t121_C : t121 = (C (create_float_u ())) in
   let local_ t121_D : t121 = (D (create_float_u ())) in
-  let local_ t122_A : t122 = (A (create_int32_u ())) in
+  let local_ t122_A : t122 = (A (create_float32_u ())) in
   let local_ t122_B : t122 = (B (create_float_u ())) in
   let local_ t122_C : t122 = (C (create_string (), create_float_u ())) in
   let local_ t123_A : t123 = (A (create_float (), create_float_u ())) in
-  let local_ t123_B : t123 = (B (create_int32_u ())) in
-  let local_ t124_A : t124 = (A (create_string (), create_int32_u ())) in
+  let local_ t123_B : t123 = (B (create_float32_u ())) in
+  let local_ t124_A : t124 = (A (create_string (), create_float32_u ())) in
   let local_ t124_B : t124 = (B (create_string (), create_float_u ())) in
   let local_ t124_C : t124 = (C (create_float_u ())) in
-  let local_ t125_A : t125 = (A (create_int64_u ())) in
+  let local_ t125_A : t125 = (A (create_int32_u ())) in
   let local_ t125_B : t125 = (B (create_float_u ())) in
   let local_ t125_C : t125 = (C (create_float_u ())) in
   let local_ t125_D : t125 = (D (create_float_u ())) in
   let local_ t126_A : t126 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t126_B : t126 = (B (create_string (), create_float_u ())) in
-  let local_ t127_A : t127 = (A (create_float (), create_int32_u ())) in
+  let local_ t127_A : t127 = (A (create_float (), create_float32_u ())) in
   let local_ t127_B : t127 = (B (create_float_u ())) in
   let local_ t127_C : t127 = (C (create_float_u ())) in
-  let local_ t128_A : t128 = (A (create_string (), create_int64_u ())) in
+  let local_ t128_A : t128 = (A (create_string (), create_int32_u ())) in
   let local_ t128_B : t128 = (B (create_float_u ())) in
-  let local_ t129_A : t129 = (A (create_nativeint_u ())) in
+  let local_ t129_A : t129 = (A (create_int64_u ())) in
   let local_ t130_A : t130 = (A (create_float_u ())) in
   let local_ t130_B : t130 = (B (create_float (), create_float_u ())) in
   let local_ t131_A : t131 = (A (create_string (), create_float_u ())) in
-  let local_ t131_B : t131 = (B (create_int32_u ())) in
+  let local_ t131_B : t131 = (B (create_float32_u ())) in
   let local_ t131_C : t131 = (C (create_float_u ())) in
-  let local_ t132_A : t132 = (A (create_int32_u ())) in
+  let local_ t132_A : t132 = (A (create_float32_u ())) in
   let local_ t132_B : t132 = (B (create_string (), create_float_u ())) in
   let local_ t132_C : t132 = (C (create_float_u ())) in
   let local_ t132_D : t132 = (D (create_float_u ())) in
   let local_ t133_A : t133 = (A (create_float (), create_float_u ())) in
   let local_ t133_B : t133 = (B (create_float_u ())) in
   let local_ t133_C : t133 = (C (create_string (), create_float_u ())) in
-  let local_ t134_A : t134 = (A (create_string (), create_int32_u ())) in
-  let local_ t134_B : t134 = (B (create_int32_u ())) in
-  let local_ t135_A : t135 = (A (create_int64_u ())) in
+  let local_ t134_A : t134 = (A (create_string (), create_float32_u ())) in
+  let local_ t134_B : t134 = (B (create_float32_u ())) in
+  let local_ t135_A : t135 = (A (create_int32_u ())) in
   let local_ t135_B : t135 = (B (create_string (), create_float_u ())) in
   let local_ t135_C : t135 = (C (create_float_u ())) in
   let local_ t136_A : t136 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t136_B : t136 = (B (create_float_u ())) in
   let local_ t136_C : t136 = (C (create_float_u ())) in
   let local_ t136_D : t136 = (D (create_float_u ())) in
-  let local_ t137_A : t137 = (A (create_float (), create_int32_u ())) in
+  let local_ t137_A : t137 = (A (create_float (), create_float32_u ())) in
   let local_ t137_B : t137 = (B (create_string (), create_float_u ())) in
-  let local_ t138_A : t138 = (A (create_string (), create_int64_u ())) in
+  let local_ t138_A : t138 = (A (create_string (), create_int32_u ())) in
   let local_ t138_B : t138 = (B (create_float_u ())) in
   let local_ t138_C : t138 = (C (create_float_u ())) in
-  let local_ t139_A : t139 = (A (create_nativeint_u ())) in
+  let local_ t139_A : t139 = (A (create_int64_u ())) in
   let local_ t139_B : t139 = (B (create_float_u ())) in
   let local_ t140_A : t140 = (A (create_float (), create_string (), create_float_u ())) in
   let local_ t141_A : t141 = (A (create_float_u ())) in
@@ -3637,26 +3639,26 @@ let go () =
   let local_ t141_E : t141 = (E (create_float_u ())) in
   let local_ t142_A : t142 = (A (create_string (), create_float_u ())) in
   let local_ t142_B : t142 = (B (create_float (), create_float_u ())) in
-  let local_ t143_A : t143 = (A (create_int32_u ())) in
-  let local_ t143_B : t143 = (B (create_int32_u ())) in
+  let local_ t143_A : t143 = (A (create_float32_u ())) in
+  let local_ t143_B : t143 = (B (create_float32_u ())) in
   let local_ t143_C : t143 = (C (create_float_u ())) in
   let local_ t144_A : t144 = (A (create_float (), create_float_u ())) in
   let local_ t144_B : t144 = (B (create_string (), create_float_u ())) in
   let local_ t144_C : t144 = (C (create_float_u ())) in
   let local_ t144_D : t144 = (D (create_float_u ())) in
-  let local_ t145_A : t145 = (A (create_string (), create_int32_u ())) in
+  let local_ t145_A : t145 = (A (create_string (), create_float32_u ())) in
   let local_ t145_B : t145 = (B (create_float_u ())) in
   let local_ t145_C : t145 = (C (create_string (), create_float_u ())) in
-  let local_ t146_A : t146 = (A (create_int64_u ())) in
-  let local_ t146_B : t146 = (B (create_int32_u ())) in
+  let local_ t146_A : t146 = (A (create_int32_u ())) in
+  let local_ t146_B : t146 = (B (create_float32_u ())) in
   let local_ t147_A : t147 = (A (create_string (), create_string (), create_float_u ())) in
   let local_ t147_B : t147 = (B (create_string (), create_float_u ())) in
   let local_ t147_C : t147 = (C (create_float_u ())) in
-  let local_ t148_A : t148 = (A (create_float (), create_int32_u ())) in
+  let local_ t148_A : t148 = (A (create_float (), create_float32_u ())) in
   let local_ t148_B : t148 = (B (create_float_u ())) in
   let local_ t148_C : t148 = (C (create_float_u ())) in
   let local_ t148_D : t148 = (D (create_float_u ())) in
-  let local_ t149_A : t149 = (A (create_string (), create_int64_u ())) in
+  let local_ t149_A : t149 = (A (create_string (), create_int32_u ())) in
   let local_ t149_B : t149 = (B (create_string (), create_float_u ())) in
     let module _ = struct
     let () = print_endline " - Doing GC";;
diff --git a/ocaml/testsuite/tests/typing-layouts-float32/alloc.ml b/ocaml/testsuite/tests/typing-layouts-float32/alloc.ml
index d488c3b9ac1..818c21edf77 100644
--- a/ocaml/testsuite/tests/typing-layouts-float32/alloc.ml
+++ b/ocaml/testsuite/tests/typing-layouts-float32/alloc.ml
@@ -110,4 +110,83 @@ end
 let _ = Pi_unboxed.estimate ()
 let _ = Pi_boxed.estimate ()
 
-(* CR mslater: (float32) float32# record allocation tests *)
+
+(**********************************)
+(* float32# record allocation tests *)
+let[@inline never] consumer x y = Float32_u.(x + y)
+
+type t8 = { a : float32#;
+            mutable b : float32#;
+            c : float32#;
+            mutable d : float32# }
+
+let print_record_and_allocs s r =
+  let allocs = get_exact_allocations () in
+  Printf.printf
+    "%s:\n  allocated bytes: %.2f\n  a: %.2f\n  b: %.2f\n  c: %.2f\n  d: %.2f\n"
+    s allocs
+    (Float32.to_float (Float32_u.to_float32 r.a)) (Float32.to_float (Float32_u.to_float32 r.b))
+    (Float32.to_float (Float32_u.to_float32 r.c)) (Float32.to_float (Float32_u.to_float32 r.d))
+
+(* Building a record should only allocate the box *)
+let[@inline never] build x =
+  { a = x;
+    b = #42.0s;
+    c = consumer x x;
+    d = consumer x #1.0s }
+
+let[@inline never] project_a r = r.a
+let[@inline never] update_d r x = r.d <- x
+
+(* We should be able to get floats out, do math on them, pass them to functions,
+   etc, without allocating. *)
+let[@inline never] manipulate ({c; _} as r) =
+  match r with
+  | { b; _ } ->
+    update_d r (consumer b (project_a r));
+    r.b <- Float32_u.sub c #21.1s;
+    r.a
+
+let _ =
+  let r = measure_alloc_value (fun () -> build #3.14s) in
+  print_record_and_allocs "Construction (40 bytes for record)" r;
+  let _ = measure_alloc (fun () -> manipulate r) in
+  print_record_and_allocs "Manipulation (0 bytes)" r
+
+
+(* There was some concern the below would allocate when passed `false` due to
+   CSE.  The idea is:
+   - Projections like `r.a` were initially implemented as
+     `unbox (box ( *(r+offset) ))`.  This box is supposed to be erased by the
+     middle-end, but...
+   - The boxes from the `true` branch could get lifted out of the `if` to be
+     combined with the box from the projection, preventing it from being erased.
+   Projections are no longer implemented that way, so there's no common
+   subexpression to be eliminated, but I've kept the test.  *)
+let[@inline never] cse_test b r =
+  let (x : float32#) = r.a in
+  if b then
+    (Float32_u.to_float32 x, Float32_u.to_float32 x)
+  else
+    (0.s, 0.s)
+
+let _ =
+  let r = build #3.14s in
+  let _ = measure_alloc_value (fun () -> cse_test false r) in
+  let allocs = get_exact_allocations () in
+  Printf.printf "CSE test (0 bytes):\n  allocated bytes: %.2f\n" allocs
+
+let[@inline never] literal_test x y =
+  let open Float32_u in
+  (#1.s + x) * (y - #4.s) / (#3.s ** #1.s)
+
+let print_allocs s =
+  let allocs = get_exact_allocations () in
+  Printf.printf
+    "%s:\n  allocated bytes: %.2f\n"
+    s allocs
+
+let _ =
+  let r = measure_alloc (fun () -> literal_test #2.s #3.s) in
+  assert (Float32_u.equal r (-#1.s));
+  print_allocs "Float32 literals";
diff --git a/ocaml/testsuite/tests/typing-layouts-float32/alloc.reference b/ocaml/testsuite/tests/typing-layouts-float32/alloc.reference
index 909d3cf319a..d915be2ac25 100644
--- a/ocaml/testsuite/tests/typing-layouts-float32/alloc.reference
+++ b/ocaml/testsuite/tests/typing-layouts-float32/alloc.reference
@@ -4,3 +4,19 @@ Unboxed:
 Boxed:
   estimate: 3.141699
   allocations: Allocated
+Construction (40 bytes for record):
+  allocated bytes: 40.00
+  a: 3.14
+  b: 42.00
+  c: 6.28
+  d: 4.14
+Manipulation (0 bytes):
+  allocated bytes: 0.00
+  a: 3.14
+  b: -14.82
+  c: 6.28
+  d: 45.14
+CSE test (0 bytes):
+  allocated bytes: 0.00
+Float32 literals:
+  allocated bytes: 0.00
diff --git a/ocaml/testsuite/tests/typing-layouts-float32/basics.ml b/ocaml/testsuite/tests/typing-layouts-float32/basics.ml
index fa375f4be29..9e39c6adc51 100644
--- a/ocaml/testsuite/tests/typing-layouts-float32/basics.ml
+++ b/ocaml/testsuite/tests/typing-layouts-float32/basics.ml
@@ -194,8 +194,8 @@ Error: This type ('b : value) should be an instance of type ('a : float32)
          it's the type of a tuple element.
 |}]
 
-(****************************************************************************)
-(* Test 5: Can't be put in structures in typedecls, except certain records. *)
+(*****************************************)
+(* Test 5: float32 in structures *)
 
 (* all-float32 records are allowed, as are some records that mix float32 and
    value fields. See [tests/typing-layouts/mixed_records.ml] for tests of mixed
@@ -205,8 +205,8 @@ type t5_1 = { x : t_float32 };;
 Line 1, characters 0-29:
 1 | type t5_1 = { x : t_float32 };;
     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
-Error: Type t_float32 has layout float32.
-       Structures with non-value elements may not yet contain types of this layout.
+Error: The enabled layouts extension does not allow for mixed records.
+       You must enable -extension layouts_beta to use this feature.
 |}];;
 
 (* CR layouts 2.5: allow this *)
@@ -224,8 +224,8 @@ type t5_4 = A of t_float32;;
 Line 1, characters 12-26:
 1 | type t5_4 = A of t_float32;;
                 ^^^^^^^^^^^^^^
-Error: Type t_float32 has layout float32.
-       Structures with non-value elements may not yet contain types of this layout.
+Error: The enabled layouts extension does not allow for mixed constructors.
+       You must enable -extension layouts_beta to use this feature.
 |}];;
 
 type t5_5 = A of int * t_float32;;
@@ -233,8 +233,8 @@ type t5_5 = A of int * t_float32;;
 Line 1, characters 12-32:
 1 | type t5_5 = A of int * t_float32;;
                 ^^^^^^^^^^^^^^^^^^^^
-Error: Type t_float32 has layout float32.
-       Structures with non-value elements may not yet contain types of this layout.
+Error: The enabled layouts extension does not allow for mixed constructors.
+       You must enable -extension layouts_beta to use this feature.
 |}];;
 
 type t5_6 = A of t_float32 [@@unboxed];;
@@ -253,8 +253,8 @@ type ('a : float32) t5_7 = A of int
 Line 2, characters 27-34:
 2 | type ('a : float32) t5_8 = A of 'a;;
                                ^^^^^^^
-Error: Type 'a has layout float32.
-       Structures with non-value elements may not yet contain types of this layout.
+Error: The enabled layouts extension does not allow for mixed constructors.
+       You must enable -extension layouts_beta to use this feature.
 |}]
 
 type ('a : float32, 'b : float32) t5_9 = {x : 'a; y : 'b; z : 'a}
@@ -265,8 +265,8 @@ and 'a t5_11 = {x : 'a t5_10; y : 'a}
 Line 1, characters 0-65:
 1 | type ('a : float32, 'b : float32) t5_9 = {x : 'a; y : 'b; z : 'a}
     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
-Error: Type 'a has layout float32.
-       Structures with non-value elements may not yet contain types of this layout.
+Error: The enabled layouts extension does not allow for mixed records.
+       You must enable -extension layouts_beta to use this feature.
 |}];;
 
 type ('a : float32) t5_12 = {x : 'a; y : float32#};;
@@ -274,8 +274,8 @@ type ('a : float32) t5_12 = {x : 'a; y : float32#};;
 Line 1, characters 0-50:
 1 | type ('a : float32) t5_12 = {x : 'a; y : float32#};;
     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
-Error: Type 'a has layout float32.
-       Structures with non-value elements may not yet contain types of this layout.
+Error: The enabled layouts extension does not allow for mixed records.
+       You must enable -extension layouts_beta to use this feature.
 |}];;
 
 type ('a : float32) t5_13 = {x : 'a; y : float32#};;
@@ -283,8 +283,8 @@ type ('a : float32) t5_13 = {x : 'a; y : float32#};;
 Line 1, characters 0-50:
 1 | type ('a : float32) t5_13 = {x : 'a; y : float32#};;
     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
-Error: Type 'a has layout float32.
-       Structures with non-value elements may not yet contain types of this layout.
+Error: The enabled layouts extension does not allow for mixed records.
+       You must enable -extension layouts_beta to use this feature.
 |}];;
 
 (* Mixed records are allowed, but are prohibited outside of alpha. *)
@@ -293,8 +293,8 @@ type 'a t5_14 = {x : 'a; y : float32#};;
 Line 1, characters 0-38:
 1 | type 'a t5_14 = {x : 'a; y : float32#};;
     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
-Error: Type float32# has layout float32.
-       Structures with non-value elements may not yet contain types of this layout.
+Error: The enabled layouts extension does not allow for mixed records.
+       You must enable -extension layouts_beta to use this feature.
 |}];;
 
 type ufref = { mutable contents : float32# };;
@@ -302,8 +302,8 @@ type ufref = { mutable contents : float32# };;
 Line 1, characters 0-44:
 1 | type ufref = { mutable contents : float32# };;
     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
-Error: Type float32# has layout float32.
-       Structures with non-value elements may not yet contain types of this layout.
+Error: The enabled layouts extension does not allow for mixed records.
+       You must enable -extension layouts_beta to use this feature.
 |}];;
 
 (****************************************************)
@@ -572,7 +572,7 @@ Error: Don't know how to untag this type. Only int can be untagged.
 |}];;
 
 (*******************************************************)
-(* Test 11: Don't allow float32 in extensible variants *)
+(* Test 11: float32 in extensible variants *)
 
 type t11_1 = ..
 
@@ -582,8 +582,8 @@ type t11_1 = ..
 Line 3, characters 14-28:
 3 | type t11_1 += A of t_float32;;
                   ^^^^^^^^^^^^^^
-Error: Type t_float32 has layout float32.
-       Structures with non-value elements may not yet contain types of this layout.
+Error: The enabled layouts extension does not allow for mixed constructors.
+       You must enable -extension layouts_beta to use this feature.
 |}]
 
 type t11_1 += B of float32#;;
@@ -591,8 +591,8 @@ type t11_1 += B of float32#;;
 Line 1, characters 14-27:
 1 | type t11_1 += B of float32#;;
                   ^^^^^^^^^^^^^
-Error: Type float32# has layout float32.
-       Structures with non-value elements may not yet contain types of this layout.
+Error: The enabled layouts extension does not allow for mixed constructors.
+       You must enable -extension layouts_beta to use this feature.
 |}]
 
 type ('a : float32) t11_2 = ..
@@ -607,8 +607,8 @@ type 'a t11_2 += A of int
 Line 5, characters 17-24:
 5 | type 'a t11_2 += B of 'a;;
                      ^^^^^^^
-Error: Type 'a has layout float32.
-       Structures with non-value elements may not yet contain types of this layout.
+Error: The enabled layouts extension does not allow for mixed constructors.
+       You must enable -extension layouts_beta to use this feature.
 |}]
 
 (***************************************)
@@ -830,5 +830,3 @@ Error: This expression has type t_float32
        But the layout of t_float32 must be a sublayout of value, because
          of layout requirements from an imported definition.
 |}];;
-
-(* CR mslater: (float32) float32# records work like normal records *)
diff --git a/ocaml/testsuite/tests/typing-layouts-float32/basics_beta.ml b/ocaml/testsuite/tests/typing-layouts-float32/basics_beta.ml
new file mode 100644
index 00000000000..a075c764f45
--- /dev/null
+++ b/ocaml/testsuite/tests/typing-layouts-float32/basics_beta.ml
@@ -0,0 +1,899 @@
+(* TEST
+ flambda2;
+ {
+   flags = "-extension layouts_alpha -extension small_numbers";
+   expect;
+ }{
+   flags = "-extension layouts_beta -extension small_numbers";
+   expect;
+ }
+*)
+
+(* This test is almost entirely a copy of [basics.ml], except
+   with different output for some layouts-beta features.
+   You should diff this file against [basics.ml] to see what's
+   different.
+*)
+
+(* This file contains typing tests for the layout [float32].
+
+   Runtime tests for the type [float32#] can be found in the [unboxed_float] and
+   [alloc] tests in this directory.  The type [float32#] here is used as a
+   convenient example of a concrete [float32] type in some tests, but its
+   behavior isn't the primary purpose of this test. *)
+
+type t_float32 : float32
+type ('a : float32) t_float32_id = 'a
+
+(*********************************)
+(* Test 1: The identity function *)
+
+let f1_1 (x : t_float32) = x;;
+let f1_2 (x : 'a t_float32_id) = x;;
+let f1_3 (x : float32#) = x;;
+[%%expect{|
+type t_float32 : float32
+type ('a : float32) t_float32_id = 'a
+val f1_1 : t_float32 -> t_float32 = <fun>
+val f1_2 : ('a : float32). 'a t_float32_id -> 'a t_float32_id = <fun>
+val f1_3 : float32# -> float32# = <fun>
+|}];;
+
+(*****************************************)
+(* Test 2: You can let-bind them locally *)
+let f2_1 (x : t_float32) =
+  let y = x in
+  y;;
+
+let f2_2 (x : 'a t_float32_id) =
+  let y = x in
+  y;;
+
+let f2_3 (x : float32#) =
+  let y = x in
+  y;;
+[%%expect{|
+val f2_1 : t_float32 -> t_float32 = <fun>
+val f2_2 : ('a : float32). 'a t_float32_id -> 'a t_float32_id = <fun>
+val f2_3 : float32# -> float32# = <fun>
+|}];;
+
+(*****************************************)
+(* Test 3: No module-level bindings yet. *)
+
+let x3_1 : t_float32 = assert false;;
+[%%expect{|
+Line 1, characters 4-8:
+1 | let x3_1 : t_float32 = assert false;;
+        ^^^^
+Error: Types of top-level module bindings must have layout value, but
+       the type of x3_1 has layout float32.
+|}];;
+
+let x3_2 : 'a t_float32_id = assert false;;
+[%%expect{|
+Line 1, characters 4-8:
+1 | let x3_2 : 'a t_float32_id = assert false;;
+        ^^^^
+Error: Types of top-level module bindings must have layout value, but
+       the type of x3_2 has layout float32.
+|}];;
+
+let x3_3 : float32# = assert false;;
+[%%expect{|
+Line 1, characters 4-8:
+1 | let x3_3 : float32# = assert false;;
+        ^^^^
+Error: Types of top-level module bindings must have layout value, but
+       the type of x3_3 has layout float32.
+|}];;
+
+module M3_4 = struct
+  let x : t_float32 = assert false
+end
+[%%expect{|
+Line 2, characters 6-7:
+2 |   let x : t_float32 = assert false
+          ^
+Error: Types of top-level module bindings must have layout value, but
+       the type of x has layout float32.
+|}];;
+
+module M3_5 = struct
+  let f (x : float32#) = x
+
+  let y = f (assert false)
+end
+[%%expect{|
+Line 4, characters 6-7:
+4 |   let y = f (assert false)
+          ^
+Error: Types of top-level module bindings must have layout value, but
+       the type of y has layout float32.
+|}];;
+
+(*************************************)
+(* Test 4: No putting them in tuples *)
+
+let f4_1 (x : t_float32) = x, false;;
+[%%expect{|
+Line 1, characters 27-28:
+1 | let f4_1 (x : t_float32) = x, false;;
+                               ^
+Error: This expression has type t_float32
+       but an expression was expected of type ('a : value)
+       The layout of t_float32 is float32, because
+         of the definition of t_float32 at line 1, characters 0-24.
+       But the layout of t_float32 must be a sublayout of value, because
+         it's the type of a tuple element.
+|}];;
+
+let f4_2 (x : 'a t_float32_id) = x, false;;
+[%%expect{|
+Line 1, characters 33-34:
+1 | let f4_2 (x : 'a t_float32_id) = x, false;;
+                                     ^
+Error: This expression has type 'a t_float32_id = ('a : float32)
+       but an expression was expected of type ('b : value)
+       The layout of 'a t_float32_id is float32, because
+         of the definition of t_float32_id at line 2, characters 0-37.
+       But the layout of 'a t_float32_id must overlap with value, because
+         it's the type of a tuple element.
+|}];;
+
+let f4_3 (x : float32#) = x, false;;
+[%%expect{|
+Line 1, characters 26-27:
+1 | let f4_3 (x : float32#) = x, false;;
+                              ^
+Error: This expression has type float32#
+       but an expression was expected of type ('a : value)
+       The layout of float32# is float32, because
+         it is the primitive float32 type float32#.
+       But the layout of float32# must be a sublayout of value, because
+         it's the type of a tuple element.
+|}];;
+
+type t4_4 = t_float32 * string;;
+[%%expect{|
+Line 1, characters 12-21:
+1 | type t4_4 = t_float32 * string;;
+                ^^^^^^^^^
+Error: Tuple element types must have layout value.
+       The layout of t_float32 is float32, because
+         of the definition of t_float32 at line 1, characters 0-24.
+       But the layout of t_float32 must be a sublayout of value, because
+         it's the type of a tuple element.
+|}];;
+
+type t4_5 = int * float32#;;
+[%%expect{|
+Line 1, characters 18-26:
+1 | type t4_5 = int * float32#;;
+                      ^^^^^^^^
+Error: Tuple element types must have layout value.
+       The layout of float32# is float32, because
+         it is the primitive float32 type float32#.
+       But the layout of float32# must be a sublayout of value, because
+         it's the type of a tuple element.
+|}];;
+
+type ('a : float32) t4_6 = 'a * 'a
+[%%expect{|
+Line 1, characters 27-29:
+1 | type ('a : float32) t4_6 = 'a * 'a
+                               ^^
+Error: This type ('a : value) should be an instance of type ('a0 : float32)
+       The layout of 'a is float32, because
+         of the annotation on 'a in the declaration of the type t4_6.
+       But the layout of 'a must overlap with value, because
+         it's the type of a tuple element.
+|}];;
+
+(* check for layout propagation *)
+type ('a : float32, 'b) t4_7 = ('a as 'b) -> ('b * 'b);;
+[%%expect{|
+Line 1, characters 32-34:
+1 | type ('a : float32, 'b) t4_7 = ('a as 'b) -> ('b * 'b);;
+                                    ^^
+Error: This type ('b : value) should be an instance of type ('a : float32)
+       The layout of 'a is float32, because
+         of the annotation on 'a in the declaration of the type t4_7.
+       But the layout of 'a must overlap with value, because
+         it's the type of a tuple element.
+|}]
+
+(*****************************************)
+(* Test 5: float32 in structures *)
+
+(* all-float32 records are allowed, as are some records that mix float32 and
+  value fields. See [tests/typing-layouts/mixed_records.ml] for tests of mixed
+  records. *)
+type t5_1 = { x : t_float32 };;
+[%%expect{|
+type t5_1 = { x : t_float32; }
+|}];;
+
+(* CR layouts 2.5: allow this *)
+type t5_3 = { x : t_float32 } [@@unboxed];;
+[%%expect{|
+Line 1, characters 14-27:
+1 | type t5_3 = { x : t_float32 } [@@unboxed];;
+                  ^^^^^^^^^^^^^
+Error: Type t_float32 has layout float32.
+       Unboxed records may not yet contain types of this layout.
+|}];;
+
+type t5_4 = A of t_float32;;
+[%%expect{|
+type t5_4 = A of t_float32
+|}];;
+
+type t5_5 = A of int * t_float32;;
+[%%expect{|
+type t5_5 = A of int * t_float32
+|}];;
+
+type t5_6 = A of t_float32 [@@unboxed];;
+[%%expect{|
+Line 1, characters 12-26:
+1 | type t5_6 = A of t_float32 [@@unboxed];;
+                ^^^^^^^^^^^^^^
+Error: Type t_float32 has layout float32.
+       Unboxed variants may not yet contain types of this layout.
+|}];;
+
+type ('a : float32) t5_7 = A of int
+type ('a : float32) t5_8 = A of 'a;;
+[%%expect{|
+type ('a : float32) t5_7 = A of int
+type ('a : float32) t5_8 = A of 'a
+|}]
+
+type ('a : float32, 'b : float32) t5_9 = {x : 'a; y : 'b; z : 'a}
+
+type 'a t5_10 = 'a t_float32_id
+and 'a t5_11 = {x : 'a t5_10; y : 'a}
+[%%expect{|
+type ('a : float32, 'b : float32) t5_9 = { x : 'a; y : 'b; z : 'a; }
+Line 4, characters 20-28:
+4 | and 'a t5_11 = {x : 'a t5_10; y : 'a}
+                        ^^^^^^^^
+Error: Layout mismatch in final type declaration consistency check.
+       This is most often caused by the fact that type inference is not
+       clever enough to propagate layouts through variables in different
+       declarations. It is also not clever enough to produce a good error
+       message, so we'll say this instead:
+         The layout of 'a is float32, because
+           of the definition of t_float32_id at line 2, characters 0-37.
+         But the layout of 'a must overlap with value, because
+           it instantiates an unannotated type parameter of t5_11, defaulted to layout value.
+       A good next step is to add a layout annotation on a parameter to
+       the declaration where this error is reported.
+|}];;
+
+type ('a : float32) t5_12 = {x : 'a; y : float32#};;
+[%%expect{|
+type ('a : float32) t5_12 = { x : 'a; y : float32#; }
+|}];;
+
+type ('a : float32) t5_13 = {x : 'a; y : float32#};;
+[%%expect{|
+type ('a : float32) t5_13 = { x : 'a; y : float32#; }
+|}];;
+
+type ufref = { mutable contents : float32# };;
+[%%expect{|
+type ufref = { mutable contents : float32#; }
+|}];;
+
+(****************************************************)
+(* Test 6: Can't be put at top level of signatures. *)
+module type S6_1 = sig val x : t_float32 end
+
+let f6 (m : (module S6_1)) = let module M6 = (val m) in M6.x;;
+[%%expect{|
+Line 1, characters 31-40:
+1 | module type S6_1 = sig val x : t_float32 end
+                                   ^^^^^^^^^
+Error: This type signature for x is not a value type.
+       The layout of type t_float32 is float32, because
+         of the definition of t_float32 at line 1, characters 0-24.
+       But the layout of type t_float32 must be a sublayout of value, because
+         it's the type of something stored in a module structure.
+|}];;
+
+module type S6_2 = sig val x : 'a t_float32_id end
+[%%expect{|
+Line 1, characters 31-46:
+1 | module type S6_2 = sig val x : 'a t_float32_id end
+                                   ^^^^^^^^^^^^^^^
+Error: This type signature for x is not a value type.
+       The layout of type 'a t_float32_id is float32, because
+         of the definition of t_float32_id at line 2, characters 0-37.
+       But the layout of type 'a t_float32_id must be a sublayout of value, because
+         it's the type of something stored in a module structure.
+|}];;
+
+module type S6_3 = sig val x : float32# end
+[%%expect{|
+Line 1, characters 31-39:
+1 | module type S6_3 = sig val x : float32# end
+                                   ^^^^^^^^
+Error: This type signature for x is not a value type.
+       The layout of type float32# is float32, because
+         it is the primitive float32 type float32#.
+       But the layout of type float32# must be a sublayout of value, because
+         it's the type of something stored in a module structure.
+|}];;
+
+
+(*********************************************************)
+(* Test 7: Can't be used as polymorphic variant argument *)
+let f7_1 (x : t_float32) = `A x;;
+[%%expect{|
+Line 1, characters 30-31:
+1 | let f7_1 (x : t_float32) = `A x;;
+                                  ^
+Error: This expression has type t_float32
+       but an expression was expected of type ('a : value)
+       The layout of t_float32 is float32, because
+         of the definition of t_float32 at line 1, characters 0-24.
+       But the layout of t_float32 must be a sublayout of value, because
+         it's the type of the field of a polymorphic variant.
+|}];;
+
+let f7_2 (x : 'a t_float32_id) = `A x;;
+[%%expect{|
+Line 1, characters 36-37:
+1 | let f7_2 (x : 'a t_float32_id) = `A x;;
+                                        ^
+Error: This expression has type 'a t_float32_id = ('a : float32)
+       but an expression was expected of type ('b : value)
+       The layout of 'a t_float32_id is float32, because
+         of the definition of t_float32_id at line 2, characters 0-37.
+       But the layout of 'a t_float32_id must overlap with value, because
+         it's the type of the field of a polymorphic variant.
+|}];;
+
+let f7_3 (x : float32#) = `A x;;
+[%%expect{|
+Line 1, characters 29-30:
+1 | let f7_3 (x : float32#) = `A x;;
+                                 ^
+Error: This expression has type float32#
+       but an expression was expected of type ('a : value)
+       The layout of float32# is float32, because
+         it is the primitive float32 type float32#.
+       But the layout of float32# must be a sublayout of value, because
+         it's the type of the field of a polymorphic variant.
+|}];;
+
+type f7_4 = [ `A of t_float32 ];;
+[%%expect{|
+Line 1, characters 20-29:
+1 | type f7_4 = [ `A of t_float32 ];;
+                        ^^^^^^^^^
+Error: Polymorphic variant constructor argument types must have layout value.
+       The layout of t_float32 is float32, because
+         of the definition of t_float32 at line 1, characters 0-24.
+       But the layout of t_float32 must be a sublayout of value, because
+         it's the type of the field of a polymorphic variant.
+|}];;
+
+type ('a : float32) f7_5 = [ `A of 'a ];;
+[%%expect{|
+Line 1, characters 35-37:
+1 | type ('a : float32) f7_5 = [ `A of 'a ];;
+                                       ^^
+Error: This type ('a : value) should be an instance of type ('a0 : float32)
+       The layout of 'a is float32, because
+         of the annotation on 'a in the declaration of the type f7_5.
+       But the layout of 'a must overlap with value, because
+         it's the type of the field of a polymorphic variant.
+|}];;
+
+(************************************************************)
+(* Test 8: Normal polymorphic functions don't work on them. *)
+
+let make_t_float32 () : t_float32 = assert false
+let make_t_float32_id () : 'a t_float32_id = assert false
+let make_floatu () : float32# = assert false
+
+let id_value x = x;;
+[%%expect{|
+val make_t_float32 : unit -> t_float32 = <fun>
+val make_t_float32_id : ('a : float32). unit -> 'a t_float32_id = <fun>
+val make_floatu : unit -> float32# = <fun>
+val id_value : 'a -> 'a = <fun>
+|}];;
+
+let x8_1 = id_value (make_t_float32 ());;
+[%%expect{|
+Line 1, characters 20-39:
+1 | let x8_1 = id_value (make_t_float32 ());;
+                        ^^^^^^^^^^^^^^^^^^^
+Error: This expression has type t_float32
+       but an expression was expected of type ('a : value)
+       The layout of t_float32 is float32, because
+         of the definition of t_float32 at line 1, characters 0-24.
+       But the layout of t_float32 must be a sublayout of value, because
+         of the definition of id_value at line 5, characters 13-18.
+|}];;
+
+let x8_2 = id_value (make_t_float32_id ());;
+[%%expect{|
+Line 1, characters 20-42:
+1 | let x8_2 = id_value (make_t_float32_id ());;
+                        ^^^^^^^^^^^^^^^^^^^^^^
+Error: This expression has type 'a t_float32_id = ('a : float32)
+       but an expression was expected of type ('b : value)
+       The layout of 'a t_float32_id is float32, because
+         of the definition of make_t_float32_id at line 2, characters 22-57.
+       But the layout of 'a t_float32_id must overlap with value, because
+         of the definition of id_value at line 5, characters 13-18.
+|}];;
+
+let x8_3 = id_value (make_floatu ());;
+[%%expect{|
+Line 1, characters 20-36:
+1 | let x8_3 = id_value (make_floatu ());;
+                        ^^^^^^^^^^^^^^^^
+Error: This expression has type float32#
+       but an expression was expected of type ('a : value)
+       The layout of float32# is float32, because
+         it is the primitive float32 type float32#.
+       But the layout of float32# must be a sublayout of value, because
+         of the definition of id_value at line 5, characters 13-18.
+|}];;
+
+(*************************************)
+(* Test 9: But float32 functions do. *)
+
+let twice f (x : 'a t_float32_id) = f (f x)
+
+let f9_1 () = twice f1_1 (make_t_float32 ())
+let f9_2 () = twice f1_2 (make_t_float32_id ())
+let f9_3 () = twice f1_3 (make_floatu ());;
+[%%expect{|
+val twice :
+  ('a : float32).
+    ('a t_float32_id -> 'a t_float32_id) ->
+    'a t_float32_id -> 'a t_float32_id =
+  <fun>
+val f9_1 : unit -> t_float32 t_float32_id = <fun>
+val f9_2 : ('a : float32). unit -> 'a t_float32_id = <fun>
+val f9_3 : unit -> float32# t_float32_id = <fun>
+|}];;
+
+(**************************************************)
+(* Test 10: Invalid uses of float32 and externals *)
+
+(* Valid uses of float32 in externals are tested elsewhere - this is just a test
+  for uses the typechecker should reject.  In particular
+  - if using a non-value layout in an external, you must supply separate
+    bytecode and native code implementations,
+  - if using a non-value layout in an external, you may not use the old-style
+    unboxed float directive, and
+  - [@unboxed] is allowed on unboxed types but has no effect. Same is not
+    true for [@untagged].
+*)
+
+external f10_1 : int -> bool -> float32# = "foo";;
+[%%expect{|
+Line 1, characters 0-48:
+1 | external f10_1 : int -> bool -> float32# = "foo";;
+    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+Error: The native code version of the primitive is mandatory
+       for types with non-value layouts.
+|}];;
+
+external f10_2 : t_float32 -> int = "foo";;
+[%%expect{|
+Line 1, characters 0-41:
+1 | external f10_2 : t_float32 -> int = "foo";;
+    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+Error: The native code version of the primitive is mandatory
+       for types with non-value layouts.
+|}];;
+
+external f10_3 : float32 -> t_float32  = "foo" "bar" "float";;
+[%%expect{|
+Line 1, characters 0-60:
+1 | external f10_3 : float32 -> t_float32  = "foo" "bar" "float";;
+    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+Error: Cannot use "float" in conjunction with types of non-value layouts.
+|}];;
+
+external f10_4 : int -> float32# -> float32  = "foo" "bar" "float";;
+[%%expect{|
+Line 1, characters 0-66:
+1 | external f10_4 : int -> float32# -> float32  = "foo" "bar" "float";;
+    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+Error: Cannot use "float" in conjunction with types of non-value layouts.
+|}];;
+
+external f10_5 : float32# -> bool -> string  = "foo" "bar" "float";;
+[%%expect{|
+Line 1, characters 0-66:
+1 | external f10_5 : float32# -> bool -> string  = "foo" "bar" "float";;
+    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+Error: Cannot use "float" in conjunction with types of non-value layouts.
+|}];;
+
+external f10_6 : (float32#[@unboxed]) -> bool -> string  = "foo" "bar";;
+[%%expect{|
+external f10_6 : float32# -> bool -> string = "foo" "bar"
+|}];;
+
+external f10_7 : string -> (float32#[@unboxed])  = "foo" "bar";;
+[%%expect{|
+external f10_7 : string -> float32# = "foo" "bar"
+|}];;
+
+external f10_8 : float -> float32#  = "foo" "bar" [@@unboxed];;
+[%%expect{|
+external f10_8 : (float [@unboxed]) -> float32# = "foo" "bar"
+|}];;
+
+external f10_9 : (float32#[@untagged]) -> bool -> string  = "foo" "bar";;
+[%%expect{|
+Line 1, characters 18-26:
+1 | external f10_9 : (float32#[@untagged]) -> bool -> string  = "foo" "bar";;
+                      ^^^^^^^^
+Error: Don't know how to untag this type. Only int can be untagged.
+|}];;
+
+external f10_10 : string -> (float32#[@untagged])  = "foo" "bar";;
+[%%expect{|
+Line 1, characters 29-37:
+1 | external f10_10 : string -> (float32#[@untagged])  = "foo" "bar";;
+                                 ^^^^^^^^
+Error: Don't know how to untag this type. Only int can be untagged.
+|}];;
+
+(*******************************************************)
+(* Test 11: float32 in extensible variants *)
+
+type t11_1 = ..
+
+type t11_1 += A of t_float32;;
+[%%expect{|
+type t11_1 = ..
+type t11_1 += A of t_float32
+|}]
+
+type t11_1 += B of float32#;;
+[%%expect{|
+type t11_1 += B of float32#
+|}]
+
+type ('a : float32) t11_2 = ..
+
+type 'a t11_2 += A of int
+
+type 'a t11_2 += B of 'a;;
+
+[%%expect{|
+type ('a : float32) t11_2 = ..
+type 'a t11_2 += A of int
+type 'a t11_2 += B of 'a
+|}]
+
+type t11_1 += C of t_float32 * string;;
+
+[%%expect{|
+Line 1, characters 14-37:
+1 | type t11_1 += C of t_float32 * string;;
+                  ^^^^^^^^^^^^^^^^^^^^^^^
+Error: Expected all flat constructor arguments after non-value argument,
+       t_float32, but found boxed argument, string.
+|}]
+
+(***************************************)
+(* Test 12: float32 in objects/classes *)
+
+(* First, disallowed uses: in object types, class parameters, etc. *)
+type t12_1 = < x : t_float32 >;;
+[%%expect{|
+Line 1, characters 15-28:
+1 | type t12_1 = < x : t_float32 >;;
+                   ^^^^^^^^^^^^^
+Error: Object field types must have layout value.
+       The layout of t_float32 is float32, because
+         of the definition of t_float32 at line 1, characters 0-24.
+       But the layout of t_float32 must be a sublayout of value, because
+         it's the type of an object field.
+|}];;
+
+type ('a : float32) t12_2 = < x : 'a >;;
+[%%expect{|
+Line 1, characters 34-36:
+1 | type ('a : float32) t12_2 = < x : 'a >;;
+                                      ^^
+Error: This type ('a : value) should be an instance of type ('a0 : float32)
+       The layout of 'a is float32, because
+         of the annotation on 'a in the declaration of the type t12_2.
+       But the layout of 'a must overlap with value, because
+         it's the type of an object field.
+|}]
+
+class c12_3 = object method x : t_float32 = assert false end;;
+[%%expect{|
+Line 1, characters 21-56:
+1 | class c12_3 = object method x : t_float32 = assert false end;;
+                         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+Error: The method x has type t_float32 but is expected to have type
+         ('a : value)
+       The layout of t_float32 is float32, because
+         of the definition of t_float32 at line 1, characters 0-24.
+       But the layout of t_float32 must be a sublayout of value, because
+         it's the type of an object field.
+|}];;
+
+class ['a] c12_4 = object
+  method x : 'a t_float32_id -> 'a t_float32_id = assert false
+end;;
+[%%expect{|
+Line 2, characters 13-15:
+2 |   method x : 'a t_float32_id -> 'a t_float32_id = assert false
+                 ^^
+Error: This type ('a : float32) should be an instance of type ('a0 : value)
+       The layout of 'a is value, because
+         it's a type argument to a class constructor.
+       But the layout of 'a must overlap with float32, because
+         of the definition of t_float32_id at line 2, characters 0-37.
+|}];;
+
+class c12_5 = object val x : t_float32 = assert false end;;
+[%%expect{|
+Line 1, characters 25-26:
+1 | class c12_5 = object val x : t_float32 = assert false end;;
+                             ^
+Error: Variables bound in a class must have layout value.
+       The layout of x is float32, because
+         of the definition of t_float32 at line 1, characters 0-24.
+       But the layout of x must be a sublayout of value, because
+         it's the type of a class field.
+|}];;
+
+class type c12_6 = object method x : float32# end;;
+[%%expect{|
+Line 1, characters 26-45:
+1 | class type c12_6 = object method x : float32# end;;
+                              ^^^^^^^^^^^^^^^^^^^
+Error: The method x has type float32# but is expected to have type
+         ('a : value)
+       The layout of float32# is float32, because
+         it is the primitive float32 type float32#.
+       But the layout of float32# must be a sublayout of value, because
+         it's the type of an object field.
+|}];;
+
+class type c12_7 = object val x : float32# end
+[%%expect{|
+Line 1, characters 26-42:
+1 | class type c12_7 = object val x : float32# end
+                              ^^^^^^^^^^^^^^^^
+Error: Variables bound in a class must have layout value.
+       The layout of x is float32, because
+         it is the primitive float32 type float32#.
+       But the layout of x must be a sublayout of value, because
+         it's the type of an instance variable.
+|}];;
+
+class type ['a] c12_8 = object
+  val x : 'a t_float32_id -> 'a t_float32_id
+end
+[%%expect{|
+Line 2, characters 10-12:
+2 |   val x : 'a t_float32_id -> 'a t_float32_id
+              ^^
+Error: This type ('a : float32) should be an instance of type ('a0 : value)
+       The layout of 'a is value, because
+         it's a type argument to a class constructor.
+       But the layout of 'a must overlap with float32, because
+         of the definition of t_float32_id at line 2, characters 0-37.
+|}];;
+
+(* Second, allowed uses: as method parameters / returns *)
+type t12_8 = < f : t_float32 -> t_float32 >
+let f12_9 (o : t12_8) x = o#f x
+let f12_10 o (y : t_float32) : t_float32 = o#baz y y y;;
+class ['a] c12_11 = object
+  method x : t_float32 -> 'a = assert false
+end;;
+class ['a] c12_12 = object
+  method x : 'a -> t_float32 = assert false
+end;;
+[%%expect{|
+type t12_8 = < f : t_float32 -> t_float32 >
+val f12_9 : t12_8 -> t_float32 -> t_float32 = <fun>
+val f12_10 :
+  < baz : t_float32 -> t_float32 -> t_float32 -> t_float32; .. > ->
+  t_float32 -> t_float32 = <fun>
+class ['a] c12_11 : object method x : t_float32 -> 'a end
+class ['a] c12_12 : object method x : 'a -> t_float32 end
+|}];;
+
+(* Third, another disallowed use: capture in an object. *)
+let f12_13 m1 m2 = object
+  val f = fun () ->
+    let _ = f1_1 m1 in
+    let _ = f1_1 m2 in
+    ()
+end;;
+[%%expect{|
+Line 3, characters 17-19:
+3 |     let _ = f1_1 m1 in
+                     ^^
+Error: This expression has type ('a : value)
+       but an expression was expected of type t_float32
+       The layout of t_float32 is float32, because
+         of the definition of t_float32 at line 1, characters 0-24.
+       But the layout of t_float32 must be a sublayout of value, because
+         it's the type of a variable captured in an object.
+|}];;
+
+let f12_14 (m1 : t_float32) (m2 : t_float32) = object
+  val f = fun () ->
+    let _ = f1_1 m1 in
+    let _ = f1_1 m2 in
+    ()
+end;;
+[%%expect{|
+Line 3, characters 17-19:
+3 |     let _ = f1_1 m1 in
+                     ^^
+Error: m1 must have a type of layout value because it is captured by an object.
+       The layout of t_float32 is float32, because
+         of the definition of t_float32 at line 1, characters 0-24.
+       But the layout of t_float32 must be a sublayout of value, because
+         it's the type of a variable captured in an object.
+|}];;
+
+(*********************************************************************)
+(* Test 13: Ad-hoc polymorphic operations don't work on float32 yet. *)
+
+(* CR layouts v5: Remember to handle the case of calling these on structures
+  containing other layouts. *)
+
+let f13_1 (x : t_float32) = x = x;;
+[%%expect{|
+Line 1, characters 28-29:
+1 | let f13_1 (x : t_float32) = x = x;;
+                                ^
+Error: This expression has type t_float32
+       but an expression was expected of type ('a : value)
+       The layout of t_float32 is float32, because
+         of the definition of t_float32 at line 1, characters 0-24.
+       But the layout of t_float32 must be a sublayout of value, because
+         of layout requirements from an imported definition.
+|}];;
+
+let f13_2 (x : t_float32) = compare x x;;
+[%%expect{|
+Line 1, characters 36-37:
+1 | let f13_2 (x : t_float32) = compare x x;;
+                                        ^
+Error: This expression has type t_float32
+       but an expression was expected of type ('a : value)
+       The layout of t_float32 is float32, because
+         of the definition of t_float32 at line 1, characters 0-24.
+       But the layout of t_float32 must be a sublayout of value, because
+         of layout requirements from an imported definition.
+|}];;
+
+let f13_3 (x : t_float32) = Marshal.to_bytes x;;
+[%%expect{|
+Line 1, characters 45-46:
+1 | let f13_3 (x : t_float32) = Marshal.to_bytes x;;
+                                                 ^
+Error: This expression has type t_float32
+       but an expression was expected of type ('a : value)
+       The layout of t_float32 is float32, because
+         of the definition of t_float32 at line 1, characters 0-24.
+       But the layout of t_float32 must be a sublayout of value, because
+         of layout requirements from an imported definition.
+|}];;
+
+let f13_4 (x : t_float32) = Hashtbl.hash x;;
+[%%expect{|
+Line 1, characters 41-42:
+1 | let f13_4 (x : t_float32) = Hashtbl.hash x;;
+                                             ^
+Error: This expression has type t_float32
+       but an expression was expected of type ('a : value)
+       The layout of t_float32 is float32, because
+         of the definition of t_float32 at line 1, characters 0-24.
+       But the layout of t_float32 must be a sublayout of value, because
+         of layout requirements from an imported definition.
+|}];;
+
+(***********************************************************)
+(* Test 14: unboxed float32 records work like normal records *)
+
+module FU = struct
+
+  external of_float32 : (float32[@local_opt]) -> float32# = "%unbox_float32"
+
+  external to_float32 : float32# -> (float32[@local_opt]) = "%box_float32"
+
+  external sub :
+  (float32[@local_opt]) -> (float32[@local_opt]) -> (float32[@local_opt])
+  = "%subfloat32"
+
+  external add :
+  (float32[@local_opt]) -> (float32[@local_opt]) -> (float32[@local_opt])
+  = "%addfloat32"
+
+  let[@inline always] sub x y = of_float32 (sub (to_float32 x) (to_float32 y))
+
+  let[@inline always] add x y = of_float32 (add (to_float32 x) (to_float32 y))
+end
+
+type t14_1 = { x : float32#; y : float32# }
+
+(* pattern matching *)
+let f14_1 {x;y} = FU.sub x y
+
+(* construction *)
+let r14 = { x = #3.14s; y = #2.72s }
+
+let sum14_1 = FU.to_float32 (f14_1 r14)
+
+(* projection *)
+let f14_2 ({y;_} as r) = FU.sub r.x y
+
+let sum14_2 = FU.to_float32 (f14_1 r14)
+
+type t14_2 = { mutable a : float32#; b : float32#; mutable c : float32# }
+
+let f14_3 ({b; c; _} as r) =
+  (* pure record update *)
+  let r' = { r with b = #20.0s; c = r.a } in
+  (* mutation *)
+  r.a <- FU.sub r.a r'.b;
+  r'.a <- #42.0s;
+  r'
+
+let a, b, c, a', b', c' =
+  let r = {a = #3.1s; b = -#0.42s; c = #27.7s } in
+  let r' = f14_3 r in
+  FU.to_float32 r.a,
+  FU.to_float32 r.b,
+  FU.to_float32 r.c,
+  FU.to_float32 r'.a,
+  FU.to_float32 r'.b,
+  FU.to_float32 r'.c
+
+let f14_4 r =
+  let {x; y} = r in
+  FU.add x y
+
+
+[%%expect{|
+module FU :
+  sig
+    external of_float32 : (float32 [@local_opt]) -> float32#
+      = "%unbox_float32"
+    external to_float32 : float32# -> (float32 [@local_opt]) = "%box_float32"
+    val sub : float32# -> float32# -> float32#
+    val add : float32# -> float32# -> float32#
+  end
+type t14_1 = { x : float32#; y : float32#; }
+val f14_1 : t14_1 -> float32# = <fun>
+val r14 : t14_1 = {x = <abstr>; y = <abstr>}
+val sum14_1 : float32 = 0.420000076s
+val f14_2 : t14_1 -> float32# = <fun>
+val sum14_2 : float32 = 0.420000076s
+type t14_2 = { mutable a : float32#; b : float32#; mutable c : float32#; }
+val f14_3 : t14_2 -> t14_2 = <fun>
+val a : float32 = -16.8999996s
+val b : float32 = -0.419999987s
+val c : float32 = 27.7000008s
+val a' : float32 = 42.s
+val b' : float32 = 20.s
+val c' : float32 = 3.0999999s
+val f14_4 : t14_1 -> float32# = <fun>
+|}]
diff --git a/ocaml/testsuite/tests/typing-layouts-float32/parsing.ml b/ocaml/testsuite/tests/typing-layouts-float32/parsing.ml
index f367fdff257..8d1b87d7266 100644
--- a/ocaml/testsuite/tests/typing-layouts-float32/parsing.ml
+++ b/ocaml/testsuite/tests/typing-layouts-float32/parsing.ml
@@ -3,9 +3,6 @@
  {
    flags = "-extension layouts_beta -extension small_numbers";
    expect;
- }{
-   flags = "-extension small_numbers";
-   expect;
  }
 *)
 
@@ -23,20 +20,12 @@ val f : float32# -> unit = <fun>
 
 type t = C of float32#;;
 [%%expect {|
-Line 1, characters 9-22:
-1 | type t = C of float32#;;
-             ^^^^^^^^^^^^^
-Error: Type float32# has layout float32.
-       Structures with non-value elements may not yet contain types of this layout.
+type t = C of float32#
 |}];;
 
 type t = C : float32# -> t;;
 [%%expect {|
-Line 1, characters 9-26:
-1 | type t = C : float32# -> t;;
-             ^^^^^^^^^^^^^^^^^
-Error: Type float32# has layout float32.
-       Structures with non-value elements may not yet contain types of this layout.
+type t = C : float32# -> t
 |}];;
 
 (* float32# works as an argument to normal type constructors, not just classes,
diff --git a/ocaml/testsuite/tests/typing-layouts-float32/unboxed_float32s.ml b/ocaml/testsuite/tests/typing-layouts-float32/unboxed_float32s.ml
new file mode 100644
index 00000000000..8163080daf6
--- /dev/null
+++ b/ocaml/testsuite/tests/typing-layouts-float32/unboxed_float32s.ml
@@ -0,0 +1,872 @@
+(* TEST
+ reference = "${test_source_directory}/unboxed_float32s.reference";
+ include beta;
+ flambda2;
+ {
+   flags = "-extension layouts_alpha -extension small_numbers";
+   native;
+ }{
+   flags = "-extension layouts_alpha -extension small_numbers";
+   bytecode;
+ }{
+   flags = "-extension layouts_beta -extension small_numbers";
+   native;
+ }{
+   flags = "-extension layouts_beta -extension small_numbers";
+   bytecode;
+ }
+*)
+
+(* CR layouts v2.6: Layouts should be erasable and we can remove the
+   only-erasable-extensions stanza above. *)
+
+(* mshinwell: This test is now only run with flambda2, as the corresponding
+   ocamltest predicate is reliable for testing whether this is an
+   flambda-backend build. *)
+
+(* This file contains various tests for float32#.  It's not an expect test to make
+   sure it gets tested for native code. *)
+
+(* CR layouts v2.5: When unboxed literals work, change this file to use them
+   instead of [of_float] on boxed literals everywhere. *)
+
+(*****************************************)
+(* Prelude: Functions on unboxed floats. *)
+
+module Float32 = struct
+  include Beta.Float32
+
+  let ( + ) = add
+  let ( - ) = sub
+  let ( * ) = mul
+  let ( / ) = div
+  let ( ** ) = pow
+  let ( > ) x y = (compare x y) > 0
+end
+
+module Float32_u = struct
+  include Beta.Float32_u
+
+  let ( + ) = add
+  let ( - ) = sub
+  let ( * ) = mul
+  let ( / ) = div
+  let ( ** ) = pow
+  let ( > ) x y = (compare x y) > 0
+end
+
+(*********************************)
+(* Test 1: some basic arithmetic *)
+
+let print_floatu prefix x = Printf.printf "%s: %.2f\n" prefix (Float32.to_float (Float32_u.to_float32 x))
+let print_float prefix x = Printf.printf "%s: %.2f\n" prefix (Float32.to_float x)
+let print_int prefix x = Printf.printf "%s: %d\n" prefix x
+
+(* Tests all the operators above *)
+let test1 () =
+  (* CR layouts: When float32 defs are allowed at the module level, get rid of
+     [test1] and move these definitions there. *)
+  let open Float32_u in
+  let pi = #3.14s in
+  print_floatu "Test 1, pi" pi;
+
+  let twice_pi = pi + #3.14s in
+  print_floatu "Test 1, twice_pi" twice_pi;
+
+  let thrice_pi = #3.0s * pi in
+  print_floatu "Test 1, thrice_pi" thrice_pi;
+
+  let twice_pi_again = thrice_pi - pi in
+  print_floatu "Test 1, twice_pi_again" twice_pi;
+
+  let pi_again = twice_pi_again / #2.0s in
+  print_floatu "Test 1, pi_again" pi_again;
+
+  let twice_pi_to_the_pi = twice_pi ** pi in
+  print_floatu "Test 1, twice_pi_to_the_pi" twice_pi_to_the_pi;
+
+  let twice_pi_greater_than_pi = twice_pi > pi in
+  Printf.printf "Test 1, twice_pi_greater_than_pi: %b\n"
+    twice_pi_greater_than_pi;
+
+  let pi_with_effort =
+    (#3.14s + twice_pi) * #2.0s / #6.0s in
+  print_floatu "Test 1, pi_with_effort" pi_with_effort
+
+let _ = test1 ()
+
+(**********************************)
+(* Test 2: higher-order functions *)
+
+(* CR layouts v1.5: This type definition can be eliminated once we have
+   annotations. *)
+type ('a : float32) t_float32 = 'a
+
+let[@inline never] twice f (x : 'a t_float32) = f (f x)
+let[@inline never] compose f g (x : 'a t_float32) = f (g x)
+
+let[@inline never] twice_on_pi f =
+  let pi = #3.14s in
+  twice f pi
+
+let times_four = twice Float32_u.(fun x -> x * #2.0s)
+
+let _ =
+  let open Float32_u in
+  print_floatu "Test 2, add pi twice"
+    (twice (fun x -> x + #3.14s) #0.0s);
+  print_floatu "Test 2, add pi four times"
+    (twice (twice (fun x -> x + #3.14s)) #0.0s);
+  print_floatu "Test 2, increment pi twice"
+    (twice_on_pi (fun x -> #1.0s + x));
+  print_floatu "Test 2, increment pi four times"
+    (twice_on_pi (twice (fun x -> #1.0s + x)));
+  print_floatu "Test 2, e times four"
+    (times_four #2.72s);
+  print_floatu "Test 2, pi times sixteen"
+    (twice_on_pi times_four);
+  print_floatu "Test 2, pi times sixteen again"
+    (compose times_four times_four #3.14s);
+  print_floatu "Test 2, pi minus four"
+    (let two = twice (fun x -> x + #1.0s) #0.0s in
+     let add_two = Float32_u.(+) two in
+     let add_two_after = compose add_two in
+     let minus_four = add_two_after (twice (fun x -> x - #3.0s)) in
+     minus_four #3.14s)
+
+(******************************)
+(* Test 3: float32# in closures *)
+
+(* [go]'s closure should haave an [int] (immediate), a [float32#] (float32) and a
+   [float array] (value). *)
+let[@inline never] f3 n m steps () =
+  let[@inline never] rec go k =
+    if k = n
+    then #0.s
+    else begin
+      let acc = go (k + 1) in
+      steps.(k) <- Float32_u.to_float32 acc;
+      Float32_u.(+) m acc
+    end
+  in
+  go 0
+
+(* many args - even args are tuples, odd args are unboxed floats *)
+let[@inline_never] f3_manyargs x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 steps () =
+  let (start_k, end_k) = x0 in
+  let[@inline never] rec go k =
+    if k = end_k
+    then #0.s
+    else begin
+      let (x2_1, x2_2) = x2 in
+      let (x4_1, x4_2) = x4 in
+      let (x6_1, x6_2) = x6 in
+      let (x8_1, x8_2) = x8 in
+      let sum = x2_1 + x2_2 + x4_1 + x4_2 + x6_1 + x6_2 + x8_1 + x8_2 in
+      let acc = go (k + 1) in
+      steps.(k) <- Float32_u.to_float32 acc;
+      Float32_u.(acc + ((x1 + x3 + x5 + x7 + x9) * (of_float32 (Float32.of_int sum))))
+    end
+  in
+  go start_k
+
+let test3 () =
+  (* Test f3 *)
+  let steps = Array.init 10 (fun _ -> 0.0s) in
+  let five_pi = f3 5 #3.14s steps in
+  print_floatu "Test 3, 5 * pi: " (five_pi ());
+  Array.iteri (fun i f -> Printf.printf "  Test 3, step %d: %.2f\n" i (Float32.to_float f)) steps;
+
+  (* Test f3_manyargs
+
+          (3.14 + 2.72 + 1.62 + 1.41 + 42.0) = 50.86
+      3 * (3.14 + 2.72 + 1.62 + 1.41 + 42.0) = 152.58
+      6 * (3.14 + 2.72 + 1.62 + 1.41 + 42.0) = 306.16
+      9 * (3.14 + 2.72 + 1.62 + 1.41 + 42.0) = 457.74
+
+    ( but we expect some floating point error )
+  *)
+  let steps = Array.init 10 (fun _ -> 0.0s) in
+  let x1 = #3.14s in
+  let x3 = #2.72s in
+  let x5 = #1.62s in
+  let x7 = #1.41s in
+  let x9 = #42.0s in
+
+  (* these sum to 3 *)
+  let x2 = (7, 42) in
+  let x4 = (-23, 109) in
+  let x6 = (-242, 90) in
+  let x8 = (-2, 22) in
+
+  let f3_manyargs = f3_manyargs (4,8) x1 x2 x3 x4 x5 x6 x7 x8 x9 steps in
+  print_floatu "Test 3, 610.68: " (f3_manyargs ());
+  Array.iteri (fun i f -> Printf.printf "  Test 3, step %d: %.2f\n" i (Float32.to_float f)) steps
+
+let _ = test3 ()
+
+(*********************************************)
+(* Test 4: Partial and indirect applications *)
+
+let[@inline never] test4 () =
+  (* Simple indirect call *)
+  let[@inline never] go f =
+    Float32_u.to_float32 (f #1.s #2.s)
+  in
+  let (x1, x2) = (go Float32_u.(+), go Float32_u.(-)) in
+  print_floatu "Test 4, 1 + 2" (Float32_u.of_float32 x1);
+  print_floatu "Test 4, 1 - 2" (Float32_u.of_float32 x2);
+
+  (* partial application to float32# *)
+  let steps = Array.init 10 (fun _ -> 0.0s) in
+  let f = Sys.opaque_identity (f3 5 #3.14s) in
+  let five_pi = f steps in
+  print_floatu "Test 4, 5 * pi: " (five_pi ());
+  Array.iteri (fun i f -> Printf.printf "  Test 4, step %d: %.2f\n" i (Float32.to_float f)) steps;
+
+  (* partial application with float32# remaining *)
+  let steps = Array.init 10 (fun _ -> 0.0s) in
+  let f = Sys.opaque_identity (f3 6) in
+  let five_pi = f #3.14s steps in
+  print_floatu "Test 4, 6 * pi: " (five_pi ());
+  Array.iteri (fun i f -> Printf.printf "  Test 4, step %d: %.2f\n" i (Float32.to_float f)) steps;
+
+  (* Those two tests again, but making f3 also opaque to prevent expansion of
+     the partial application. *)
+  let f3 = Sys.opaque_identity f3 in
+
+  let steps = Array.init 10 (fun _ -> 0.0s) in
+  let f = Sys.opaque_identity (f3 5 #3.14s) in
+  let five_pi = f steps in
+  print_floatu "Test 4, 5 * pi: " (five_pi ());
+  Array.iteri (fun i f -> Printf.printf "  Test 4, step %d: %.2f\n" i (Float32.to_float f)) steps;
+
+  let steps = Array.init 10 (fun _ -> 0.0s) in
+  let f = Sys.opaque_identity (f3 6) in
+  let five_pi = f #3.14s steps in
+  print_floatu "Test 4, 6 * pi: " (five_pi ());
+  Array.iteri (fun i f -> Printf.printf "  Test 4, step %d: %.2f\n" i (Float32.to_float f)) steps
+
+let _ = test4 ()
+
+(****************************)
+(* Test 5: Over application *)
+
+let[@inline never] f5 n m =
+  let open Float32_u in
+  (* Also testing a closure with only float32# values *)
+  let[@inline never] go f =
+    f (n + m)
+  in
+  go
+
+let test5 () =
+  let open Float32_u in
+  let _ : unit =
+    f5 #3.14s #2.72s
+      (fun n s m -> print_floatu s (n + m)) "Test 5, pi+e+1"
+      #1.0s
+  in
+  ()
+
+let _ = test5 ()
+
+(*****************************)
+(* Test 6: methods on floats *)
+
+(* CR layouts: add tests that capture floats in objects, once that is
+   allowed. *)
+
+(* float32# args and returns *)
+let f6_1 () = object
+  method f6_m1 f1 f2 f3 =
+    let open Float32_u in
+    (f1 - f2) / f3
+end
+
+(* capture a pair, recursion *)
+let f6_2 n = object(self)
+  method f6_m2 n3 m1 f =
+    if n3 = ((Sys.opaque_identity fst) n) + ((Sys.opaque_identity snd) n) then
+      m1
+    else f (self#f6_m2 (n3+1) m1 f)
+end
+
+(* overapplication to float32# and non-float32# args *)
+let f6_3 n k = object
+  method f6_m3 n3 m1 f =
+    let n = ((Sys.opaque_identity fst) n) + ((Sys.opaque_identity snd) n) in
+    f (n + k + n3) m1
+end
+
+let test6 () =
+  let add3 n (m, k) = n + m + k in
+  let open Float32_u in
+
+  (* (3.14 - 2.72) / 2.5 = ~0.17 *)
+  let o = (Sys.opaque_identity f6_1) () in
+  print_floatu "Test 6, 0.17"
+    (o#f6_m1 #3.14s #2.72s #2.5s);
+
+  (* 4.25 * 8 = 34 *)
+  let o = (Sys.opaque_identity f6_2) (4,7) in
+  let result = o#f6_m2 8 #4.25s (fun x -> x * #2.s) in
+  print_floatu "Test 6, 34.00" result;
+
+  (* (1 + 2 + 3 + (-2) + (-12) + 4) * (2.72 + (-1) + 10) = -46.88 *)
+  let o = (Sys.opaque_identity f6_3) (1,2) 3 in
+  let result =
+    o#f6_m3 (-2) (#2.72s)
+      (fun[@inline never] i m1 m2 n m3 ->
+         (of_float32 (Float32.of_int (add3 i n))) * (m1 + m2 + m3))
+      (-#1.s) (-12,4) (#10.s)
+  in
+  print_floatu "Test 6, -46.88" result
+
+let _ = test6 ()
+
+(*****************************)
+(* Test 7: letop with floats *)
+
+let ( let* ) x f = f Float32_u.(x + #1.5s)
+
+let _ =
+  let* x = #42.0s in
+  print_floatu "Test 7, 36.50" Float32_u.(x - #7.0s)
+
+let ( let* ) x (f : _ -> float32#) = f x
+let ( and* ) x y = Float32_u.(x, to_float32 (y - #1.2s))
+let _ =
+  let result =
+    let* x = 42.0s
+    and* y = #3.3s
+    and* z = -#10.7s in
+    Float32_u.of_float32 Float32.(x + y + z)
+  in
+  print_floatu "Test 7, 32.20" result
+
+(********************************)
+(* Test 8: basic float32# records *)
+
+(* Copy of test 3, but the float args are in a record *)
+type manyargs = { x1 : float32#; x3 : float32#; x5 : float32#; x7: float32#; x9: float32# }
+
+(* Get some float32# args by pattern matching and others by projection *)
+let[@inline_never] f8 x0 x2 x4 x6 x8 steps ({ x1; x5; _ } as fargs) () =
+  let (start_k, end_k) = x0 in
+  let[@inline never] rec go k =
+    if k = end_k
+    then #0.s
+    else begin
+      let (x2_1, x2_2) = x2 in
+      let (x4_1, x4_2) = x4 in
+      let (x6_1, x6_2) = x6 in
+      let (x8_1, x8_2) = x8 in
+      let sum = x2_1 + x2_2 + x4_1 + x4_2 + x6_1 + x6_2 + x8_1 + x8_2 in
+      let acc = go (k + 1) in
+      steps.(k) <- Float32_u.to_float32 acc;
+      Float32_u.(acc + ((x1 + fargs.x3 + x5 + fargs.x7 + fargs.x9)
+                      * (of_float32 (Float32.of_int sum))))
+    end
+  in
+  go start_k
+
+let test8 () =
+  (* same math as f3_manyargs *)
+  let steps = Array.init 10 (fun _ -> 0.0s) in
+  let x1 = #3.14s in
+  let x3 = #2.72s in
+  let x5 = #1.62s in
+  let x7 = #1.41s in
+  let x9 = #42.0s in
+
+  (* these sum to 3 *)
+  let x2 = (7, 42) in
+  let x4 = (-23, 109) in
+  let x6 = (-242, 90) in
+  let x8 = (-2, 22) in
+
+  let fargs = { x1; x3; x5; x7; x9 } in
+
+  let f8 = f8 (4,8) x2 x4 x6 x8 steps fargs in
+  print_floatu "Test 8, 610.68: " (f8 ());
+  Array.iteri (fun i f -> Printf.printf "  Test 8, step %d: %.2f\n" i (Float32.to_float f)) steps
+
+let _ = test8 ()
+
+(**************************************)
+(* Test 9: float32# record manipulation *)
+
+type t9 = { a : float32#;
+            mutable b : float32#;
+            c : float32#;
+            mutable d : float32# }
+
+(* Construction *)
+let t9_1 = { a = #3.14s;
+             b = #2.72s;
+             c = #1.62s;
+             d = #1.41s }
+
+let t9_2 = { a = -#3.14s;
+             b = -#2.72s;
+             c = -#1.62s;
+             d = -#1.41s }
+
+let print_t9 t9 =
+  print_floatu "  a" t9.a;
+  print_floatu "  b" t9.b;
+  print_floatu "  c" t9.c;
+  print_floatu "  d" t9.d
+
+let _ =
+  Printf.printf "Test 9, construction:\n";
+  print_t9 t9_1;
+  print_t9 t9_2
+
+(* Matching, projection *)
+let f9_1 {c; d; _} r =
+  match r with
+  | { a; _ } ->
+    Float32_u. { a = c;
+               b = a - d;
+               c = r.c + c;
+               d = d - r.b }
+
+let _ =
+  Printf.printf "Test 9, matching and projection:\n";
+  print_t9 (f9_1 t9_1 t9_2)
+
+(* Record update and mutation *)
+let f9_2 ({a; d; _} as r1) r2 =
+  r1.d <- #42.0s;
+  let r3 = { r2 with c = r1.d; d = #25.0s } in
+  r3.b <- Float32_u.(a + d);
+  r2.b <- #17.0s;
+  r3
+
+let _ =
+  Printf.printf "Test 9, record update and mutation:\n";
+  let t9_3 = f9_2 t9_1 t9_2 in
+  print_t9 t9_1;
+  print_t9 t9_2;
+  print_t9 t9_3
+
+(***********************************************)
+(* Test 10: float32# records in recursive groups *)
+
+let rec f r =
+  r.d <- t10_1.b;
+  t10_2.b <- #42.0s;
+  Float32_u.(r.a + t10_2.a)
+
+
+and t10_1 = { a = #1.1s;
+              b = #2.2s;
+              c = #3.2s;
+              d = #4.4s }
+
+and t10_2 = { a = -#5.1s;
+              b = -#6.2s;
+              c = -#7.3s;
+              d = -#8.4s }
+
+let _ =
+  Printf.printf "Test 10, float32# records in recursive groups.\n";
+  print_t9 t10_1;
+  print_t9 t10_2;
+  let result = f t10_1 in
+  print_floatu "  result (-4.00)" result;
+  print_t9 t10_1;
+  print_t9 t10_2
+
+(***********************************************)
+(* Test 11: Heterogeneous polymorphic equality *)
+
+(* Not supported for float32 blocks; they are always mixed. *)
+
+(*************************************************)
+(* Test 12: If-then-else with float32 and assert *)
+
+let _ =
+  let a = if Sys.opaque_identity true then #1.s else assert false in
+  Printf.printf "Test 12, If-then-else with assert and float32.\n";
+  print_floatu "  result (1.00)" a
+
+(*************************************************)
+(* Test 13: basic float32 + float32# records *)
+
+(* Same as test 13 for floats, but boxed float32s have to be in the prefix. *)
+
+type mixed_float32_record =
+  { x2_1 : float32;
+    x4_1 : float32;
+    x6_1 : float32;
+    x8_1 : float32;
+    x1 : float32#;
+    x3 : float32#;
+    x5 : float32#;
+    x7 : float32#;
+    x9 : float32# }
+
+type int_args =
+  { x0_1 : int;
+    x0_2 : int;
+    x2_2 : int;
+    x4_2 : int;
+    x6_2 : int;
+    x8_2 : int;
+  }
+
+(* Get some float32# args by pattern matching and others by projection *)
+let[@inline_never] f13 steps ({ x1; x8_1; x5; x6_1 } as fargs)
+  ({ x0_1=start_k; x0_2=end_k; x4_2; x8_2 } as iargs) () =
+  let[@inline never] rec go k =
+    if k = end_k
+    then Float32_u.of_float32 0.s
+    else begin
+      let (x2_1, x2_2) = (fargs.x2_1, iargs.x2_2) in
+      let {x4_1; _}, {x6_2; _} = fargs, iargs in
+      let sum =
+        Float32_u.(of_float32 x2_1 + of_int x2_2 + of_float32 x4_1 + of_int x4_2
+                 + of_float32 x6_1 + of_int x6_2 + of_float32 x8_1 + of_int x8_2)
+      in
+      let acc = go (k + 1) in
+      steps.(k) <- Float32_u.to_float32 acc;
+      Float32_u.(acc + ((x1 + fargs.x3 + x5 + fargs.x7 + fargs.x9)
+                      * sum))
+    end
+  in
+  go start_k
+
+let test13 () =
+  (* same math as f3_manyargs *)
+  let steps = Array.init 10 (fun _ -> 0.0s) in
+  let x1 = Float32_u.of_float32 3.14s in
+  let x3 = Float32_u.of_float32 2.72s in
+  let x5 = Float32_u.of_float32 1.62s in
+  let x7 = Float32_u.of_float32 1.41s in
+  let x9 = Float32_u.of_float32 42.0s in
+
+  (* these sum to 3.0 *)
+  let x2_1 = 6.6s in
+  let x2_2 = 42 in
+  let x4_1 = -22.9s in
+  let x4_2 = 109 in
+  let x6_1 = -241.2s in
+  let x6_2 = 90 in
+  let x8_1 = -2.5s in
+  let x8_2 = 22 in
+
+  let fargs =
+    { x1; x2_1; x3; x4_1; x5; x6_1; x7;
+      x8_1; x9; }
+  in
+  let iargs = { x0_1 = 4; x0_2 = 8; x2_2; x4_2; x6_2; x8_2 } in
+
+  let f13 = f13 steps fargs iargs in
+  print_floatu "Test 13, 610.68: " (f13 ());
+  Array.iteri (fun i f -> Printf.printf "  Test 13, step %d: %.2f\n" i (Float32.to_float f)) steps
+
+let _ = test13 ()
+
+(*****************************************************)
+(* Test 14: (float32# + float32) record manipulation *)
+
+(* Same as test 14 for floats, but boxed float32s have to be in the prefix. *)
+
+type t14 = { mutable b : float32;
+             e : float32;
+             a : float32#;
+             c : float32#;
+             mutable d : float32#;
+             mutable f : float32# }
+
+(* Construction *)
+let t14_1 = { a = Float32_u.of_float32 3.14s;
+              b = 13.s;
+              c = Float32_u.of_float32 7.31s;
+              d = Float32_u.of_float32 1.41s;
+              e = 6.s;
+              f = Float32_u.of_float32 27.1s
+            }
+
+let t14_2 = { a = Float32_u.of_float32 (-3.14s);
+              b = -13.s;
+              c = Float32_u.of_float32 (-7.31s);
+              d = Float32_u.of_float32 (-1.41s);
+              e = -6.s;
+              f = Float32_u.of_float32 (-27.1s)
+            }
+
+let print_t14 t14 =
+  print_floatu "  a" t14.a;
+  print_float "  b" t14.b;
+  print_floatu "  c" t14.c;
+  print_floatu "  d" t14.d;
+  print_float "  e" t14.e;
+  print_floatu "  f" t14.f
+
+let _ =
+  Printf.printf "Test 14, construction:\n";
+  print_t14 t14_1;
+  print_t14 t14_2
+
+(* Matching, projection *)
+let f14_1 {c; d; f; _} r =
+  match r with
+  | { a; _ } ->
+    { a = (Float32_u.of_float32 r.e);
+      b = Float32_u.(to_float32 (a - d));
+      c = Float32_u.(r.c + c);
+      d = Float32_u.(d - (of_float32 r.b));
+      e = Float32_u.(to_float32 (f + (of_float32 r.e)));
+      f = r.f}
+
+let _ =
+  Printf.printf "Test 14, matching and projection:\n";
+  print_t14 (f14_1 t14_1 t14_2)
+
+(* Record update and mutation *)
+let f14_2 ({a; d; _} as r1) r2 =
+  r1.d <- Float32_u.of_float32 42.0s;
+  let r3 = { r2 with c = r1.d;
+                     d = Float32_u.of_float32 25.0s }
+  in
+  r3.b <- Float32_u.(to_float32 (a + d));
+  r2.b <- 17.s;
+  r1.f <- r2.c;
+  r3
+
+let _ =
+  Printf.printf "Test 14, record update and mutation:\n";
+  let t14_3 = f14_2 t14_1 t14_2 in
+  print_t14 t14_1;
+  print_t14 t14_2;
+  print_t14 t14_3
+
+(*************************************************************)
+(* Test 15: (float32# + float32) records in recursive groups *)
+
+let rec f r =
+  r.d <- Float32_u.of_float32 t15_1.b;
+  t15_2.b <- 42.s;
+  t15_1.f <- t15_1.a;
+  Float32_u.(r.a + t15_2.a)
+
+
+and t15_1 = { a = Float32_u.of_float32 1.1s;
+              b = 2.s;
+              c = Float32_u.of_float32 3.3s;
+              d = Float32_u.of_float32 4.4s;
+              e = 5.s;
+              f = Float32_u.of_float32 6.6s}
+
+and t15_2 = { a = Float32_u.of_float32 (- 5.1s);
+              b = -6.s;
+              c = Float32_u.of_float32 (-7.3s);
+              d = Float32_u.of_float32 (-8.4s);
+              e = -9.s;
+              f = Float32_u.of_float32 (-10.6s) }
+
+let _ =
+  Printf.printf "Test 15, (float32#+float32) records in recursive groups:\n";
+  print_t14 t15_1;
+  print_t14 t15_2;
+  let result = f t15_1 in
+  print_floatu "  result (-4.00)" result;
+  print_t14 t15_1;
+  print_t14 t15_2
+
+let dummy = "dummy"
+
+(*************************************************)
+(* Test 16: basic mixed records involving float32# *)
+
+type mixedargs = { x2_1 : float32;
+                   x4_1 : float32;
+                   x6_1 : float32;
+                   x8_1 : float32;
+                   (* We include the string field to document more plainly that
+                      the preceding section of [float32] fields are boxed.
+                      Without the [str] field, an implementation of mixed blocks
+                      could more conceivably unbox the [float32] fields.
+                   *)
+                   dummy : string;
+                   x0_1 : int;
+                   x0_2 : int;
+                   x1 : float32#;
+                   x2_2 : int;
+                   x3 : float32#;
+                   x4_2 : int;
+                   x5 : float32#;
+                   x6_2 : int;
+                   x7 : float32#;
+                   x8_2 : int;
+                   x9 : float32# }
+
+(* Get some float32# args by pattern matching and others by projection *)
+let[@inline_never] f16 steps ({ x1; x0_1=start_k; x0_2=end_k; x8_1; x8_2; x5;
+                               x6_1; x6_2 } as fargs) () =
+  let[@inline never] rec go k =
+    if k = end_k
+    then Float32_u.of_float32 0.s
+    else begin
+      let (x2_1, x2_2) = (fargs.x2_1, fargs.x2_2) in
+      let {x4_1; x4_2; _} = fargs in
+      let sum =
+        Float32_u.(of_float32 x2_1 + of_int x2_2 + of_float32 x4_1 + of_int x4_2
+                 + of_float32 x6_1 + of_int x6_2 + of_float32 x8_1 + of_int x8_2)
+      in
+      let acc = go (k + 1) in
+      steps.(k) <- Float32_u.to_float32 acc;
+      Float32_u.(acc + ((x1 + fargs.x3 + x5 + fargs.x7 + fargs.x9)
+                      * sum))
+    end
+  in
+  go start_k
+
+let test16 () =
+  (* same math as f3_manyargs *)
+  let steps = Array.init 10 (fun _ -> 0.0s) in
+  let x1 = Float32_u.of_float32 3.14s in
+  let x3 = Float32_u.of_float32 2.72s in
+  let x5 = Float32_u.of_float32 1.62s in
+  let x7 = Float32_u.of_float32 1.41s in
+  let x9 = Float32_u.of_float32 42.0s in
+
+  (* these sum to 3.0 *)
+  let x2_1 = 6.6s in
+  let x2_2 = 42 in
+  let x4_1 = -22.9s in
+  let x4_2 = 109 in
+  let x6_1 = -241.2s in
+  let x6_2 = 90 in
+  let x8_1 = -2.5s in
+  let x8_2 = 22 in
+
+  let fargs =
+    { x0_1 = 4; x0_2 = 8; x1; x2_1; x2_2; x3; x4_1; x4_2; x5; x6_1; x6_2; x7;
+      x8_1; x8_2; x9;
+      dummy }
+  in
+
+  let f16 = f16 steps fargs in
+  print_floatu "Test 16, 610.68: " (f16 ());
+  Array.iteri (fun i f -> Printf.printf "  Test 16, step %d: %.2f\n" i (Float32.to_float f)) steps
+
+let _ = test16 ()
+
+(*****************************************************)
+(* Test 17: mixed record manipulation *)
+
+type t17 = { a : float32;
+            dummy : string;
+             mutable b : int;
+             c : float32#;
+             mutable d : float32#;
+             e : int;
+             mutable f : float32# }
+
+(* Construction *)
+let t17_1 = { a = 3.17s;
+              b = 13;
+              c = Float32_u.of_float32 7.31s;
+              d = Float32_u.of_float32 1.41s;
+              e = 6;
+              f = Float32_u.of_float32 27.1s;
+              dummy;
+            }
+
+let t17_2 = { a = (-3.17s);
+              b = -13;
+              c = Float32_u.of_float32 (-7.31s);
+              d = Float32_u.of_float32 (-1.41s);
+              e = -6;
+              f = Float32_u.of_float32 (-27.1s);
+              dummy;
+            }
+
+let print_t17 t17 =
+  print_float "  a" t17.a;
+  print_int "  b" t17.b;
+  print_floatu "  c" t17.c;
+  print_floatu "  d" t17.d;
+  print_int "  e" t17.e;
+  print_floatu "  f" t17.f
+
+let _ =
+  Printf.printf "Test 17, construction:\n";
+  print_t17 t17_1;
+  print_t17 t17_2
+
+(* Matching, projection *)
+let f17_1 {c; d; f; _} r =
+  match r with
+  | { a; _ } ->
+    { a = Float32.of_int r.e;
+      b = Float32_u.(to_int (of_float32 a - d));
+      c = Float32_u.(r.c + c);
+      d = Float32_u.(d - (of_int r.b));
+      e = Float32_u.(to_int (f + (of_int r.e)));
+      f = r.f;
+      dummy}
+
+let _ =
+  Printf.printf "Test 17, matching and projection:\n";
+  print_t17 (f17_1 t17_1 t17_2)
+
+(* Record update and mutation *)
+let f17_2 ({a; d; _} as r1) r2 =
+  r1.d <- Float32_u.of_float32 42.0s;
+  let r3 = { r2 with c = r1.d;
+                     d = Float32_u.of_float32 25.0s }
+  in
+  r3.b <- Float32_u.(to_int (of_float32 a + d));
+  r2.b <- 17;
+  r1.f <- r2.c;
+  r3
+
+let _ =
+  Printf.printf "Test 17, record update and mutation:\n";
+  let t17_3 = f17_2 t17_1 t17_2 in
+  print_t17 t17_1;
+  print_t17 t17_2;
+  print_t17 t17_3
+
+(************************************************************)
+(* Test 18: (float32# + immediate) records in recursive groups *)
+
+let rec f r =
+  r.d <- Float32_u.of_int t18_1.b;
+  t18_2.b <- 42;
+  t18_1.f <- Float32_u.of_float32 t18_1.a;
+  Float32_u.(of_float32 r.a + of_float32 t18_2.a)
+
+
+and t18_1 = { a = 1.1s;
+              b = 2;
+              c = Float32_u.of_float32 3.3s;
+              d = Float32_u.of_float32 4.4s;
+              e = 5;
+              f = Float32_u.of_float32 6.6s;
+              dummy;
+  }
+
+and t18_2 = { a = (- 5.1s);
+              b = -6;
+              c = Float32_u.of_float32 (-7.3s);
+              d = Float32_u.of_float32 (-8.4s);
+              e = -9;
+              f = Float32_u.of_float32 (-10.6s);
+              dummy;
+            }
+
+let _ =
+  Printf.printf "Test 18, (float32#+imm) records in recursive groups:\n";
+  print_t17 t18_1;
+  print_t17 t18_2;
+  let result = f t18_1 in
+  print_floatu "  result (-4.00)" result;
+  print_t17 t18_1;
+  print_t17 t18_2
diff --git a/ocaml/testsuite/tests/typing-layouts-float32/unboxed_float32s.reference b/ocaml/testsuite/tests/typing-layouts-float32/unboxed_float32s.reference
new file mode 100644
index 00000000000..76431aaaba4
--- /dev/null
+++ b/ocaml/testsuite/tests/typing-layouts-float32/unboxed_float32s.reference
@@ -0,0 +1,300 @@
+Test 1, pi: 3.14
+Test 1, twice_pi: 6.28
+Test 1, thrice_pi: 9.42
+Test 1, twice_pi_again: 6.28
+Test 1, pi_again: 3.14
+Test 1, twice_pi_to_the_pi: 320.33
+Test 1, twice_pi_greater_than_pi: true
+Test 1, pi_with_effort: 3.14
+Test 2, add pi twice: 6.28
+Test 2, add pi four times: 12.56
+Test 2, increment pi twice: 5.14
+Test 2, increment pi four times: 7.14
+Test 2, e times four: 10.88
+Test 2, pi times sixteen: 50.24
+Test 2, pi times sixteen again: 50.24
+Test 2, pi minus four: -0.86
+Test 3, 5 * pi: : 15.70
+  Test 3, step 0: 12.56
+  Test 3, step 1: 9.42
+  Test 3, step 2: 6.28
+  Test 3, step 3: 3.14
+  Test 3, step 4: 0.00
+  Test 3, step 5: 0.00
+  Test 3, step 6: 0.00
+  Test 3, step 7: 0.00
+  Test 3, step 8: 0.00
+  Test 3, step 9: 0.00
+Test 3, 610.68: : 610.68
+  Test 3, step 0: 0.00
+  Test 3, step 1: 0.00
+  Test 3, step 2: 0.00
+  Test 3, step 3: 0.00
+  Test 3, step 4: 458.01
+  Test 3, step 5: 305.34
+  Test 3, step 6: 152.67
+  Test 3, step 7: 0.00
+  Test 3, step 8: 0.00
+  Test 3, step 9: 0.00
+Test 4, 1 + 2: 3.00
+Test 4, 1 - 2: -1.00
+Test 4, 5 * pi: : 15.70
+  Test 4, step 0: 12.56
+  Test 4, step 1: 9.42
+  Test 4, step 2: 6.28
+  Test 4, step 3: 3.14
+  Test 4, step 4: 0.00
+  Test 4, step 5: 0.00
+  Test 4, step 6: 0.00
+  Test 4, step 7: 0.00
+  Test 4, step 8: 0.00
+  Test 4, step 9: 0.00
+Test 4, 6 * pi: : 18.84
+  Test 4, step 0: 15.70
+  Test 4, step 1: 12.56
+  Test 4, step 2: 9.42
+  Test 4, step 3: 6.28
+  Test 4, step 4: 3.14
+  Test 4, step 5: 0.00
+  Test 4, step 6: 0.00
+  Test 4, step 7: 0.00
+  Test 4, step 8: 0.00
+  Test 4, step 9: 0.00
+Test 4, 5 * pi: : 15.70
+  Test 4, step 0: 12.56
+  Test 4, step 1: 9.42
+  Test 4, step 2: 6.28
+  Test 4, step 3: 3.14
+  Test 4, step 4: 0.00
+  Test 4, step 5: 0.00
+  Test 4, step 6: 0.00
+  Test 4, step 7: 0.00
+  Test 4, step 8: 0.00
+  Test 4, step 9: 0.00
+Test 4, 6 * pi: : 18.84
+  Test 4, step 0: 15.70
+  Test 4, step 1: 12.56
+  Test 4, step 2: 9.42
+  Test 4, step 3: 6.28
+  Test 4, step 4: 3.14
+  Test 4, step 5: 0.00
+  Test 4, step 6: 0.00
+  Test 4, step 7: 0.00
+  Test 4, step 8: 0.00
+  Test 4, step 9: 0.00
+Test 5, pi+e+1: 6.86
+Test 6, 0.17: 0.17
+Test 6, 34.00: 34.00
+Test 6, -46.88: -46.88
+Test 7, 36.50: 36.50
+Test 7, 32.20: 32.20
+Test 8, 610.68: : 610.68
+  Test 8, step 0: 0.00
+  Test 8, step 1: 0.00
+  Test 8, step 2: 0.00
+  Test 8, step 3: 0.00
+  Test 8, step 4: 458.01
+  Test 8, step 5: 305.34
+  Test 8, step 6: 152.67
+  Test 8, step 7: 0.00
+  Test 8, step 8: 0.00
+  Test 8, step 9: 0.00
+Test 9, construction:
+  a: 3.14
+  b: 2.72
+  c: 1.62
+  d: 1.41
+  a: -3.14
+  b: -2.72
+  c: -1.62
+  d: -1.41
+Test 9, matching and projection:
+  a: 1.62
+  b: -4.55
+  c: 0.00
+  d: 4.13
+Test 9, record update and mutation:
+  a: 3.14
+  b: 2.72
+  c: 1.62
+  d: 42.00
+  a: -3.14
+  b: 17.00
+  c: -1.62
+  d: -1.41
+  a: -3.14
+  b: 4.55
+  c: 42.00
+  d: 25.00
+Test 10, float32# records in recursive groups.
+  a: 1.10
+  b: 2.20
+  c: 3.20
+  d: 4.40
+  a: -5.10
+  b: -6.20
+  c: -7.30
+  d: -8.40
+  result (-4.00): -4.00
+  a: 1.10
+  b: 2.20
+  c: 3.20
+  d: 2.20
+  a: -5.10
+  b: 42.00
+  c: -7.30
+  d: -8.40
+Test 12, If-then-else with assert and float32.
+  result (1.00): 1.00
+Test 13, 610.68: : 610.68
+  Test 13, step 0: 0.00
+  Test 13, step 1: 0.00
+  Test 13, step 2: 0.00
+  Test 13, step 3: 0.00
+  Test 13, step 4: 458.01
+  Test 13, step 5: 305.34
+  Test 13, step 6: 152.67
+  Test 13, step 7: 0.00
+  Test 13, step 8: 0.00
+  Test 13, step 9: 0.00
+Test 14, construction:
+  a: 3.14
+  b: 13.00
+  c: 7.31
+  d: 1.41
+  e: 6.00
+  f: 27.10
+  a: -3.14
+  b: -13.00
+  c: -7.31
+  d: -1.41
+  e: -6.00
+  f: -27.10
+Test 14, matching and projection:
+  a: -6.00
+  b: -4.55
+  c: 0.00
+  d: 14.41
+  e: 21.10
+  f: -27.10
+Test 14, record update and mutation:
+  a: 3.14
+  b: 13.00
+  c: 7.31
+  d: 42.00
+  e: 6.00
+  f: -7.31
+  a: -3.14
+  b: 17.00
+  c: -7.31
+  d: -1.41
+  e: -6.00
+  f: -27.10
+  a: -3.14
+  b: 4.55
+  c: 42.00
+  d: 25.00
+  e: -6.00
+  f: -27.10
+Test 15, (float32#+float32) records in recursive groups:
+  a: 1.10
+  b: 2.00
+  c: 3.30
+  d: 4.40
+  e: 5.00
+  f: 6.60
+  a: -5.10
+  b: -6.00
+  c: -7.30
+  d: -8.40
+  e: -9.00
+  f: -10.60
+  result (-4.00): -4.00
+  a: 1.10
+  b: 2.00
+  c: 3.30
+  d: 2.00
+  e: 5.00
+  f: 1.10
+  a: -5.10
+  b: 42.00
+  c: -7.30
+  d: -8.40
+  e: -9.00
+  f: -10.60
+Test 16, 610.68: : 610.68
+  Test 16, step 0: 0.00
+  Test 16, step 1: 0.00
+  Test 16, step 2: 0.00
+  Test 16, step 3: 0.00
+  Test 16, step 4: 458.01
+  Test 16, step 5: 305.34
+  Test 16, step 6: 152.67
+  Test 16, step 7: 0.00
+  Test 16, step 8: 0.00
+  Test 16, step 9: 0.00
+Test 17, construction:
+  a: 3.17
+  b: 13
+  c: 7.31
+  d: 1.41
+  e: 6
+  f: 27.10
+  a: -3.17
+  b: -13
+  c: -7.31
+  d: -1.41
+  e: -6
+  f: -27.10
+Test 17, matching and projection:
+  a: -6.00
+  b: -4
+  c: 0.00
+  d: 14.41
+  e: 21
+  f: -27.10
+Test 17, record update and mutation:
+  a: 3.17
+  b: 13
+  c: 7.31
+  d: 42.00
+  e: 6
+  f: -7.31
+  a: -3.17
+  b: 17
+  c: -7.31
+  d: -1.41
+  e: -6
+  f: -27.10
+  a: -3.17
+  b: 4
+  c: 42.00
+  d: 25.00
+  e: -6
+  f: -27.10
+Test 18, (float32#+imm) records in recursive groups:
+  a: 1.10
+  b: 2
+  c: 3.30
+  d: 4.40
+  e: 5
+  f: 6.60
+  a: -5.10
+  b: -6
+  c: -7.30
+  d: -8.40
+  e: -9
+  f: -10.60
+  result (-4.00): -4.00
+  a: 1.10
+  b: 2
+  c: 3.30
+  d: 2.00
+  e: 5
+  f: 1.10
+  a: -5.10
+  b: 42
+  c: -7.30
+  d: -8.40
+  e: -9
+  f: -10.60
diff --git a/ocaml/toplevel/genprintval.ml b/ocaml/toplevel/genprintval.ml
index d9d4451470d..3a9c7f9415c 100644
--- a/ocaml/toplevel/genprintval.ml
+++ b/ocaml/toplevel/genprintval.ml
@@ -582,8 +582,8 @@ module Make(O : OBJ)(EVP : EVALPATH with type valu = O.t) = struct
                         | Flat_suffix Imm -> `Continue (O.field obj pos)
                         | Flat_suffix (Float | Float64) ->
                             `Continue (O.repr (O.double_field obj pos))
-                        | Flat_suffix (Bits32 | Bits64 | Word) ->
-                            `Stop (Oval_stuff "<bits>")
+                        | Flat_suffix (Float32 | Bits32 | Bits64 | Word) ->
+                            `Stop (Oval_stuff "<abstr>")
                       in
                       match fld with
                       | `Continue fld ->
diff --git a/ocaml/typing/typecore.ml b/ocaml/typing/typecore.ml
index 66a92009f60..caa5cd5691e 100644
--- a/ocaml/typing/typecore.ml
+++ b/ocaml/typing/typecore.ml
@@ -5744,7 +5744,7 @@ and type_expect_
           | Record_mixed mixed -> begin
               match Types.get_mixed_product_element mixed label.lbl_num with
               | Flat_suffix Float -> true
-              | Flat_suffix (Float64 | Imm | Bits32 | Bits64 | Word) -> false
+              | Flat_suffix (Float64 | Float32 | Imm | Bits32 | Bits64 | Word) -> false
               | Value_prefix -> false
             end
           | _ -> false
diff --git a/ocaml/typing/typedecl.ml b/ocaml/typing/typedecl.ml
index be9667664b6..4960cd856da 100644
--- a/ocaml/typing/typedecl.ml
+++ b/ocaml/typing/typedecl.ml
@@ -1208,6 +1208,7 @@ let assert_mixed_product_support =
 module Element_repr = struct
   type unboxed_element =
     | Float64
+    | Float32
     | Bits32
     | Bits64
     | Word
@@ -1225,9 +1226,7 @@ module Element_repr = struct
       | Value | Immediate64 | Non_null_value -> Value_element
       | Immediate -> Imm_element
       | Float64 -> Unboxed_element Float64
-      | Float32 ->
-        (* CR mslater: (float32) float32# records *)
-        raise (Error (loc, Invalid_jkind_in_block (ty, Float32, Mixed_product)))
+      | Float32 -> Unboxed_element Float32
       | Word -> Unboxed_element Word
       | Bits32 -> Unboxed_element Bits32
       | Bits64 -> Unboxed_element Bits64
@@ -1237,6 +1236,7 @@ module Element_repr = struct
 
   let unboxed_to_flat : unboxed_element -> flat_element = function
     | Float64 -> Float64
+    | Float32 -> Float32
     | Bits32 -> Bits32
     | Bits64 -> Bits64
     | Word -> Word
@@ -1406,7 +1406,7 @@ let update_decl_jkind env dpath decl =
            | Float_element -> repr_summary.floats <- true
            | Imm_element -> repr_summary.imms <- true
            | Unboxed_element Float64 -> repr_summary.float64s <- true
-           | Unboxed_element (Bits32 | Bits64 | Word) ->
+           | Unboxed_element (Float32 | Bits32 | Bits64 | Word) ->
                repr_summary.non_float64_unboxed_fields <- true
            | Value_element -> repr_summary.values <- true
            | Element_without_runtime_component _ -> ())
diff --git a/ocaml/typing/types.ml b/ocaml/typing/types.ml
index 192fbb66fff..d07eedb71cf 100644
--- a/ocaml/typing/types.ml
+++ b/ocaml/typing/types.ml
@@ -275,7 +275,7 @@ and abstract_reason =
     Abstract_def
   | Abstract_rec_check_regularity
 
-and flat_element = Imm | Float | Float64 | Bits32 | Bits64 | Word
+and flat_element = Imm | Float | Float64 | Float32 | Bits32 | Bits64 | Word
 and mixed_product_shape =
   { value_prefix_len : int;
     flat_suffix : flat_element array;
@@ -571,14 +571,14 @@ let equal_tag t1 t2 =
 
 let equal_flat_element e1 e2 =
   match e1, e2 with
-  | Imm, Imm | Float64, Float64 | Float, Float
+  | Imm, Imm | Float64, Float64 | Float32, Float32 | Float, Float
   | Word, Word | Bits32, Bits32 | Bits64, Bits64
     -> true
-  | (Imm | Float64 | Float | Word | Bits32 | Bits64), _ -> false
+  | (Imm | Float64 | Float32 | Float | Word | Bits32 | Bits64), _ -> false
 
 let compare_flat_element e1 e2 =
   match e1, e2 with
-  | Imm, Imm | Float, Float | Float64, Float64
+  | Imm, Imm | Float, Float | Float64, Float64 | Float32, Float32
   | Word, Word | Bits32, Bits32 | Bits64, Bits64
     -> 0
   | Imm, _ -> -1
@@ -587,6 +587,8 @@ let compare_flat_element e1 e2 =
   | _, Float -> 1
   | Float64, _ -> -1
   | _, Float64 -> 1
+  | Float32, _ -> -1
+  | _, Float32 -> 1
   | Word, _ -> -1
   | _, Word -> 1
   | Bits32, _ -> -1
@@ -720,6 +722,7 @@ let get_mixed_product_element { value_prefix_len; flat_suffix } i =
 let flat_element_to_string = function
   | Imm -> "Imm"
   | Float -> "Float"
+  | Float32 -> "Float32"
   | Float64 -> "Float64"
   | Bits32 -> "Bits32"
   | Bits64 -> "Bits64"
@@ -728,6 +731,7 @@ let flat_element_to_string = function
 let flat_element_to_lowercase_string = function
   | Imm -> "imm"
   | Float -> "float"
+  | Float32 -> "float32"
   | Float64 -> "float64"
   | Bits32 -> "bits32"
   | Bits64 -> "bits64"
diff --git a/ocaml/typing/types.mli b/ocaml/typing/types.mli
index 66905ac312c..eadff7a4c25 100644
--- a/ocaml/typing/types.mli
+++ b/ocaml/typing/types.mli
@@ -558,7 +558,7 @@ and abstract_reason =
    non-empty suffix of "flat" elements. Intuitively, a flat element is one that
    need not be scanned by the garbage collector.
 *)
-and flat_element = Imm | Float | Float64 | Bits32 | Bits64 | Word
+and flat_element = Imm | Float | Float64 | Float32 | Bits32 | Bits64 | Word
 and mixed_product_shape =
   { value_prefix_len : int;
     (* We use an array just so we can index into the middle. *)