/ /?$s{$`}=$y+=!${$'}++:0for($w,$h,@a)=<>;print$w*$y-$#a+($h-$y)*keys%s