Retornando uma lista de entradas de um loop

;; a helper function to display a prompt
(def read-val [name]
  (println (str name ": "))
  (read-line))

;; reads lines until 0 is entered
(defn read-multiple []
  (loop [inputs []]
    (def input (read-val ">"))
    (if (= input "0")
      inputs
    (recur (conj inputs input)))))

;; prints the collected inputs
(println (read-multiple))