let id_string (p: string) : string option =
  let packed: bytes = Bytes.pack p in
  ((Bytes.unpack packed): string option)

let id_int (p: int) : int option =
  let packed: bytes = Bytes.pack p in
  ((Bytes.unpack packed): int option)

let id_address (p: address) : address option =
  let packed: bytes = Bytes.pack p in
  ((Bytes.unpack packed): address option)