val Pervasives.input_binary_int : in_channel -> int
val Pervasives.read_int : unit -> int

val Marshal.from_channel : in_channel -> 'a

For example...