($N,$M,$P,$Q)=glob<>; --$P; while($N>0){ $N-=$M<<($P<=$i%12&&$i%12<$P+$Q); ++$i } print$i