external ( = ) : int -> int -> bool = "%equal"
external int32_of_int : int -> int32 = "%int32_of_int"
external int32_to_int : int32 -> int = "%int32_to_int"
external int64_to_int : int64 -> int = "%int64_to_int"
external bswap32 : int32 -> int32 = "%bswap_int32"
external unsafe_get32 : bytes -> int -> int32 = "%caml_bytes_get32u"
external unsafe_set32 : bytes -> int -> int32 -> unit = "%caml_bytes_set32u"
let buf = Bytes.create 32
let bin_read_network32_int buf ~pos = unsafe_get32 buf pos |> bswap32 |> int32_to_int
let bin_write_network32_int buf ~pos n =
  unsafe_set32 buf pos (n |> int32_of_int |> bswap32)
;;
let () =
  let n = -2147483648L |> int64_to_int in
  bin_write_network32_int buf ~pos:0 n;
  let n' = bin_read_network32_int buf ~pos:0 in
  assert (n = n')
;;