($n,$k,$x,$y)=glob<>;$a+=$-=$_-($b=$a[$y/$x])for@a=sort{$b-$a}map{0|1+($_-2)/$k}glob<>;print$x*$a+$y*$b