//,map$w[$'][$_]=$\=1e9,@@for@@=0..map$S[$_]=<>,0..<>;
$w[$`][$&]=$w[$&][$`]=$'*/ .* /for<>;
for$m(@@){
	for$i(@@){
		for$j(@@){
			$w[$i][$j]-=$-=$w[$i][$j]-$w[$i][$m]-$w[$m][$j]
		}
	}
}
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