sig type record val is_fixed_length : unit -> bool val get_record_size : unit -> int val encode : Shredded_store_sigs.Record_Type.record -> char array val decode : char array -> Shredded_store_sigs.Record_Type.record end