sub hashfirst { $_[0]->{($_) = keys %{$_[0]}} }
sub shape {
  my $h = shift;
  my @s;
  for (;'HASH' ne ref $h; $h = hashfirst($h)) {
    push @s, scalar(keys %$h);
  }
  @s
}