
(def parse-input
  (fn [s]
    (mapv #(Integer/parseInt %) (clojure.string/split s #" "))))

(def res
  (fn [[h a]]
    (+ (quot h a)
       (if (zero? (rem h a)) 0 1))))

(println
 (-> (read-line)
     parse-input
     res))
