sub make_key {
  my $x = shift;
  pack 'N*', @{$x->{Path}};
}