n,a,b,w,*c=`dd`.split.map &:to_i
p (2**n).times.map{|j|r=0;n.times.reduce(w){|s,i|if j[i]<1;r=0;s+c[i];else;s-a+b*r+=1;end}}.min