sub STORE {
  my ($self, $val) = @_;
  $self->[0] = $val;
  $self->[1]->() ?
    return $val :
    croak "Value $val is out of bounds";
}