$A=$B=$@=$O=0;
$s=<>;
$t=<>;
for$s($s=~/./g){
	for$t($t=~/./g){
		${$s&$t}+=25;
	}
}
print"$A $B $@ $O";