(defn a [nums]
  (->> nums
       (sort <)
       (take 2)
       (apply +)))

(let [args (-> (line-seq (java.io.BufferedReader. *in*))
               first
               (clojure.string/split #" "))]
  (->> args (mapv #(Integer/parseInt %)) a prn ))