//,map$w[$'][$_]=$\=1e9,@@for@@=0..map$S[$_]=<>,0..<>;
$w[$`][$&]=$w[$&][$`]=$'*/ .* /for<>;
for$m(@@){//,map$w[$'][$_]-=$-=$w[$'][$_]-$w[$'][$m]-$w[$m][$_],@@for@@}
for$x(@@=1..@S-3){
	for$y(@@){
		if($x-$y){
			$\-=$-=$\-$S[$x]-$S[$y]-$w[0][$x]-$w[$x][$y]-$w[$y][@S-2]
		}
	}
}
print