sub nUniqC{
	my @uniq;
	scalar grep{ ++$uniq[$_] == 1 } unpack('C*',$_[0]);
}