n,A,B,w,*c=`dd`.split.map &:to_i
def d c,s
  x,*y,z=*c,B*s-A
  c[1]||(return [x,z].min)
  x<z ?x+d(y,1):[x+d(y,1),z+d(y,s+1)].min
end
p d(c,1)+w