let
in_key =
Structure
(
Sum
[| [| p_int |]; [|
Locations
.
Zone
.packed_descr |] |])