this worked for me

(println 
  (apply str 
   (reduce
       (fn [acc [a b]]
         (conj acc a b))
       []
       (map list (read-line) (read-line)))))

This works too:

(println
    (apply str (mapcat list (read-line) (read-line)))