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

(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)


(defn war
  [p1-deck p2-deck war-stack]
  (cond (< (count p1-deck) 4) ['() (concat p2-deck p1-deck war-stack)]
        (< (count p2-deck) 4) [(concat p1-deck p2-deck war-stack) '()]
        :else (let [war-stack' (concat war-stack (take 3 p1-deck) (take 3 p2-deck))
