sig
  type layer =
      Raw of Bitstring.bitstring
    | Dhcp of Dhcp.Pdu.t
    | Eth of Eth.Pdu.t
    | Arp of Arp.Pdu.t
    | Ip of Ip.Pdu.t
    | Ip6 of Ip6.Pdu.t
    | Udp of Udp.Pdu.t
    | Tcp of Tcp.Pdu.t
    | Dns of Dns.Pdu.t
    | Sll of Sll.Pdu.t
    | Vlan of Vlan.Pdu.t
    | Icmp of Icmp.Pdu.t
    | Pcap of Pcap.Pdu.t
  type t = Packet.Pdu.layer list
  val pack : Packet.Pdu.layer list -> Pcap.Pdu.t
  val unpack : Pcap.Pdu.t -> Packet.Pdu.layer list
end