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