include Common.Serialize
let max_depth : int option = None
let char _ = failwith "char serialization not implememted"
let length _ = failwith "length serialization not implemented"
let variant_index _ = failwith "variant_index serialization not implemented"
let float32 _ = failwith "float32 serialization not implemented"
let float64 _ = failwith "float64 serialization not implemented"
let variable f l = variable length f l
let string s = string length s
let bytes b = bytes length b
let map ser_k ser_v m = map length ser_k ser_v m