n,x,a,b=$<.map &:to_i
p [(x+a-1)/a,(2**~-n)/b].min