<>=~$",$coin{$str[$_]=$`.$/}=$' for 0..4;
++$A{<>}for@A=1..<>;
++$B{<>}for@B=1..<>;
++$C{<>}for@C=1..<>;
for(@str){
	$\.=$/.$A{$_}*$B{$_}*$C{$_}*5;
	$x+=$coin{$_}*5*$A{$_}*$B{$_}*$C{$_}
}
print$x/(@A*@B*@C)