$frst=<>;
chomp($first);
@let=split'',$frst;
@alph=(a..z);
@W=undef;


for ($i==0, $i<=25, $i++) {	
	$countalph[$i]=0;
}


while (@let!=0)  {
	$rt=shift@let;
	for ($i==0, $i<=25, $i++) {	
		if ($rt eq @alph[$i]) {
			$countalph[$i]=$countalph[$i]+1;
		}
	}        
	
} 
print ($countalph[1]);
print ("\n");