sub access {
  my ( $self, $x, $y ) = splice @_, 0, 3;
  my $method = $self->{crefs}{$x}{$y};
  return $self->$method(@_);
}