(defn wrap
  ([[a & as]]
    (if-let [[b & cs] as]
      [a (wrap as)]
    [a])))

(doall
  (map (comp println wrap)
    (repeatedly #(read-string (read-line)))))