(* CRC computation *)
val for_string: string -> int -> int -> int
val for_channel: in_channel -> int -> int = "crc_chan"