(defn calculate-total-fuel
  [input]
  (reduce
    +
    (map
      (fn [x] (- (quot x 3) 2))
      input)))