sub d{my($o,$p,$x,$y)=@_;my$z=$s[$o-1]=~w;$_-$p&&(d($_,$o),$\+=$z*$u*($w-$v-1),$x+=$u,$y+=$v)for@$o;$\+=$z*($c-($u=$x+!$z))*~-($v=$y+$z)}<>;$$_++for@s=<>=~/./g;/ /,push@{$`},$'+!push@{$'+0},$`for<>;d 1;print