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