<>=~('(.*)\s'x4);$a+=$-=$_-($b=$a[$4/$3<$1?$4/$3:$1])for@a=sort{$b-$a}map{0|1+($_-2)/$2}glob<>;print$3*$a+$4*$b