sub struct {
   return
      ref($_[0])
         ? ref($_[0]) eq 'HASH'
            ? $_[0]
            : croak "not a hash ref"
         : @_ & 1
            ? croak "odd number of elements in hash"
            : {@_};
}