val Pervasives.input_binary_int : in_channel -> int

val Pervasives.read_int : unit -> int

val Marshal.from_channel : in_channel -> 'a


For example...