sub new {
  my ($class, $value) = @_;
  bless { value => $value } => "$class";
}