sub h {
  tie my %hash, 'Tie::Hash::MultiValueOrdered';
  while (my ($k, $v) = splice @_, 0, 2) {
    $hash{$k} = $v;
  }
  \%hash;
}