sig
  val quadruple_of_int32 : int32 -> int32 -> int * int * int * int
  val int32_of_quadruple :
    int * int * int * int ->
    int32 Pervasives.ref -> int32 Pervasives.ref -> unit
end