(def a [[1 2] [3 4]])

#'user/a

(if-let [[a b] [nil nil]] 10)

10

(quote (quote (quote (a b c))))

(quote (quote (a b c)))

(macroexpand-1 '(doto a b c))

(clojure.core/let [G__3446336 a]
  (b G__3446336)
  (c G__3446336)
  G__3446336)

(if-let [[a b] [nil nil]] "OK")

"OK"

(not (not '(a b c)))

true

(into {} '[[a b] [c d]])

{a b, c d}

(get '[a b c] 0)

a

(let [[a b] (:a :b)] b)

nil

(meta ^:bar '[a b c])

nil

(let [a (atom "contents")] (println @a))

nil

"contents\n"

(read-string "`(a ~b ~@c)")

(clojure.core/sequence
  (clojure.core/seq (clojure.core/concat (clojure.core/list (quote user/a))
                                         (clojure.core/list b)
                                         c)))

(let [a (gensym)] `(foo ~a))

(user/foo G__1231217)

(defmacro m [a] `(do ~a))

#'user/m

(assert "Did you see a duck?")

nil

('[a b c d] 1)

b

(macroexpand '(dosync a b c))

(dosync a b c)

(seq (rest (rest '(a b))))

nil

(into '[a b] [3 4])

[a b 3 4]

(defrecord A [w x y z])

#'user/A

(macroexpand '(make-tags [a abbr address]))

(make-tags [a abbr address])

(macroexpand-1 '(mknet a b c))

(mknet a b c)

(def x "(a b)")

#'user/x

(list (set '(a b c)))

(#{a b c})

(defprotocol P
  (a [x])
  (b [x]))

{:methods
   #{#object [clojure.lang.MultiFn 0xb18656 "clojure.lang.MultiFn@b18656"]
     #object [clojure.lang.MultiFn 0xe7679e8 "clojure.lang.MultiFn@e7679e8"]},
 :name user/P,
 :ns #object [sci.impl.vars.SciNamespace 0x37a47b18 "user"],
 :sigs {:a {:arglists ([x]), :doc nil, :name a},
        :b {:arglists ([x]), :doc nil, :name b}}}

(def status "I read a book")

#'user/status

(defn fibo
  [x n a b]
  ((if (> x n) () (concat (+ a b) (fibo (+ x 1) n b (+ a b))))))

#'user/fibo

(macroexpand '(doto a b c))

(clojure.core/let [G__95061 a]
  (b G__95061)
  (c G__95061)
  G__95061)

(map-indexed vector '[a b c])

([0 a] [1 b] [2 c])

(seq? '(seq [a b c]))

true

(re-find (re-matcher #"(a)b" "aba"))

["ab" "a"]

(def a (map println (range 10)))

#'user/a

(defn make-floortile-file [a b] "howdy pardner")

#'user/make-floortile-file

(def a {:foo [10 20 30]})

#'user/a

(let [a (def x 1)] 1)

1

(-> "This is a sideways stick")

"This is a sideways stick"

(map symbol '(a b c))

(a b c)

(def a (cons (println "foo") (lazy-seq ())))

#'user/a

"foo\n"

(defn f (^String [a b c]))

#'user/f

((fn [[a b c]] c) (range))

2

(let [a 2 s 'a] s)

a

(re-seq #"." "Have a nice day")

("H" "a" "v" "e" " " "a" " " "n" "i" "c" "e" " " "d" "a" "y")

(defrecord Cat [^String a ^int b])

#'user/Cat

(macroexpand-1 '(-> x (a b)))

(a x b)

(clojure.walk/macroexpand-all '(-> a b 2))

(2 (b a))

(clojure.core/defn my-func [a b c d])

#'user/my-func

(conj '(a b c) 'd)

(d a b c)

(if-let [[a b] nil]
  "ok"
  "no")

"no"

(macroexpand-1 '(pl a $ b))

(pl a $ b)

(defn my-function [function [a & args]])

#'user/my-function