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