my $set = "";
sub contains { vec($set, $_[0], 1); }
sub add { vec($set, $_[0], 1) = 1; }