ligo/src/test/contracts/bytes_unpack.ligo

function id_string (const p : string) : option (string) is block {
  const packed : bytes = Bytes.pack (p)
} with (Bytes.unpack (packed) : option (string))

function id_int (const p : int) : option (int) is block {
  const packed : bytes = Bytes.pack (p)
} with (Bytes.unpack (packed) : option (int))

function id_address (const p : address) : option (address) is block {
  const packed : bytes = Bytes.pack (p)
} with (Bytes.unpack (packed) : option (address))