Sourcetype 'a t = {code : int;kind : 'a kind;checksum : int;shdr : 'a;
} Sourceand id_and_seq = int * int Sourceand next_hop_mtu = | Hop of int
Sourceand pointer = | Pointer of int
Sourceval decode :
?off:??? ->
string ->
(packet * string, [> `Invalid_ICMPv4_packet ]) result