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