my @set;
sub contains { @set{$_[0]}; }
sub add { @set{$_[0]} = 1; }