;; file: challenge.clj
;; file: challenge.clj
;; invoke from command line:
;; java -cp clojure.jar /path/to/challenge.clj “()” “((([[]])))” … …

(ns challenge)

(def push conj)
(def closing-counterpart { \( \), \[ \] })
(defn matching-pair? [left right] 
  (= right (closing-counterpart left)))

(defn consume-one [stack c]
  (if (matching-pair? (peek stack) c)
    (pop stack)
    (push stack c)))

(defn balanced? [s] 
  (empty? (reduce consume-one [] s)))

(defn main [] 
  (apply print (map balanced? *command-line-args*)))

(when *command-line-args* 
  (main))