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