 (defn game
   [p1-deck p2-deck]
   (loop [state [p1-deck p2-deck]]
-    (println (clojure.string/join " " ["battle" (count (first state)) (count (second state))]))
     (let [[p1-d p2-d] state]
       (if (and (seq p1-d) (seq p2-d))
         (let [p1-card (first p1-d)

                                        (concat (rest p2-d) (list p2-card p1-card))])
            :else (recur (war (rest p1-d) (rest p2-d) (list p1-card p2-card)))))
        (if (seq p1-d)
          ["PLAYER 1" (count p1-d) p1-d]
          ["PLAYER 2" (count p2-d) p2-d])))))

(defn main
  []

        p2-cards (str->cards (read-line))]
    (println (game p1-cards p2-cards))))

(main)
