(setglobal Module_coercion!
  (let (M = (makeblock 0))
    (makeblock 0 M
      (makeblock 0 (function prim stub (array.length[int] prim))
        (function prim prim stub (array.get[int] prim prim))
        (function prim prim stub (array.unsafe_get[int] prim prim))
        (function prim prim prim stub (array.set[int] prim prim prim))
        (function prim prim prim stub (array.unsafe_set[int] prim prim prim))
        (function prim prim stub (compare_ints prim prim))
        (function prim prim stub (== prim prim))
        (function prim prim stub (!= prim prim))
        (function prim prim stub (< prim prim))
        (function prim prim stub (> prim prim))
        (function prim prim stub (<= prim prim))
        (function prim prim stub (>= prim prim)))
      (makeblock 0 (function prim stub (array.length[addr] prim))
        (function prim prim stub (array.get[addr] prim prim))
        (function prim prim stub (array.unsafe_get[addr] prim prim))
        (function prim prim prim stub (array.set[addr] prim prim prim))
        (function prim prim prim stub
          (array.unsafe_set[addr] prim prim prim))
        (function prim prim stub (compare_floats prim prim))
        (function prim prim stub (==. prim prim))
        (function prim prim stub (!=. prim prim))
        (function prim prim stub (<. prim prim))
        (function prim prim stub (>. prim prim))
        (function prim prim stub (<=. prim prim))
        (function prim prim stub (>=. prim prim)))
      (makeblock 0 (function prim stub (array.length[addr] prim))
        (function prim prim stub (array.get[addr] prim prim))
        (function prim prim stub (array.unsafe_get[addr] prim prim))
        (function prim prim prim stub (array.set[addr] prim prim prim))
        (function prim prim prim stub
          (array.unsafe_set[addr] prim prim prim))
        (function prim prim stub (caml_string_compare prim prim))
        (function prim prim stub (caml_string_equal prim prim))
        (function prim prim stub (caml_string_notequal prim prim))
        (function prim prim stub (caml_string_lessthan prim prim))
        (function prim prim stub (caml_string_greaterthan prim prim))
        (function prim prim stub (caml_string_lessequal prim prim))
        (function prim prim stub (caml_string_greaterequal prim prim)))
      (makeblock 0 (function prim stub (array.length[addr] prim))
        (function prim prim stub (array.get[addr] prim prim))
        (function prim prim stub (array.unsafe_get[addr] prim prim))
        (function prim prim prim stub (array.set[addr] prim prim prim))
        (function prim prim prim stub
          (array.unsafe_set[addr] prim prim prim))
        (function prim prim stub (compare_bints int32 prim prim))
        (function prim prim stub (Int32.== prim prim))
        (function prim prim stub (Int32.!= prim prim))
        (function prim prim stub (Int32.< prim prim))
        (function prim prim stub (Int32.> prim prim))
        (function prim prim stub (Int32.<= prim prim))
        (function prim prim stub (Int32.>= prim prim)))
      (makeblock 0 (function prim stub (array.length[addr] prim))
        (function prim prim stub (array.get[addr] prim prim))
        (function prim prim stub (array.unsafe_get[addr] prim prim))
        (function prim prim prim stub (array.set[addr] prim prim prim))
        (function prim prim prim stub
          (array.unsafe_set[addr] prim prim prim))
        (function prim prim stub (compare_bints int64 prim prim))
        (function prim prim stub (Int64.== prim prim))
        (function prim prim stub (Int64.!= prim prim))
        (function prim prim stub (Int64.< prim prim))
        (function prim prim stub (Int64.> prim prim))
        (function prim prim stub (Int64.<= prim prim))
        (function prim prim stub (Int64.>= prim prim)))
      (makeblock 0 (function prim stub (array.length[addr] prim))
        (function prim prim stub (array.get[addr] prim prim))
        (function prim prim stub (array.unsafe_get[addr] prim prim))
        (function prim prim prim stub (array.set[addr] prim prim prim))
        (function prim prim prim stub
          (array.unsafe_set[addr] prim prim prim))
        (function prim prim stub (compare_bints nativeint prim prim))
        (function prim prim stub (Nativeint.== prim prim))
        (function prim prim stub (Nativeint.!= prim prim))
        (function prim prim stub (Nativeint.< prim prim))
        (function prim prim stub (Nativeint.> prim prim))
        (function prim prim stub (Nativeint.<= prim prim))
        (function prim prim stub (Nativeint.>= prim prim))))))