(defun main (&rest argv)
  (declare (ignore argv))
  (let* ((a (read))
         (b (read))
         (c (read))
         (d (read)))
    (format t "~d~%" (min a (floor b c) (floor d (1+ c))))))

(main)