(* TEMPORARY: SHOULD BE ERASED *) type t = Hex.t let of_hex x = x let to_hex x = x