Compression
val output_value : out_channel -> 'a -> unit
val input_value : in_channel -> 'a
val compression_supported : bool