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