N,M,P,Q = gets.split.map(&:to_i)

dp = Array.new(13, M)
dp[0] = 0
Q.times{|i| dp[P + i] = 2 * M }
(1 .. 12).each{|i| dp[i] += dp[i - 1] }

y,n = N.divmod(dp[12])
puts y * 12 + dp.index{|v| v >= n }