ClojureScript: Added "real" symbols, regex literals, re-wrote browser REPL in ClojureScript, updated to Clojure SVN 1086

7 files changed, 1249 insertions, 1063 deletions

diff --git a/clojurescript/avoid-java-in-boot.patch b/clojurescript/avoid-java-in-boot.patch
index cd84ca85..6964ad73 100644
--- a/clojurescript/avoid-java-in-boot.patch
+++ b/clojurescript/avoid-java-in-boot.patch
@@ -1,11 +1,11 @@
-commit 0d0d8e3801c91ee8dd35c9051afe1f026a0aaed1
+commit 46c8f274922f705aa0f95e7177d7476968e95b91
 Author: Chouser <chouser@n01se.net>
 Date:   Sun Oct 26 01:09:48 2008 -0400
 
     Less Java dependence in boot.clj (for ClojureScript)
 
 diff --git a/src/clj/clojure/boot.clj b/src/clj/clojure/boot.clj
-index b7d7ac7..882ff2a 100644
+index 4415d9b..22771db 100644
 --- a/src/clj/clojure/boot.clj
 +++ b/src/clj/clojure/boot.clj
 @@ -315,7 +315,7 @@
@@ -264,7 +264,7 @@ index b7d7ac7..882ff2a 100644
    (.write w ". ")
    (print-args o w)
    (.write w ")"))
-@@ -3628,11 +3630,11 @@
+@@ -3630,11 +3632,11 @@
                         (.write w ")"))
      (.isArray c) (do
                     (.write w "#=(java.lang.Class/forName \"")
diff --git a/clojurescript/boot.js b/clojurescript/boot.js
index 1d31d8f0..39b437b7 100644
--- a/clojurescript/boot.js
+++ b/clojurescript/boot.js
@@ -2,13 +2,13 @@
 //======
 //(in-ns (quote clojure))
 //---
-(function __user_fn_2882(){
-return (clojure.in_ns.apply(null,["'clojure"]))}).apply(null,[]);
+(function __user_fn_2877(){
+return (clojure.in_ns.apply(null,[clojure.symbol("clojure")]))}).apply(null,[]);
 
 //======
 //(def list (. clojure.lang.PersistentList creator))
 //---
-(function __clojure_fn_2888(){
+(function __clojure_fn_2883(){
 return (clojure.JS.def(clojure,"list",clojure.JS.getOrRun(clojure.lang.PersistentList,"creator")))}).apply(null,[]);
 // Skipping: (def cons (fn* cons [x seq] (. clojure.lang.RT (cons x seq))))
 // Skipping: (def let (fn* let [& decl] (cons (quote let*) decl)))
@@ -20,8 +20,8 @@ return (clojure.JS.def(clojure,"list",clojure.JS.getOrRun(clojure.lang.Persisten
 //======
 //(def conj (fn conj ([coll x] (. clojure.lang.RT (conj coll x))) ([coll x & xs] (if xs (recur (conj coll x) (first xs) (rest xs)) (conj coll x)))))
 //---
-(function __clojure_fn_2921(){
-return (clojure.JS.def(clojure,"conj",clojure.JS.variadic(2,(function __clojure_fn_2921_conj_2923(coll_1,x_2){switch(arguments.length){
+(function __clojure_fn_2916(){
+return (clojure.JS.def(clojure,"conj",clojure.JS.variadic(2,(function __clojure_fn_2916_conj_2918(coll_1,x_2){switch(arguments.length){
 case 2:var conj_0=arguments.callee;
 return (clojure.lang.RT.conj(coll_1,x_2))}
 var _cnt,_rtn,conj_0=arguments.callee,xs_3=clojure.JS.rest_args(this,arguments,2);
@@ -31,40 +31,40 @@ do{_cnt=0;_rtn=((xs_3)?((_cnt=1,_rtn=[conj_0.apply(null,[coll_1,x_2]),clojure.fi
 //======
 //(def second (fn second [x] (first (rest x))))
 //---
-(function __clojure_fn_2926(){
-return (clojure.JS.def(clojure,"second",(function __clojure_fn_2926_second_2928(x_1){
+(function __clojure_fn_2921(){
+return (clojure.JS.def(clojure,"second",(function __clojure_fn_2921_second_2923(x_1){
 var second_0=arguments.callee;
 return (clojure.first.apply(null,[clojure.rest.apply(null,[x_1])]))})))}).apply(null,[]);
 
 //======
 //(def ffirst (fn ffirst [x] (first (first x))))
 //---
-(function __clojure_fn_2931(){
-return (clojure.JS.def(clojure,"ffirst",(function __clojure_fn_2931_ffirst_2933(x_1){
+(function __clojure_fn_2926(){
+return (clojure.JS.def(clojure,"ffirst",(function __clojure_fn_2926_ffirst_2928(x_1){
 var ffirst_0=arguments.callee;
 return (clojure.first.apply(null,[clojure.first.apply(null,[x_1])]))})))}).apply(null,[]);
 
 //======
 //(def rfirst (fn rfirst [x] (rest (first x))))
 //---
-(function __clojure_fn_2936(){
-return (clojure.JS.def(clojure,"rfirst",(function __clojure_fn_2936_rfirst_2938(x_1){
+(function __clojure_fn_2931(){
+return (clojure.JS.def(clojure,"rfirst",(function __clojure_fn_2931_rfirst_2933(x_1){
 var rfirst_0=arguments.callee;
 return (clojure.rest.apply(null,[clojure.first.apply(null,[x_1])]))})))}).apply(null,[]);
 
 //======
 //(def frest (fn frest [x] (first (rest x))))
 //---
-(function __clojure_fn_2941(){
-return (clojure.JS.def(clojure,"frest",(function __clojure_fn_2941_frest_2943(x_1){
+(function __clojure_fn_2936(){
+return (clojure.JS.def(clojure,"frest",(function __clojure_fn_2936_frest_2938(x_1){
 var frest_0=arguments.callee;
 return (clojure.first.apply(null,[clojure.rest.apply(null,[x_1])]))})))}).apply(null,[]);
 
 //======
 //(def rrest (fn rrest [x] (rest (rest x))))
 //---
-(function __clojure_fn_2946(){
-return (clojure.JS.def(clojure,"rrest",(function __clojure_fn_2946_rrest_2948(x_1){
+(function __clojure_fn_2941(){
+return (clojure.JS.def(clojure,"rrest",(function __clojure_fn_2941_rrest_2943(x_1){
 var rrest_0=arguments.callee;
 return (clojure.rest.apply(null,[clojure.rest.apply(null,[x_1])]))})))}).apply(null,[]);
 // Skipping: (def seq (fn seq [coll] (. clojure.lang.RT (seq coll))))
@@ -73,8 +73,8 @@ return (clojure.rest.apply(null,[clojure.rest.apply(null,[x_1])]))})))}).apply(n
 //======
 //(def seq? (fn seq? [x] (instance? clojure.lang.ISeq x)))
 //---
-(function __clojure_fn_2961(){
-return (clojure.JS.def(clojure,"seq_QMARK_",(function __clojure_fn_2961_seq_QMARK_2963(x_1){
+(function __clojure_fn_2956(){
+return (clojure.JS.def(clojure,"seq_QMARK_",(function __clojure_fn_2956_seq_QMARK_2958(x_1){
 var seq_QMARK__0=arguments.callee;
 return (clojure.instance_QMARK_.apply(null,[clojure.lang.ISeq,x_1]))})))}).apply(null,[]);
 // Skipping: (def string? (fn string? [x] (instance? String x)))
@@ -82,25 +82,25 @@ return (clojure.instance_QMARK_.apply(null,[clojure.lang.ISeq,x_1]))})))}).apply
 //======
 //(def map? (fn map? [x] (instance? clojure.lang.IPersistentMap x)))
 //---
-(function __clojure_fn_2971(){
-return (clojure.JS.def(clojure,"map_QMARK_",(function __clojure_fn_2971_map_QMARK_2973(x_1){
+(function __clojure_fn_2966(){
+return (clojure.JS.def(clojure,"map_QMARK_",(function __clojure_fn_2966_map_QMARK_2968(x_1){
 var map_QMARK__0=arguments.callee;
 return (clojure.instance_QMARK_.apply(null,[clojure.lang.IPersistentMap,x_1]))})))}).apply(null,[]);
 
 //======
 //(def vector? (fn vector? [x] (instance? clojure.lang.IPersistentVector x)))
 //---
-(function __clojure_fn_2976(){
-return (clojure.JS.def(clojure,"vector_QMARK_",(function __clojure_fn_2976_vector_QMARK_2978(x_1){
+(function __clojure_fn_2971(){
+return (clojure.JS.def(clojure,"vector_QMARK_",(function __clojure_fn_2971_vector_QMARK_2973(x_1){
 var vector_QMARK__0=arguments.callee;
 return (clojure.instance_QMARK_.apply(null,[clojure.lang.IPersistentVector,x_1]))})))}).apply(null,[]);
 
 //======
 //(def sigs (fn [fdecl] (if (seq? (first fdecl)) (loop [ret [] fdecl fdecl] (if fdecl (recur (conj ret (first (first fdecl))) (rest fdecl)) (seq ret))) (list (first fdecl)))))
 //---
-(function __clojure_fn_2981(){
-return (clojure.JS.def(clojure,"sigs",(function __clojure_fn_2981_sigs_2983(fdecl_1){
-var ret_2,fdecl_3;
+(function __clojure_fn_2976(){
+return (clojure.JS.def(clojure,"sigs",(function __clojure_fn_2976_sigs_2978(fdecl_1){
+var fdecl_3,ret_2;
 return (((clojure.seq_QMARK_.apply(null,[clojure.first.apply(null,[fdecl_1])]))?(((function __loop(){var _rtn,_cnt;(ret_2=clojure.lang.PersistentVector.EMPTY),
 (fdecl_3=fdecl_1);do{_cnt=0;
 _rtn=((fdecl_3)?((_cnt=1,_rtn=[clojure.conj.apply(null,[ret_2,clojure.first.apply(null,[clojure.first.apply(null,[fdecl_3])])]),clojure.rest.apply(null,[fdecl_3])],ret_2=_rtn[0],fdecl_3=_rtn[1])):(clojure.seq.apply(null,[ret_2])))}while(_cnt);return _rtn;})())):(clojure.list.apply(null,[clojure.first.apply(null,[fdecl_1])]))))})))}).apply(null,[]);
@@ -109,24 +109,24 @@ _rtn=((fdecl_3)?((_cnt=1,_rtn=[clojure.conj.apply(null,[ret_2,clojure.first.appl
 //======
 //(def meta (fn meta [x] (if (instance? clojure.lang.IObj x) (. x (meta)))))
 //---
-(function __clojure_fn_2992(){
-return (clojure.JS.def(clojure,"meta",(function __clojure_fn_2992_meta_2994(x_1){
+(function __clojure_fn_2987(){
+return (clojure.JS.def(clojure,"meta",(function __clojure_fn_2987_meta_2989(x_1){
 var meta_0=arguments.callee;
 return (((clojure.instance_QMARK_.apply(null,[clojure.lang.IObj,x_1]))?((x_1).meta()):(null)))})))}).apply(null,[]);
 
 //======
 //(def with-meta (fn with-meta [x m] (. x (withMeta m))))
 //---
-(function __clojure_fn_2997(){
-return (clojure.JS.def(clojure,"with_meta",(function __clojure_fn_2997_with_meta_2999(x_1,m_2){
+(function __clojure_fn_2992(){
+return (clojure.JS.def(clojure,"with_meta",(function __clojure_fn_2992_with_meta_2994(x_1,m_2){
 var with_meta_0=arguments.callee;
 return ((x_1).withMeta(m_2))})))}).apply(null,[]);
 
 //======
 //(def last (fn last [s] (if (rest s) (recur (rest s)) (first s))))
 //---
-(function __clojure_fn_3002(){
-return (clojure.JS.def(clojure,"last",(function __clojure_fn_3002_last_3004(s_1){
+(function __clojure_fn_2997(){
+return (clojure.JS.def(clojure,"last",(function __clojure_fn_2997_last_2999(s_1){
 var _cnt,_rtn,last_0=arguments.callee;
 do{_cnt=0;_rtn=((clojure.rest.apply(null,[s_1]))?((_cnt=1,_rtn=[clojure.rest.apply(null,[s_1])],s_1=_rtn[0])):(clojure.first.apply(null,[s_1])))
 }while(_cnt);return _rtn;})))}).apply(null,[]);
@@ -134,9 +134,9 @@ do{_cnt=0;_rtn=((clojure.rest.apply(null,[s_1]))?((_cnt=1,_rtn=[clojure.rest.app
 //======
 //(def butlast (fn butlast [s] (loop [ret [] s s] (if (rest s) (recur (conj ret (first s)) (rest s)) (seq ret)))))
 //---
-(function __clojure_fn_3007(){
-return (clojure.JS.def(clojure,"butlast",(function __clojure_fn_3007_butlast_3009(s_1){
-var ret_2,s_3,butlast_0=arguments.callee;
+(function __clojure_fn_3002(){
+return (clojure.JS.def(clojure,"butlast",(function __clojure_fn_3002_butlast_3004(s_1){
+var s_3,ret_2,butlast_0=arguments.callee;
 return (((function __loop(){var _rtn,_cnt;(ret_2=clojure.lang.PersistentVector.EMPTY),
 (s_3=s_1);do{_cnt=0;
 _rtn=((clojure.rest.apply(null,[s_3]))?((_cnt=1,_rtn=[clojure.conj.apply(null,[ret_2,clojure.first.apply(null,[s_3])]),clojure.rest.apply(null,[s_3])],ret_2=_rtn[0],s_3=_rtn[1])):(clojure.seq.apply(null,[ret_2])))}while(_cnt);return _rtn;})()))})))}).apply(null,[]);
@@ -146,16 +146,16 @@ _rtn=((clojure.rest.apply(null,[s_3]))?((_cnt=1,_rtn=[clojure.conj.apply(null,[r
 //======
 //(defn cast "Throws a ClassCastException if x is not a c, else returns x." [c x] (. c (cast x)))
 //---
-(function __clojure_fn_3020(){
-return (clojure.JS.def(clojure,"cast",(function __clojure_fn_3020_cast_3022(c_1,x_2){
+(function __clojure_fn_3015(){
+return (clojure.JS.def(clojure,"cast",(function __clojure_fn_3015_cast_3017(c_1,x_2){
 return ((c_1).cast(x_2))})))}).apply(null,[]);
 // Skipping: (defn to-array "Returns an array of Objects containing the contents of coll, which\n  can be any Collection.  Maps to java.util.Collection.toArray()." [coll] (. clojure.lang.RT (toArray coll)))
 
 //======
 //(defn vector "Creates a new vector containing the args." ([] []) ([& args] (. clojure.lang.LazilyPersistentVector (create args))))
 //---
-(function __clojure_fn_3032(){
-return (clojure.JS.def(clojure,"vector",clojure.JS.variadic(0,(function __clojure_fn_3032_vector_3034(){switch(arguments.length){
+(function __clojure_fn_3027(){
+return (clojure.JS.def(clojure,"vector",clojure.JS.variadic(0,(function __clojure_fn_3027_vector_3029(){switch(arguments.length){
 case 0:return (clojure.lang.PersistentVector.EMPTY)}
 var args_1=clojure.JS.rest_args(this,arguments,0);
 return (clojure.lang.LazilyPersistentVector.create(args_1))}))))}).apply(null,[]);
@@ -163,16 +163,16 @@ return (clojure.lang.LazilyPersistentVector.create(args_1))}))))}).apply(null,[]
 //======
 //(defn vec "Creates a new vector containing the contents of coll." ([coll] (. clojure.lang.LazilyPersistentVector (createOwning (to-array coll)))))
 //---
-(function __clojure_fn_3039(){
-return (clojure.JS.def(clojure,"vec",(function __clojure_fn_3039_vec_3041(coll_1){
+(function __clojure_fn_3034(){
+return (clojure.JS.def(clojure,"vec",(function __clojure_fn_3034_vec_3036(coll_1){
 return (clojure.lang.LazilyPersistentVector.createOwning(clojure.to_array.apply(null,[coll_1])))})))}).apply(null,[]);
 // Skipping: (defn hash-map "keyval => key val\n  Returns a new hash map with supplied mappings." ([] {}) ([& keyvals] (. clojure.lang.PersistentHashMap (create keyvals))))
 
 //======
 //(defn hash-set "Returns a new hash set with supplied keys." ([] #{}) ([& keys] (. clojure.lang.PersistentHashSet (create keys))))
 //---
-(function __clojure_fn_3052(){
-return (clojure.JS.def(clojure,"hash_set",clojure.JS.variadic(0,(function __clojure_fn_3052_hash_set_3054(){switch(arguments.length){
+(function __clojure_fn_3047(){
+return (clojure.JS.def(clojure,"hash_set",clojure.JS.variadic(0,(function __clojure_fn_3047_hash_set_3049(){switch(arguments.length){
 case 0:return (clojure.lang.PersistentHashSet.EMPTY)}
 var keys_1=clojure.JS.rest_args(this,arguments,0);
 return (clojure.lang.PersistentHashSet.create(keys_1))}))))}).apply(null,[]);
@@ -180,24 +180,24 @@ return (clojure.lang.PersistentHashSet.create(keys_1))}))))}).apply(null,[]);
 //======
 //(defn sorted-map "keyval => key val\n  Returns a new sorted map with supplied mappings." ([& keyvals] (. clojure.lang.PersistentTreeMap (create keyvals))))
 //---
-(function __clojure_fn_3059(){
-return (clojure.JS.def(clojure,"sorted_map",clojure.JS.variadic(0,(function __clojure_fn_3059_sorted_map_3061(){
+(function __clojure_fn_3054(){
+return (clojure.JS.def(clojure,"sorted_map",clojure.JS.variadic(0,(function __clojure_fn_3054_sorted_map_3056(){
 var keyvals_1=clojure.JS.rest_args(this,arguments,0);
 return (clojure.lang.PersistentTreeMap.create(keyvals_1))}))))}).apply(null,[]);
 
 //======
 //(defn sorted-set "Returns a new sorted set with supplied keys." ([& keys] (. clojure.lang.PersistentTreeSet (create keys))))
 //---
-(function __clojure_fn_3065(){
-return (clojure.JS.def(clojure,"sorted_set",clojure.JS.variadic(0,(function __clojure_fn_3065_sorted_set_3067(){
+(function __clojure_fn_3060(){
+return (clojure.JS.def(clojure,"sorted_set",clojure.JS.variadic(0,(function __clojure_fn_3060_sorted_set_3062(){
 var keys_1=clojure.JS.rest_args(this,arguments,0);
 return (clojure.lang.PersistentTreeSet.create(keys_1))}))))}).apply(null,[]);
 
 //======
 //(defn sorted-map-by "keyval => key val\n  Returns a new sorted map with supplied mappings, using the supplied comparator." ([comparator & keyvals] (. clojure.lang.PersistentTreeMap (create comparator keyvals))))
 //---
-(function __clojure_fn_3071(){
-return (clojure.JS.def(clojure,"sorted_map_by",clojure.JS.variadic(1,(function __clojure_fn_3071_sorted_map_by_3073(comparator_1){
+(function __clojure_fn_3066(){
+return (clojure.JS.def(clojure,"sorted_map_by",clojure.JS.variadic(1,(function __clojure_fn_3066_sorted_map_by_3068(comparator_1){
 var keyvals_2=clojure.JS.rest_args(this,arguments,1);
 return (clojure.lang.PersistentTreeMap.create(comparator_1,keyvals_2))}))))}).apply(null,[]);
 // Skipping: (def defmacro (fn [name & args] (list (quote do) (cons (quote clojure/defn) (cons name args)) (list (quote .) (list (quote var) name) (quote (setMacro))))))
@@ -208,66 +208,50 @@ return (clojure.lang.PersistentTreeMap.create(comparator_1,keyvals_2))}))))}).ap
 //======
 //(defn nil? "Returns true if x is nil, false otherwise." {:tag Boolean} [x] (identical? x nil))
 //---
-(function __clojure_fn_3098(){
-return (clojure.JS.def(clojure,"nil_QMARK_",(function __clojure_fn_3098_nil_QMARK_3100(x_1){
+(function __clojure_fn_3093(){
+return (clojure.JS.def(clojure,"nil_QMARK_",(function __clojure_fn_3093_nil_QMARK_3095(x_1){
 return (clojure.identical_QMARK_.apply(null,[x_1,null]))})))}).apply(null,[]);
 
 //======
 //(defn false? "Returns true if x is the value false, false otherwise." {:tag Boolean} [x] (identical? x false))
 //---
-(function __clojure_fn_3104(){
-return (clojure.JS.def(clojure,"false_QMARK_",(function __clojure_fn_3104_false_QMARK_3106(x_1){
+(function __clojure_fn_3099(){
+return (clojure.JS.def(clojure,"false_QMARK_",(function __clojure_fn_3099_false_QMARK_3101(x_1){
 return (clojure.identical_QMARK_.apply(null,[x_1,false]))})))}).apply(null,[]);
 
 //======
 //(defn true? "Returns true if x is the value true, false otherwise." {:tag Boolean} [x] (identical? x true))
 //---
-(function __clojure_fn_3110(){
-return (clojure.JS.def(clojure,"true_QMARK_",(function __clojure_fn_3110_true_QMARK_3112(x_1){
+(function __clojure_fn_3105(){
+return (clojure.JS.def(clojure,"true_QMARK_",(function __clojure_fn_3105_true_QMARK_3107(x_1){
 return (clojure.identical_QMARK_.apply(null,[x_1,true]))})))}).apply(null,[]);
 
 //======
 //(defn not "Returns true if x is logical false, false otherwise." {:tag Boolean} [x] (if x false true))
 //---
-(function __clojure_fn_3116(){
-return (clojure.JS.def(clojure,"not",(function __clojure_fn_3116_not_3118(x_1){
+(function __clojure_fn_3111(){
+return (clojure.JS.def(clojure,"not",(function __clojure_fn_3111_not_3113(x_1){
 return (((x_1)?(false):(true)))})))}).apply(null,[]);
 
 //======
 //(defn str "With no args, returns the empty string. With one arg x, returns\n  x.toString().  (str nil) returns the empty string. With more than\n  one arg, returns the concatenation of the str values of the args." {:tag String} ([] "") ([x] (if (nil? x) "" (. x (toString)))) ([x & ys] (loop [sb (clojure.lang.RT/makeStringBuilder (str x)) more ys] (if more (recur (. sb (append (str (first more)))) (rest more)) (str sb)))))
 //---
-(function __clojure_fn_3122(){
-return (clojure.JS.def(clojure,"str",clojure.JS.variadic(1,(function __clojure_fn_3122_str_3124(x_1){switch(arguments.length){
+(function __clojure_fn_3117(){
+return (clojure.JS.def(clojure,"str",clojure.JS.variadic(1,(function __clojure_fn_3117_str_3119(x_1){switch(arguments.length){
 case 0:return ("")
 case 1:return (((clojure.nil_QMARK_.apply(null,[x_1]))?(""):((x_1).toString())))}
 var more_4,sb_3,ys_2=clojure.JS.rest_args(this,arguments,1);
 return (((function __loop(){var _rtn,_cnt;(sb_3=clojure.lang.RT.makeStringBuilder(clojure.str.apply(null,[x_1]))),
 (more_4=ys_2);do{_cnt=0;
 _rtn=((more_4)?((_cnt=1,_rtn=[(sb_3).append(clojure.str.apply(null,[clojure.first.apply(null,[more_4])])),clojure.rest.apply(null,[more_4])],sb_3=_rtn[0],more_4=_rtn[1])):(clojure.str.apply(null,[sb_3])))}while(_cnt);return _rtn;})()))}))))}).apply(null,[]);
-
-//======
-//(defn symbol "Returns a Symbol with the given namespace and name." ([name] (. clojure.lang.Symbol (intern name))) ([ns name] (. clojure.lang.Symbol (intern ns name))))
-//---
-(function __clojure_fn_3130(){
-return (clojure.JS.def(clojure,"symbol",(function __clojure_fn_3130_symbol_3132(ns_1,name_2){switch(arguments.length){
-case 1:var name_1=arguments[0];
-return (clojure.lang.Symbol.intern(name_1))}
-return (clojure.lang.Symbol.intern(ns_1,name_2))})))}).apply(null,[]);
-
-//======
-//(defn keyword "Returns a Keyword with the given namespace and name.  Do not use :\n  in the keyword strings, it will be added automatically." ([name] (. clojure.lang.Keyword (intern nil name))) ([ns name] (. clojure.lang.Keyword (intern ns name))))
-//---
-(function __clojure_fn_3137(){
-return (clojure.JS.def(clojure,"keyword",(function __clojure_fn_3137_keyword_3139(ns_1,name_2){switch(arguments.length){
-case 1:var name_1=arguments[0];
-return (clojure.lang.Keyword.intern(null,name_1))}
-return (clojure.lang.Keyword.intern(ns_1,name_2))})))}).apply(null,[]);
+// Skipping: (defn symbol "Returns a Symbol with the given namespace and name." ([name] (. clojure.lang.Symbol (intern name))) ([ns name] (. clojure.lang.Symbol (intern ns name))))
+// Skipping: (defn keyword "Returns a Keyword with the given namespace and name.  Do not use :\n  in the keyword strings, it will be added automatically." ([name] (. clojure.lang.Keyword (intern nil name))) ([ns name] (. clojure.lang.Keyword (intern ns name))))
 
 //======
 //(defn gensym "Returns a new symbol with a unique name. If a prefix string is\n  supplied, the name is prefix# where # is some unique number. If\n  prefix is not supplied, the prefix is 'G'." ([] (gensym "G__")) ([prefix-string] (. clojure.lang.Symbol (intern (str prefix-string (str (. clojure.lang.RT (nextID))))))))
 //---
-(function __clojure_fn_3144(){
-return (clojure.JS.def(clojure,"gensym",(function __clojure_fn_3144_gensym_3146(prefix_string_1){switch(arguments.length){
+(function __clojure_fn_3139(){
+return (clojure.JS.def(clojure,"gensym",(function __clojure_fn_3139_gensym_3141(prefix_string_1){switch(arguments.length){
 case 0:return (clojure.gensym.apply(null,["G__"]))}
 return (clojure.lang.Symbol.intern(clojure.str.apply(null,[prefix_string_1,clojure.str.apply(null,[clojure.lang.RT.nextID()])])))})))}).apply(null,[]);
 // Skipping: (defmacro cond "Takes a set of test/expr pairs. It evaluates each test one at a\n  time.  If a test returns logical true, cond evaluates and returns\n  the value of the corresponding expr and doesn't evaluate any of the\n  other tests or exprs. (cond) returns nil." [& clauses] (when clauses (list (quote if) (first clauses) (second clauses) (cons (quote cond) (rest (rest clauses))))))
@@ -275,16 +259,16 @@ return (clojure.lang.Symbol.intern(clojure.str.apply(null,[prefix_string_1,cloju
 //======
 //(defn spread {:private true} [arglist] (cond (nil? arglist) nil (nil? (rest arglist)) (seq (first arglist)) :else (cons (first arglist) (spread (rest arglist)))))
 //---
-(function __clojure_fn_3157(){
-return (clojure.JS.def(clojure,"spread",(function __clojure_fn_3157_spread_3159(arglist_1){
+(function __clojure_fn_3152(){
+return (clojure.JS.def(clojure,"spread",(function __clojure_fn_3152_spread_3154(arglist_1){
 return (((clojure.nil_QMARK_.apply(null,[arglist_1]))?(null):(((clojure.nil_QMARK_.apply(null,[clojure.rest.apply(null,[arglist_1])]))?(clojure.seq.apply(null,[clojure.first.apply(null,[arglist_1])])):(((clojure.keyword("","else"))?(clojure.cons.apply(null,[clojure.first.apply(null,[arglist_1]),clojure.spread.apply(null,[clojure.rest.apply(null,[arglist_1])])])):(null)))))))})))}).apply(null,[]);
 // Skipping: (defn apply "Applies fn f to the argument list formed by prepending args to argseq." {:arglists (quote ([f args* argseq]))} [f & args] (. f (applyTo (spread args))))
 
 //======
 //(defn list* "Creates a new list containing the item prepended to more." [item & more] (spread (cons item more)))
 //---
-(function __clojure_fn_3169(){
-return (clojure.JS.def(clojure,"list_STAR_",clojure.JS.variadic(1,(function __clojure_fn_3169_list_STAR_3171(item_1){
+(function __clojure_fn_3164(){
+return (clojure.JS.def(clojure,"list_STAR_",clojure.JS.variadic(1,(function __clojure_fn_3164_list_STAR_3166(item_1){
 var more_2=clojure.JS.rest_args(this,arguments,1);
 return (clojure.spread.apply(null,[clojure.cons.apply(null,[item_1,more_2])]))}))))}).apply(null,[]);
 // Skipping: (defmacro delay "Takes a body of expressions and yields a Delay object than will\n  invoke the body only the first time it is forced (with force), and\n  will cache the result and return it on all subsequent force calls" [& body] (list (quote new) (quote clojure.lang.Delay) (list* (quote clojure/fn) [] body)))
@@ -292,46 +276,46 @@ return (clojure.spread.apply(null,[clojure.cons.apply(null,[item_1,more_2])]))})
 //======
 //(defn delay? "returns true if x is a Delay created with delay" [x] (instance? clojure.lang.Delay x))
 //---
-(function __clojure_fn_3181(){
-return (clojure.JS.def(clojure,"delay_QMARK_",(function __clojure_fn_3181_delay_QMARK_3183(x_1){
+(function __clojure_fn_3176(){
+return (clojure.JS.def(clojure,"delay_QMARK_",(function __clojure_fn_3176_delay_QMARK_3178(x_1){
 return (clojure.instance_QMARK_.apply(null,[clojure.lang.Delay,x_1]))})))}).apply(null,[]);
 
 //======
 //(defn force "If x is a Delay, returns the (possibly cached) value of its expression, else returns x" [x] (. clojure.lang.Delay (force x)))
 //---
-(function __clojure_fn_3187(){
-return (clojure.JS.def(clojure,"force",(function __clojure_fn_3187_force_3189(x_1){
+(function __clojure_fn_3182(){
+return (clojure.JS.def(clojure,"force",(function __clojure_fn_3182_force_3184(x_1){
 return (clojure.lang.Delay.force(x_1))})))}).apply(null,[]);
 
 //======
 //(defn fnseq "Returns a seq object whose first is first and whose rest is the\n  value produced by calling restfn with no arguments. restfn will be\n  called at most once per step in the sequence, e.g. calling rest\n  repeatedly on the head of the seq calls restfn once - the value it\n  yields is cached." [first restfn] (new clojure.lang.FnSeq first restfn))
 //---
-(function __clojure_fn_3193(){
-return (clojure.JS.def(clojure,"fnseq",(function __clojure_fn_3193_fnseq_3195(first_1,restfn_2){
+(function __clojure_fn_3188(){
+return (clojure.JS.def(clojure,"fnseq",(function __clojure_fn_3188_fnseq_3190(first_1,restfn_2){
 return ((new clojure.lang.FnSeq(first_1,restfn_2)))})))}).apply(null,[]);
 // Skipping: (defmacro lazy-cons "Expands to code which produces a seq object whose first is\n  first-expr and whose rest is rest-expr, neither of which is\n  evaluated until first/rest is called. Each expr will be evaluated at most\n  once per step in the sequence, e.g. calling first/rest repeatedly on the\n  same node of the seq evaluates first/rest-expr once - the values they yield are\n  cached." [first-expr & rest-expr] (list (quote new) (quote clojure.lang.LazyCons) (list (quote clojure/fn) (list [] first-expr) (list* [(gensym)] rest-expr))))
 
 //======
 //(defn cache-seq "Given a seq s, returns a lazy seq that will touch each element of s\n  at most once, caching the results." [s] (when s (clojure.lang.CachedSeq. s)))
 //---
-(function __clojure_fn_3205(){
-return (clojure.JS.def(clojure,"cache_seq",(function __clojure_fn_3205_cache_seq_3207(s_1){
+(function __clojure_fn_3200(){
+return (clojure.JS.def(clojure,"cache_seq",(function __clojure_fn_3200_cache_seq_3202(s_1){
 return (((s_1)?((new clojure.lang.CachedSeq(s_1))):(null)))})))}).apply(null,[]);
 
 //======
 //(defn concat "Returns a lazy seq representing the concatenation of\tthe elements in the supplied colls." ([] nil) ([x] (seq x)) ([x y] (if (seq x) (lazy-cons (first x) (concat (rest x) y)) (seq y))) ([x y & zs] (let [cat (fn cat [xys zs] (if (seq xys) (lazy-cons (first xys) (cat (rest xys) zs)) (when zs (recur (first zs) (rest zs)))))] (cat (concat x y) zs))))
 //---
-(function __clojure_fn_3211(){
-return (clojure.JS.def(clojure,"concat",clojure.JS.variadic(2,(function __clojure_fn_3211_concat_3213(x_1,y_2){switch(arguments.length){
-case 1:return (clojure.seq.apply(null,[x_1]))
+(function __clojure_fn_3206(){
+return (clojure.JS.def(clojure,"concat",clojure.JS.variadic(2,(function __clojure_fn_3206_concat_3208(x_1,y_2){switch(arguments.length){
 case 0:return (null)
-case 2:return (((clojure.seq.apply(null,[x_1]))?((new clojure.lang.LazyCons((function __clojure_fn_3211_concat_3213_fn_3218(G__3217_1){switch(arguments.length){
+case 2:return (((clojure.seq.apply(null,[x_1]))?((new clojure.lang.LazyCons((function __clojure_fn_3206_concat_3208_fn_3213(G__3212_1){switch(arguments.length){
 case 0:return (clojure.first.apply(null,[x_1]))}
-return (clojure.concat.apply(null,[clojure.rest.apply(null,[x_1]),y_2]))})))):(clojure.seq.apply(null,[y_2]))))}
+return (clojure.concat.apply(null,[clojure.rest.apply(null,[x_1]),y_2]))})))):(clojure.seq.apply(null,[y_2]))))
+case 1:return (clojure.seq.apply(null,[x_1]))}
 var cat_4,zs_3=clojure.JS.rest_args(this,arguments,2);
-return (((cat_4=(function __clojure_fn_3211_concat_3213_cat_3223(xys_1,zs_2){
+return (((cat_4=(function __clojure_fn_3206_concat_3208_cat_3218(xys_1,zs_2){
 var _cnt,_rtn,cat_0=arguments.callee;
-do{_cnt=0;_rtn=((clojure.seq.apply(null,[xys_1]))?((new clojure.lang.LazyCons((function __clojure_fn_3211_concat_3213_cat_3223_fn_3225(G__3224_1){switch(arguments.length){
+do{_cnt=0;_rtn=((clojure.seq.apply(null,[xys_1]))?((new clojure.lang.LazyCons((function __clojure_fn_3206_concat_3208_cat_3218_fn_3220(G__3219_1){switch(arguments.length){
 case 0:return (clojure.first.apply(null,[xys_1]))}
 return (cat_0.apply(null,[clojure.rest.apply(null,[xys_1]),zs_2]))})))):(((zs_2)?((_cnt=1,_rtn=[clojure.first.apply(null,[zs_2]),clojure.rest.apply(null,[zs_2])],xys_1=_rtn[0],zs_2=_rtn[1])):(null))))
 }while(_cnt);return _rtn;})),
@@ -340,10 +324,10 @@ cat_4.apply(null,[clojure.concat.apply(null,[x_1,y_2]),zs_3])))}))))}).apply(nul
 //======
 //(defn = "Equality. Returns true if x equals y, false if not. Same as\n  Java x.equals(y) except it also works for nil, and compares\n  numbers in a type-independent manner.  Clojure's immutable data\n  structures define equals() (and thus =) as a value, not an identity,\n  comparison." {:tag Boolean, :inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Util)) (clojure/list (quote clojure/equal)) (clojure/list x) (clojure/list y))), :inline-arities #{2}} ([x] true) ([x y] (. clojure.lang.Util (equal x y))) ([x y & more] (if (= x y) (if (rest more) (recur y (first more) (rest more)) (= y (first more))) false)))
 //---
-(function __clojure_fn_3232(){
-return (clojure.JS.def(clojure,"_EQ_",clojure.JS.variadic(2,(function __clojure_fn_3232_EQ_3237(x_1,y_2){switch(arguments.length){
-case 2:return (clojure.lang.Util.equal(x_1,y_2))
-case 1:return (true)}
+(function __clojure_fn_3227(){
+return (clojure.JS.def(clojure,"_EQ_",clojure.JS.variadic(2,(function __clojure_fn_3227_EQ_3232(x_1,y_2){switch(arguments.length){
+case 1:return (true)
+case 2:return (clojure.lang.Util.equal(x_1,y_2))}
 var _cnt,_rtn,more_3=clojure.JS.rest_args(this,arguments,2);
 do{_cnt=0;_rtn=((clojure.lang.Util.equal(x_1,y_2))?(((clojure.rest.apply(null,[more_3]))?((_cnt=1,_rtn=[y_2,clojure.first.apply(null,[more_3]),clojure.rest.apply(null,[more_3])],x_1=_rtn[0],y_2=_rtn[1],more_3=_rtn[2])):(clojure.lang.Util.equal(y_2,clojure.first.apply(null,[more_3]))))):(false))
 }while(_cnt);return _rtn;}))))}).apply(null,[]);
@@ -351,8 +335,8 @@ do{_cnt=0;_rtn=((clojure.lang.Util.equal(x_1,y_2))?(((clojure.rest.apply(null,[m
 //======
 //(defn not= "Same as (not (= obj1 obj2))" {:tag Boolean} ([x] false) ([x y] (not (= x y))) ([x y & more] (not (apply = x y more))))
 //---
-(function __clojure_fn_3243(){
-return (clojure.JS.def(clojure,"not_EQ_",clojure.JS.variadic(2,(function __clojure_fn_3243_not_EQ_3245(x_1,y_2){switch(arguments.length){
+(function __clojure_fn_3238(){
+return (clojure.JS.def(clojure,"not_EQ_",clojure.JS.variadic(2,(function __clojure_fn_3238_not_EQ_3240(x_1,y_2){switch(arguments.length){
 case 2:return (clojure.not.apply(null,[clojure.lang.Util.equal(x_1,y_2)]))
 case 1:return (false)}
 var more_3=clojure.JS.rest_args(this,arguments,2);
@@ -361,23 +345,23 @@ return (clojure.not.apply(null,[clojure.apply.apply(null,[clojure._EQ_,x_1,y_2,m
 //======
 //(defn compare "Comparator. Returns 0 if x equals y, -1 if x is logically 'less\n  than' y, else 1. Same as Java x.compareTo(y) except it also works\n  for nil, and compares numbers in a type-independent manner. x must\n  implement Comparable" {:tag Integer, :inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Util)) (clojure/list (quote clojure/compare)) (clojure/list x) (clojure/list y)))} [x y] (. clojure.lang.Util (compare x y)))
 //---
-(function __clojure_fn_3251(){
-return (clojure.JS.def(clojure,"compare",(function __clojure_fn_3251_compare_3256(x_1,y_2){
+(function __clojure_fn_3246(){
+return (clojure.JS.def(clojure,"compare",(function __clojure_fn_3246_compare_3251(x_1,y_2){
 return (clojure.lang.Util.compare(x_1,y_2))})))}).apply(null,[]);
-// Skipping: (defmacro and "Evaluates exprs one at a time, from left to right. If a form\n  returns logical false (nil or false), and returns that value and\n  doesn't evaluate any of the other expressions, otherwise it returns\n  the value of the last expr. (and) returns true." ([] true) ([x] x) ([x & rest] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote and__3260)) (clojure/list x)))) (clojure/list (clojure/concat (clojure/list (quote if)) (clojure/list (quote and__3260)) (clojure/list (clojure/concat (clojure/list (quote clojure/and)) rest)) (clojure/list (quote and__3260)))))))
-// Skipping: (defmacro or "Evaluates exprs one at a time, from left to right. If a form\n  returns a logical true value, or returns that value and doesn't\n  evaluate any of the other expressions, otherwise it returns the\n  value of the last expression. (or) returns nil." ([] nil) ([x] x) ([x & rest] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote or__3269)) (clojure/list x)))) (clojure/list (clojure/concat (clojure/list (quote if)) (clojure/list (quote or__3269)) (clojure/list (quote or__3269)) (clojure/list (clojure/concat (clojure/list (quote clojure/or)) rest)))))))
+// Skipping: (defmacro and "Evaluates exprs one at a time, from left to right. If a form\n  returns logical false (nil or false), and returns that value and\n  doesn't evaluate any of the other expressions, otherwise it returns\n  the value of the last expr. (and) returns true." ([] true) ([x] x) ([x & rest] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote and__3255)) (clojure/list x)))) (clojure/list (clojure/concat (clojure/list (quote if)) (clojure/list (quote and__3255)) (clojure/list (clojure/concat (clojure/list (quote clojure/and)) rest)) (clojure/list (quote and__3255)))))))
+// Skipping: (defmacro or "Evaluates exprs one at a time, from left to right. If a form\n  returns a logical true value, or returns that value and doesn't\n  evaluate any of the other expressions, otherwise it returns the\n  value of the last expression. (or) returns nil." ([] nil) ([x] x) ([x & rest] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote or__3264)) (clojure/list x)))) (clojure/list (clojure/concat (clojure/list (quote if)) (clojure/list (quote or__3264)) (clojure/list (quote or__3264)) (clojure/list (clojure/concat (clojure/list (quote clojure/or)) rest)))))))
 
 //======
 //(defn reduce "f should be a function of 2 arguments. If val is not supplied,\n  returns the result of applying f to the first 2 items in coll, then\n  applying f to that result and the 3rd item, etc. If coll contains no\n  items, f must accept no arguments as well, and reduce returns the\n  result of calling f with no arguments.  If coll has only 1 item, it\n  is returned and f is not called.  If val is supplied, returns the\n  result of applying f to val and the first item in coll, then\n  applying f to that result and the 2nd item, etc. If coll contains no\n  items, returns val and f is not called." ([f coll] (let [s (seq coll)] (if s (if (instance? clojure.lang.IReduce s) (. s (reduce f)) (reduce f (first s) (rest s))) (f)))) ([f val coll] (let [s (seq coll)] (if (instance? clojure.lang.IReduce s) (. s (reduce f val)) ((fn [f val s] (if s (recur f (f val (first s)) (rest s)) val)) f val s)))))
 //---
-(function __clojure_fn_3278(){
-return (clojure.JS.def(clojure,"reduce",(function __clojure_fn_3278_reduce_3280(f_1,val_2,coll_3){switch(arguments.length){
+(function __clojure_fn_3273(){
+return (clojure.JS.def(clojure,"reduce",(function __clojure_fn_3273_reduce_3275(f_1,val_2,coll_3){switch(arguments.length){
 case 2:var s_3,coll_2=arguments[1];
 return (((s_3=clojure.seq.apply(null,[coll_2])),
 ((s_3)?(((clojure.instance_QMARK_.apply(null,[clojure.lang.IReduce,s_3]))?((s_3).reduce(f_1)):(clojure.reduce.apply(null,[f_1,clojure.first.apply(null,[s_3]),clojure.rest.apply(null,[s_3])])))):(f_1.apply(null,[])))))}
 var s_4;
 return (((s_4=clojure.seq.apply(null,[coll_3])),
-((clojure.instance_QMARK_.apply(null,[clojure.lang.IReduce,s_4]))?((s_4).reduce(f_1,val_2)):((function __clojure_fn_3278_reduce_3280_fn_3283(f_1,val_2,s_3){
+((clojure.instance_QMARK_.apply(null,[clojure.lang.IReduce,s_4]))?((s_4).reduce(f_1,val_2)):((function __clojure_fn_3273_reduce_3275_fn_3278(f_1,val_2,s_3){
 var _cnt,_rtn;
 do{_cnt=0;_rtn=((s_3)?((_cnt=1,_rtn=[f_1,f_1.apply(null,[val_2,clojure.first.apply(null,[s_3])]),clojure.rest.apply(null,[s_3])],f_1=_rtn[0],val_2=_rtn[1],s_3=_rtn[2])):(val_2))
 }while(_cnt);return _rtn;}).apply(null,[f_1,val_2,s_4])))))})))}).apply(null,[]);
@@ -385,37 +369,37 @@ do{_cnt=0;_rtn=((s_3)?((_cnt=1,_rtn=[f_1,f_1.apply(null,[val_2,clojure.first.app
 //======
 //(defn reverse "Returns a seq of the items in coll in reverse order. Not lazy." [coll] (reduce conj nil coll))
 //---
-(function __clojure_fn_3288(){
-return (clojure.JS.def(clojure,"reverse",(function __clojure_fn_3288_reverse_3290(coll_1){
+(function __clojure_fn_3283(){
+return (clojure.JS.def(clojure,"reverse",(function __clojure_fn_3283_reverse_3285(coll_1){
 return (clojure.reduce.apply(null,[clojure.conj,null,coll_1]))})))}).apply(null,[]);
 
 //======
 //(defn + "Returns the sum of nums. (+) returns 0." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/add)) (clojure/list x) (clojure/list y))))), :inline-arities #{2}} ([] 0) ([x] (clojure.lang.RT/numberCast x)) ([x y] (. clojure.lang.Numbers (add x y))) ([x y & more] (reduce + (+ x y) more)))
 //---
-(function __clojure_fn_3294(){
-return (clojure.JS.def(clojure,"_PLUS_",clojure.JS.variadic(2,(function __clojure_fn_3294_PLUS_3299(x_1,y_2){switch(arguments.length){
-case 1:return (clojure.lang.RT.numberCast(x_1))
+(function __clojure_fn_3289(){
+return (clojure.JS.def(clojure,"_PLUS_",clojure.JS.variadic(2,(function __clojure_fn_3289_PLUS_3294(x_1,y_2){switch(arguments.length){
 case 2:return (clojure.lang.Numbers.add(x_1,y_2))
-case 0:return ((0))}
+case 0:return ((0))
+case 1:return (clojure.lang.RT.numberCast(x_1))}
 var more_3=clojure.JS.rest_args(this,arguments,2);
 return (clojure.reduce.apply(null,[clojure._PLUS_,clojure.lang.Numbers.add(x_1,y_2),more_3]))}))))}).apply(null,[]);
 
 //======
 //(defn * "Returns the product of nums. (*) returns 1." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/multiply)) (clojure/list x) (clojure/list y))))), :inline-arities #{2}} ([] 1) ([x] (clojure.lang.RT/numberCast x)) ([x y] (. clojure.lang.Numbers (multiply x y))) ([x y & more] (reduce * (* x y) more)))
 //---
-(function __clojure_fn_3306(){
-return (clojure.JS.def(clojure,"_STAR_",clojure.JS.variadic(2,(function __clojure_fn_3306_STAR_3311(x_1,y_2){switch(arguments.length){
+(function __clojure_fn_3301(){
+return (clojure.JS.def(clojure,"_STAR_",clojure.JS.variadic(2,(function __clojure_fn_3301_STAR_3306(x_1,y_2){switch(arguments.length){
 case 2:return (clojure.lang.Numbers.multiply(x_1,y_2))
-case 1:return (clojure.lang.RT.numberCast(x_1))
-case 0:return ((1))}
+case 0:return ((1))
+case 1:return (clojure.lang.RT.numberCast(x_1))}
 var more_3=clojure.JS.rest_args(this,arguments,2);
 return (clojure.reduce.apply(null,[clojure._STAR_,clojure.lang.Numbers.multiply(x_1,y_2),more_3]))}))))}).apply(null,[]);
 
 //======
 //(defn / "If no denominators are supplied, returns 1/numerator,\n  else returns numerator divided by all of the denominators." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/divide)) (clojure/list x) (clojure/list y))))), :inline-arities #{2}} ([x] (/ 1 x)) ([x y] (. clojure.lang.Numbers (divide x y))) ([x y & more] (reduce / (/ x y) more)))
 //---
-(function __clojure_fn_3318(){
-return (clojure.JS.def(clojure,"_SLASH_",clojure.JS.variadic(2,(function __clojure_fn_3318_SLASH_3323(x_1,y_2){switch(arguments.length){
+(function __clojure_fn_3313(){
+return (clojure.JS.def(clojure,"_SLASH_",clojure.JS.variadic(2,(function __clojure_fn_3313_SLASH_3318(x_1,y_2){switch(arguments.length){
 case 2:return (clojure.lang.Numbers.divide(x_1,y_2))
 case 1:return (clojure.lang.Numbers.divide((1),x_1))}
 var more_3=clojure.JS.rest_args(this,arguments,2);
@@ -424,18 +408,18 @@ return (clojure.reduce.apply(null,[clojure._SLASH_,clojure.lang.Numbers.divide(x
 //======
 //(defn - "If no ys are supplied, returns the negation of x, else subtracts\n  the ys from x and returns the result." {:inline (fn [& args] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/minus)) args)))), :inline-arities #{1 2}} ([x] (. clojure.lang.Numbers (minus x))) ([x y] (. clojure.lang.Numbers (minus x y))) ([x y & more] (reduce - (- x y) more)))
 //---
-(function __clojure_fn_3329(){
-return (clojure.JS.def(clojure,"_",clojure.JS.variadic(2,(function __clojure_fn_3329_3334(x_1,y_2){switch(arguments.length){
-case 2:return (clojure.lang.Numbers.minus(x_1,y_2))
-case 1:return (clojure.lang.Numbers.minus(x_1))}
+(function __clojure_fn_3324(){
+return (clojure.JS.def(clojure,"_",clojure.JS.variadic(2,(function __clojure_fn_3324_3329(x_1,y_2){switch(arguments.length){
+case 1:return (clojure.lang.Numbers.minus(x_1))
+case 2:return (clojure.lang.Numbers.minus(x_1,y_2))}
 var more_3=clojure.JS.rest_args(this,arguments,2);
 return (clojure.reduce.apply(null,[clojure._,clojure.lang.Numbers.minus(x_1,y_2),more_3]))}))))}).apply(null,[]);
 
 //======
 //(defn < "Returns non-nil if nums are in monotonically increasing order,\n  otherwise false." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/lt)) (clojure/list x) (clojure/list y))))), :inline-arities #{2}} ([x] true) ([x y] (. clojure.lang.Numbers (lt x y))) ([x y & more] (if (< x y) (if (rest more) (recur y (first more) (rest more)) (< y (first more))) false)))
 //---
-(function __clojure_fn_3340(){
-return (clojure.JS.def(clojure,"_LT_",clojure.JS.variadic(2,(function __clojure_fn_3340_LT_3345(x_1,y_2){switch(arguments.length){
+(function __clojure_fn_3335(){
+return (clojure.JS.def(clojure,"_LT_",clojure.JS.variadic(2,(function __clojure_fn_3335_LT_3340(x_1,y_2){switch(arguments.length){
 case 1:return (true)
 case 2:return (clojure.lang.Numbers.lt(x_1,y_2))}
 var _cnt,_rtn,more_3=clojure.JS.rest_args(this,arguments,2);
@@ -445,8 +429,8 @@ do{_cnt=0;_rtn=((clojure.lang.Numbers.lt(x_1,y_2))?(((clojure.rest.apply(null,[m
 //======
 //(defn <= "Returns non-nil if nums are in monotonically non-decreasing order,\n  otherwise false." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/lte)) (clojure/list x) (clojure/list y))))), :inline-arities #{2}} ([x] true) ([x y] (. clojure.lang.Numbers (lte x y))) ([x y & more] (if (<= x y) (if (rest more) (recur y (first more) (rest more)) (<= y (first more))) false)))
 //---
-(function __clojure_fn_3351(){
-return (clojure.JS.def(clojure,"_LT__EQ_",clojure.JS.variadic(2,(function __clojure_fn_3351_LT_EQ_3356(x_1,y_2){switch(arguments.length){
+(function __clojure_fn_3346(){
+return (clojure.JS.def(clojure,"_LT__EQ_",clojure.JS.variadic(2,(function __clojure_fn_3346_LT_EQ_3351(x_1,y_2){switch(arguments.length){
 case 1:return (true)
 case 2:return (clojure.lang.Numbers.lte(x_1,y_2))}
 var _cnt,_rtn,more_3=clojure.JS.rest_args(this,arguments,2);
@@ -456,10 +440,10 @@ do{_cnt=0;_rtn=((clojure.lang.Numbers.lte(x_1,y_2))?(((clojure.rest.apply(null,[
 //======
 //(defn > "Returns non-nil if nums are in monotonically decreasing order,\n  otherwise false." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/gt)) (clojure/list x) (clojure/list y))))), :inline-arities #{2}} ([x] true) ([x y] (. clojure.lang.Numbers (gt x y))) ([x y & more] (if (> x y) (if (rest more) (recur y (first more) (rest more)) (> y (first more))) false)))
 //---
-(function __clojure_fn_3362(){
-return (clojure.JS.def(clojure,"_GT_",clojure.JS.variadic(2,(function __clojure_fn_3362_GT_3367(x_1,y_2){switch(arguments.length){
-case 1:return (true)
-case 2:return (clojure.lang.Numbers.gt(x_1,y_2))}
+(function __clojure_fn_3357(){
+return (clojure.JS.def(clojure,"_GT_",clojure.JS.variadic(2,(function __clojure_fn_3357_GT_3362(x_1,y_2){switch(arguments.length){
+case 2:return (clojure.lang.Numbers.gt(x_1,y_2))
+case 1:return (true)}
 var _cnt,_rtn,more_3=clojure.JS.rest_args(this,arguments,2);
 do{_cnt=0;_rtn=((clojure.lang.Numbers.gt(x_1,y_2))?(((clojure.rest.apply(null,[more_3]))?((_cnt=1,_rtn=[y_2,clojure.first.apply(null,[more_3]),clojure.rest.apply(null,[more_3])],x_1=_rtn[0],y_2=_rtn[1],more_3=_rtn[2])):(clojure.lang.Numbers.gt(y_2,clojure.first.apply(null,[more_3]))))):(false))
 }while(_cnt);return _rtn;}))))}).apply(null,[]);
@@ -467,8 +451,8 @@ do{_cnt=0;_rtn=((clojure.lang.Numbers.gt(x_1,y_2))?(((clojure.rest.apply(null,[m
 //======
 //(defn >= "Returns non-nil if nums are in monotonically non-increasing order,\n  otherwise false." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/gte)) (clojure/list x) (clojure/list y))))), :inline-arities #{2}} ([x] true) ([x y] (. clojure.lang.Numbers (gte x y))) ([x y & more] (if (>= x y) (if (rest more) (recur y (first more) (rest more)) (>= y (first more))) false)))
 //---
-(function __clojure_fn_3373(){
-return (clojure.JS.def(clojure,"_GT__EQ_",clojure.JS.variadic(2,(function __clojure_fn_3373_GT_EQ_3378(x_1,y_2){switch(arguments.length){
+(function __clojure_fn_3368(){
+return (clojure.JS.def(clojure,"_GT__EQ_",clojure.JS.variadic(2,(function __clojure_fn_3368_GT_EQ_3373(x_1,y_2){switch(arguments.length){
 case 2:return (clojure.lang.Numbers.gte(x_1,y_2))
 case 1:return (true)}
 var _cnt,_rtn,more_3=clojure.JS.rest_args(this,arguments,2);
@@ -478,8 +462,8 @@ do{_cnt=0;_rtn=((clojure.lang.Numbers.gte(x_1,y_2))?(((clojure.rest.apply(null,[
 //======
 //(defn == "Returns non-nil if nums all have the same value, otherwise false" {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/equiv)) (clojure/list x) (clojure/list y))))), :inline-arities #{2}} ([x] true) ([x y] (. clojure.lang.Numbers (equiv x y))) ([x y & more] (if (== x y) (if (rest more) (recur y (first more) (rest more)) (== y (first more))) false)))
 //---
-(function __clojure_fn_3384(){
-return (clojure.JS.def(clojure,"_EQ__EQ_",clojure.JS.variadic(2,(function __clojure_fn_3384_EQ_EQ_3389(x_1,y_2){switch(arguments.length){
+(function __clojure_fn_3379(){
+return (clojure.JS.def(clojure,"_EQ__EQ_",clojure.JS.variadic(2,(function __clojure_fn_3379_EQ_EQ_3384(x_1,y_2){switch(arguments.length){
 case 1:return (true)
 case 2:return (clojure.lang.Numbers.equiv(x_1,y_2))}
 var _cnt,_rtn,more_3=clojure.JS.rest_args(this,arguments,2);
@@ -489,8 +473,8 @@ do{_cnt=0;_rtn=((clojure.lang.Numbers.equiv(x_1,y_2))?(((clojure.rest.apply(null
 //======
 //(defn max "Returns the greatest of the nums." ([x] x) ([x y] (if (> x y) x y)) ([x y & more] (reduce max (max x y) more)))
 //---
-(function __clojure_fn_3395(){
-return (clojure.JS.def(clojure,"max",clojure.JS.variadic(2,(function __clojure_fn_3395_max_3397(x_1,y_2){switch(arguments.length){
+(function __clojure_fn_3390(){
+return (clojure.JS.def(clojure,"max",clojure.JS.variadic(2,(function __clojure_fn_3390_max_3392(x_1,y_2){switch(arguments.length){
 case 2:return (((clojure.lang.Numbers.gt(x_1,y_2))?(x_1):(y_2)))
 case 1:return (x_1)}
 var more_3=clojure.JS.rest_args(this,arguments,2);
@@ -499,8 +483,8 @@ return (clojure.reduce.apply(null,[clojure.max,clojure.max.apply(null,[x_1,y_2])
 //======
 //(defn min "Returns the least of the nums." ([x] x) ([x y] (if (< x y) x y)) ([x y & more] (reduce min (min x y) more)))
 //---
-(function __clojure_fn_3403(){
-return (clojure.JS.def(clojure,"min",clojure.JS.variadic(2,(function __clojure_fn_3403_min_3405(x_1,y_2){switch(arguments.length){
+(function __clojure_fn_3398(){
+return (clojure.JS.def(clojure,"min",clojure.JS.variadic(2,(function __clojure_fn_3398_min_3400(x_1,y_2){switch(arguments.length){
 case 1:return (x_1)
 case 2:return (((clojure.lang.Numbers.lt(x_1,y_2))?(x_1):(y_2)))}
 var more_3=clojure.JS.rest_args(this,arguments,2);
@@ -509,237 +493,237 @@ return (clojure.reduce.apply(null,[clojure.min,clojure.min.apply(null,[x_1,y_2])
 //======
 //(defn inc "Returns a number one greater than num." {:inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/inc)) (clojure/list x)))))} [x] (. clojure.lang.Numbers (inc x)))
 //---
-(function __clojure_fn_3411(){
-return (clojure.JS.def(clojure,"inc",(function __clojure_fn_3411_inc_3416(x_1){
+(function __clojure_fn_3406(){
+return (clojure.JS.def(clojure,"inc",(function __clojure_fn_3406_inc_3411(x_1){
 return (clojure.lang.Numbers.inc(x_1))})))}).apply(null,[]);
 
 //======
 //(defn dec "Returns a number one less than num." {:inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/dec)) (clojure/list x)))))} [x] (. clojure.lang.Numbers (dec x)))
 //---
-(function __clojure_fn_3420(){
-return (clojure.JS.def(clojure,"dec",(function __clojure_fn_3420_dec_3425(x_1){
+(function __clojure_fn_3415(){
+return (clojure.JS.def(clojure,"dec",(function __clojure_fn_3415_dec_3420(x_1){
 return (clojure.lang.Numbers.dec(x_1))})))}).apply(null,[]);
 
 //======
 //(defn unchecked-inc "Returns a number one greater than x, an int or long. \n  Note - uses a primitive operator subject to overflow." {:inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked_inc)) (clojure/list x)))))} [x] (. clojure.lang.Numbers (unchecked_inc x)))
 //---
-(function __clojure_fn_3429(){
-return (clojure.JS.def(clojure,"unchecked_inc",(function __clojure_fn_3429_unchecked_inc_3434(x_1){
+(function __clojure_fn_3424(){
+return (clojure.JS.def(clojure,"unchecked_inc",(function __clojure_fn_3424_unchecked_inc_3429(x_1){
 return (clojure.lang.Numbers.unchecked_inc(x_1))})))}).apply(null,[]);
 
 //======
 //(defn unchecked-dec "Returns a number one less than x, an int or long. \n  Note - uses a primitive operator subject to overflow." {:inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked_dec)) (clojure/list x)))))} [x] (. clojure.lang.Numbers (unchecked_dec x)))
 //---
-(function __clojure_fn_3438(){
-return (clojure.JS.def(clojure,"unchecked_dec",(function __clojure_fn_3438_unchecked_dec_3443(x_1){
+(function __clojure_fn_3433(){
+return (clojure.JS.def(clojure,"unchecked_dec",(function __clojure_fn_3433_unchecked_dec_3438(x_1){
 return (clojure.lang.Numbers.unchecked_dec(x_1))})))}).apply(null,[]);
 
 //======
 //(defn unchecked-negate "Returns the negation of x, an int or long. \n  Note - uses a primitive operator subject to overflow." {:inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked_negate)) (clojure/list x)))))} [x] (. clojure.lang.Numbers (unchecked_negate x)))
 //---
-(function __clojure_fn_3447(){
-return (clojure.JS.def(clojure,"unchecked_negate",(function __clojure_fn_3447_unchecked_negate_3452(x_1){
+(function __clojure_fn_3442(){
+return (clojure.JS.def(clojure,"unchecked_negate",(function __clojure_fn_3442_unchecked_negate_3447(x_1){
 return (clojure.lang.Numbers.unchecked_negate(x_1))})))}).apply(null,[]);
 
 //======
 //(defn unchecked-add "Returns the sum of x and y, both int or long. \n  Note - uses a primitive operator subject to overflow." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked_add)) (clojure/list x) (clojure/list y)))))} [x y] (. clojure.lang.Numbers (unchecked_add x y)))
 //---
-(function __clojure_fn_3456(){
-return (clojure.JS.def(clojure,"unchecked_add",(function __clojure_fn_3456_unchecked_add_3461(x_1,y_2){
+(function __clojure_fn_3451(){
+return (clojure.JS.def(clojure,"unchecked_add",(function __clojure_fn_3451_unchecked_add_3456(x_1,y_2){
 return (clojure.lang.Numbers.unchecked_add(x_1,y_2))})))}).apply(null,[]);
 
 //======
 //(defn unchecked-subtract "Returns the difference of x and y, both int or long. \n  Note - uses a primitive operator subject to overflow." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked_subtract)) (clojure/list x) (clojure/list y)))))} [x y] (. clojure.lang.Numbers (unchecked_subtract x y)))
 //---
-(function __clojure_fn_3465(){
-return (clojure.JS.def(clojure,"unchecked_subtract",(function __clojure_fn_3465_unchecked_subtract_3470(x_1,y_2){
+(function __clojure_fn_3460(){
+return (clojure.JS.def(clojure,"unchecked_subtract",(function __clojure_fn_3460_unchecked_subtract_3465(x_1,y_2){
 return (clojure.lang.Numbers.unchecked_subtract(x_1,y_2))})))}).apply(null,[]);
 
 //======
 //(defn unchecked-multiply "Returns the product of x and y, both int or long. \n  Note - uses a primitive operator subject to overflow." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked_multiply)) (clojure/list x) (clojure/list y)))))} [x y] (. clojure.lang.Numbers (unchecked_multiply x y)))
 //---
-(function __clojure_fn_3474(){
-return (clojure.JS.def(clojure,"unchecked_multiply",(function __clojure_fn_3474_unchecked_multiply_3479(x_1,y_2){
+(function __clojure_fn_3469(){
+return (clojure.JS.def(clojure,"unchecked_multiply",(function __clojure_fn_3469_unchecked_multiply_3474(x_1,y_2){
 return (clojure.lang.Numbers.unchecked_multiply(x_1,y_2))})))}).apply(null,[]);
 
 //======
 //(defn unchecked-divide "Returns the division of x by y, both int or long. \n  Note - uses a primitive operator subject to truncation." {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked_divide)) (clojure/list x) (clojure/list y)))))} [x y] (. clojure.lang.Numbers (unchecked_divide x y)))
 //---
-(function __clojure_fn_3483(){
-return (clojure.JS.def(clojure,"unchecked_divide",(function __clojure_fn_3483_unchecked_divide_3488(x_1,y_2){
+(function __clojure_fn_3478(){
+return (clojure.JS.def(clojure,"unchecked_divide",(function __clojure_fn_3478_unchecked_divide_3483(x_1,y_2){
 return (clojure.lang.Numbers.unchecked_divide(x_1,y_2))})))}).apply(null,[]);
 
 //======
 //(defn pos? "Returns true if num is greater than zero, else false" {:tag Boolean, :inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/isPos)) (clojure/list x)))))} [x] (. clojure.lang.Numbers (isPos x)))
 //---
-(function __clojure_fn_3492(){
-return (clojure.JS.def(clojure,"pos_QMARK_",(function __clojure_fn_3492_pos_QMARK_3497(x_1){
+(function __clojure_fn_3487(){
+return (clojure.JS.def(clojure,"pos_QMARK_",(function __clojure_fn_3487_pos_QMARK_3492(x_1){
 return (clojure.lang.Numbers.isPos(x_1))})))}).apply(null,[]);
 
 //======
 //(defn neg? "Returns true if num is less than zero, else false" {:tag Boolean, :inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/isNeg)) (clojure/list x)))))} [x] (. clojure.lang.Numbers (isNeg x)))
 //---
-(function __clojure_fn_3501(){
-return (clojure.JS.def(clojure,"neg_QMARK_",(function __clojure_fn_3501_neg_QMARK_3506(x_1){
+(function __clojure_fn_3496(){
+return (clojure.JS.def(clojure,"neg_QMARK_",(function __clojure_fn_3496_neg_QMARK_3501(x_1){
 return (clojure.lang.Numbers.isNeg(x_1))})))}).apply(null,[]);
 
 //======
 //(defn zero? "Returns true if num is zero, else false" {:tag Boolean, :inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/isZero)) (clojure/list x)))))} [x] (. clojure.lang.Numbers (isZero x)))
 //---
-(function __clojure_fn_3510(){
-return (clojure.JS.def(clojure,"zero_QMARK_",(function __clojure_fn_3510_zero_QMARK_3515(x_1){
+(function __clojure_fn_3505(){
+return (clojure.JS.def(clojure,"zero_QMARK_",(function __clojure_fn_3505_zero_QMARK_3510(x_1){
 return (clojure.lang.Numbers.isZero(x_1))})))}).apply(null,[]);
 
 //======
 //(defn quot "quot[ient] of dividing numerator by denominator." [num div] (. clojure.lang.Numbers (quotient num div)))
 //---
-(function __clojure_fn_3519(){
-return (clojure.JS.def(clojure,"quot",(function __clojure_fn_3519_quot_3521(num_1,div_2){
+(function __clojure_fn_3514(){
+return (clojure.JS.def(clojure,"quot",(function __clojure_fn_3514_quot_3516(num_1,div_2){
 return (clojure.lang.Numbers.quotient(num_1,div_2))})))}).apply(null,[]);
 
 //======
 //(defn rem "remainder of dividing numerator by denominator." [num div] (. clojure.lang.Numbers (remainder num div)))
 //---
-(function __clojure_fn_3525(){
-return (clojure.JS.def(clojure,"rem",(function __clojure_fn_3525_rem_3527(num_1,div_2){
+(function __clojure_fn_3520(){
+return (clojure.JS.def(clojure,"rem",(function __clojure_fn_3520_rem_3522(num_1,div_2){
 return (clojure.lang.Numbers.remainder(num_1,div_2))})))}).apply(null,[]);
 
 //======
 //(defn rationalize "returns the rational value of num" [num] (. clojure.lang.Numbers (rationalize num)))
 //---
-(function __clojure_fn_3531(){
-return (clojure.JS.def(clojure,"rationalize",(function __clojure_fn_3531_rationalize_3533(num_1){
+(function __clojure_fn_3526(){
+return (clojure.JS.def(clojure,"rationalize",(function __clojure_fn_3526_rationalize_3528(num_1){
 return (clojure.lang.Numbers.rationalize(num_1))})))}).apply(null,[]);
 
 //======
 //(defn bit-not "Bitwise complement" {:inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/not)) (clojure/list x)))))} [x] (. clojure.lang.Numbers not x))
 //---
-(function __clojure_fn_3537(){
-return (clojure.JS.def(clojure,"bit_not",(function __clojure_fn_3537_bit_not_3542(x_1){
+(function __clojure_fn_3532(){
+return (clojure.JS.def(clojure,"bit_not",(function __clojure_fn_3532_bit_not_3537(x_1){
 return (clojure.lang.Numbers.not(x_1))})))}).apply(null,[]);
 
 //======
 //(defn bit-and "Bitwise and" {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/and)) (clojure/list x) (clojure/list y)))))} [x y] (. clojure.lang.Numbers and x y))
 //---
-(function __clojure_fn_3546(){
-return (clojure.JS.def(clojure,"bit_and",(function __clojure_fn_3546_bit_and_3551(x_1,y_2){
+(function __clojure_fn_3541(){
+return (clojure.JS.def(clojure,"bit_and",(function __clojure_fn_3541_bit_and_3546(x_1,y_2){
 return (clojure.lang.Numbers.and(x_1,y_2))})))}).apply(null,[]);
 
 //======
 //(defn bit-or "Bitwise or" {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/or)) (clojure/list x) (clojure/list y)))))} [x y] (. clojure.lang.Numbers or x y))
 //---
-(function __clojure_fn_3555(){
-return (clojure.JS.def(clojure,"bit_or",(function __clojure_fn_3555_bit_or_3560(x_1,y_2){
+(function __clojure_fn_3550(){
+return (clojure.JS.def(clojure,"bit_or",(function __clojure_fn_3550_bit_or_3555(x_1,y_2){
 return (clojure.lang.Numbers.or(x_1,y_2))})))}).apply(null,[]);
 
 //======
 //(defn bit-xor "Bitwise exclusive or" {:inline (fn [x y] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/xor)) (clojure/list x) (clojure/list y)))))} [x y] (. clojure.lang.Numbers xor x y))
 //---
-(function __clojure_fn_3564(){
-return (clojure.JS.def(clojure,"bit_xor",(function __clojure_fn_3564_bit_xor_3569(x_1,y_2){
+(function __clojure_fn_3559(){
+return (clojure.JS.def(clojure,"bit_xor",(function __clojure_fn_3559_bit_xor_3564(x_1,y_2){
 return (clojure.lang.Numbers.xor(x_1,y_2))})))}).apply(null,[]);
 
 //======
 //(defn bit-and-not "Bitwise and with complement" [x y] (. clojure.lang.Numbers andNot x y))
 //---
-(function __clojure_fn_3573(){
-return (clojure.JS.def(clojure,"bit_and_not",(function __clojure_fn_3573_bit_and_not_3575(x_1,y_2){
+(function __clojure_fn_3568(){
+return (clojure.JS.def(clojure,"bit_and_not",(function __clojure_fn_3568_bit_and_not_3570(x_1,y_2){
 return (clojure.lang.Numbers.andNot(x_1,y_2))})))}).apply(null,[]);
 
 //======
 //(defn bit-clear "Clear bit at index n" [x n] (. clojure.lang.Numbers clearBit x n))
 //---
-(function __clojure_fn_3579(){
-return (clojure.JS.def(clojure,"bit_clear",(function __clojure_fn_3579_bit_clear_3581(x_1,n_2){
+(function __clojure_fn_3574(){
+return (clojure.JS.def(clojure,"bit_clear",(function __clojure_fn_3574_bit_clear_3576(x_1,n_2){
 return (clojure.lang.Numbers.clearBit(x_1,n_2))})))}).apply(null,[]);
 
 //======
 //(defn bit-set "Set bit at index n" [x n] (. clojure.lang.Numbers setBit x n))
 //---
-(function __clojure_fn_3585(){
-return (clojure.JS.def(clojure,"bit_set",(function __clojure_fn_3585_bit_set_3587(x_1,n_2){
+(function __clojure_fn_3580(){
+return (clojure.JS.def(clojure,"bit_set",(function __clojure_fn_3580_bit_set_3582(x_1,n_2){
 return (clojure.lang.Numbers.setBit(x_1,n_2))})))}).apply(null,[]);
 
 //======
 //(defn bit-flip "Flip bit at index n" [x n] (. clojure.lang.Numbers flipBit x n))
 //---
-(function __clojure_fn_3591(){
-return (clojure.JS.def(clojure,"bit_flip",(function __clojure_fn_3591_bit_flip_3593(x_1,n_2){
+(function __clojure_fn_3586(){
+return (clojure.JS.def(clojure,"bit_flip",(function __clojure_fn_3586_bit_flip_3588(x_1,n_2){
 return (clojure.lang.Numbers.flipBit(x_1,n_2))})))}).apply(null,[]);
 
 //======
 //(defn bit-test "Test bit at index n" [x n] (. clojure.lang.Numbers testBit x n))
 //---
-(function __clojure_fn_3597(){
-return (clojure.JS.def(clojure,"bit_test",(function __clojure_fn_3597_bit_test_3599(x_1,n_2){
+(function __clojure_fn_3592(){
+return (clojure.JS.def(clojure,"bit_test",(function __clojure_fn_3592_bit_test_3594(x_1,n_2){
 return (clojure.lang.Numbers.testBit(x_1,n_2))})))}).apply(null,[]);
 
 //======
 //(defn bit-shift-left "Bitwise shift left" [x n] (. clojure.lang.Numbers shiftLeft x n))
 //---
-(function __clojure_fn_3603(){
-return (clojure.JS.def(clojure,"bit_shift_left",(function __clojure_fn_3603_bit_shift_left_3605(x_1,n_2){
+(function __clojure_fn_3598(){
+return (clojure.JS.def(clojure,"bit_shift_left",(function __clojure_fn_3598_bit_shift_left_3600(x_1,n_2){
 return (clojure.lang.Numbers.shiftLeft(x_1,n_2))})))}).apply(null,[]);
 
 //======
 //(defn bit-shift-right "Bitwise shift right" [x n] (. clojure.lang.Numbers shiftRight x n))
 //---
-(function __clojure_fn_3609(){
-return (clojure.JS.def(clojure,"bit_shift_right",(function __clojure_fn_3609_bit_shift_right_3611(x_1,n_2){
+(function __clojure_fn_3604(){
+return (clojure.JS.def(clojure,"bit_shift_right",(function __clojure_fn_3604_bit_shift_right_3606(x_1,n_2){
 return (clojure.lang.Numbers.shiftRight(x_1,n_2))})))}).apply(null,[]);
 
 //======
 //(defn even? "Returns true if n is even, throws an exception if n is not an integer" [n] (zero? (bit-and n 1)))
 //---
-(function __clojure_fn_3615(){
-return (clojure.JS.def(clojure,"even_QMARK_",(function __clojure_fn_3615_even_QMARK_3617(n_1){
+(function __clojure_fn_3610(){
+return (clojure.JS.def(clojure,"even_QMARK_",(function __clojure_fn_3610_even_QMARK_3612(n_1){
 return (clojure.lang.Numbers.isZero(clojure.lang.Numbers.and(n_1,(1))))})))}).apply(null,[]);
 
 //======
 //(defn odd? "Returns true if n is odd, throws an exception if n is not an integer" [n] (not (even? n)))
 //---
-(function __clojure_fn_3621(){
-return (clojure.JS.def(clojure,"odd_QMARK_",(function __clojure_fn_3621_odd_QMARK_3623(n_1){
+(function __clojure_fn_3616(){
+return (clojure.JS.def(clojure,"odd_QMARK_",(function __clojure_fn_3616_odd_QMARK_3618(n_1){
 return (clojure.not.apply(null,[clojure.even_QMARK_.apply(null,[n_1])]))})))}).apply(null,[]);
 
 //======
 //(defn complement "Takes a fn f and returns a fn that takes the same arguments as f,\n  has the same effects, if any, and returns the opposite truth value." [f] (fn [& args] (not (apply f args))))
 //---
-(function __clojure_fn_3627(){
-return (clojure.JS.def(clojure,"complement",(function __clojure_fn_3627_complement_3629(f_1){
-return (clojure.JS.variadic(0,(function __clojure_fn_3627_complement_3629_fn_3631(){
+(function __clojure_fn_3622(){
+return (clojure.JS.def(clojure,"complement",(function __clojure_fn_3622_complement_3624(f_1){
+return (clojure.JS.variadic(0,(function __clojure_fn_3622_complement_3624_fn_3626(){
 var args_1=clojure.JS.rest_args(this,arguments,0);
 return (clojure.not.apply(null,[clojure.apply.apply(null,[f_1,args_1])]))})))})))}).apply(null,[]);
 
 //======
 //(defn constantly "Returns a function that takes any number of arguments and returns x." [x] (fn [& args] x))
 //---
-(function __clojure_fn_3636(){
-return (clojure.JS.def(clojure,"constantly",(function __clojure_fn_3636_constantly_3638(x_1){
-return (clojure.JS.variadic(0,(function __clojure_fn_3636_constantly_3638_fn_3640(){
+(function __clojure_fn_3631(){
+return (clojure.JS.def(clojure,"constantly",(function __clojure_fn_3631_constantly_3633(x_1){
+return (clojure.JS.variadic(0,(function __clojure_fn_3631_constantly_3633_fn_3635(){
 var args_1=clojure.JS.rest_args(this,arguments,0);
 return (x_1)})))})))}).apply(null,[]);
 
 //======
 //(defn identity "Returns its argument." [x] x)
 //---
-(function __clojure_fn_3645(){
-return (clojure.JS.def(clojure,"identity",(function __clojure_fn_3645_identity_3647(x_1){
+(function __clojure_fn_3640(){
+return (clojure.JS.def(clojure,"identity",(function __clojure_fn_3640_identity_3642(x_1){
 return (x_1)})))}).apply(null,[]);
 // Skipping: (defn count "Returns the number of items in the collection. (count nil) returns\n  0.  Also works on strings, arrays, and Java Collections and Maps" [coll] (. clojure.lang.RT (count coll)))
 
 //======
 //(defn peek "For a list or queue, same as first, for a vector, same as, but much\n  more efficient than, last. If the collection is empty, returns nil." [coll] (. clojure.lang.RT (peek coll)))
 //---
-(function __clojure_fn_3657(){
-return (clojure.JS.def(clojure,"peek",(function __clojure_fn_3657_peek_3659(coll_1){
+(function __clojure_fn_3652(){
+return (clojure.JS.def(clojure,"peek",(function __clojure_fn_3652_peek_3654(coll_1){
 return (clojure.lang.RT.peek(coll_1))})))}).apply(null,[]);
 
 //======
 //(defn pop "For a list or queue, returns a new list/queue without the first\n  item, for a vector, returns a new vector without the last item. If\n  the collection is empty, throws an exception.  Note - not the same\n  as rest/butlast." [coll] (. clojure.lang.RT (pop coll)))
 //---
-(function __clojure_fn_3663(){
-return (clojure.JS.def(clojure,"pop",(function __clojure_fn_3663_pop_3665(coll_1){
+(function __clojure_fn_3658(){
+return (clojure.JS.def(clojure,"pop",(function __clojure_fn_3658_pop_3660(coll_1){
 return (clojure.lang.RT.pop(coll_1))})))}).apply(null,[]);
 // Skipping: (defn nth "Returns the value at the index. get returns nil if index out of\n  bounds, nth throws an exception unless not-found is supplied.  nth\n  also works for strings, Java arrays, regex Matchers and Lists, and,\n  in O(n) time, for sequences." ([coll index] (. clojure.lang.RT (nth coll index))) ([coll index not-found] (. clojure.lang.RT (nth coll index not-found))))
 // Skipping: (defn contains? "Returns true if key is present, else false." [map key] (. clojure.lang.RT (contains map key)))
@@ -748,10 +732,10 @@ return (clojure.lang.RT.pop(coll_1))})))}).apply(null,[]);
 //======
 //(defn dissoc "dissoc[iate]. Returns a new map of the same (hashed/sorted) type,\n  that does not contain a mapping for key(s)." ([map] map) ([map key] (. clojure.lang.RT (dissoc map key))) ([map key & ks] (let [ret (dissoc map key)] (if ks (recur ret (first ks) (rest ks)) ret))))
 //---
-(function __clojure_fn_3689(){
-return (clojure.JS.def(clojure,"dissoc",clojure.JS.variadic(2,(function __clojure_fn_3689_dissoc_3691(map_1,key_2){switch(arguments.length){
-case 1:return (map_1)
-case 2:return (clojure.lang.RT.dissoc(map_1,key_2))}
+(function __clojure_fn_3684(){
+return (clojure.JS.def(clojure,"dissoc",clojure.JS.variadic(2,(function __clojure_fn_3684_dissoc_3686(map_1,key_2){switch(arguments.length){
+case 2:return (clojure.lang.RT.dissoc(map_1,key_2))
+case 1:return (map_1)}
 var _cnt,_rtn,ret_4,ks_3=clojure.JS.rest_args(this,arguments,2);
 do{_cnt=0;_rtn=((ret_4=clojure.dissoc.apply(null,[map_1,key_2])),
 ((ks_3)?((_cnt=1,_rtn=[ret_4,clojure.first.apply(null,[ks_3]),clojure.rest.apply(null,[ks_3])],map_1=_rtn[0],key_2=_rtn[1],ks_3=_rtn[2])):(ret_4)))
@@ -760,8 +744,8 @@ do{_cnt=0;_rtn=((ret_4=clojure.dissoc.apply(null,[map_1,key_2])),
 //======
 //(defn disj "disj[oin]. Returns a new set of the same (hashed/sorted) type, that\n  does not contain key(s)." ([set] set) ([set key] (. set (disjoin key))) ([set key & ks] (let [ret (disj set key)] (if ks (recur ret (first ks) (rest ks)) ret))))
 //---
-(function __clojure_fn_3697(){
-return (clojure.JS.def(clojure,"disj",clojure.JS.variadic(2,(function __clojure_fn_3697_disj_3699(set_1,key_2){switch(arguments.length){
+(function __clojure_fn_3692(){
+return (clojure.JS.def(clojure,"disj",clojure.JS.variadic(2,(function __clojure_fn_3692_disj_3694(set_1,key_2){switch(arguments.length){
 case 2:return ((set_1).disjoin(key_2))
 case 1:return (set_1)}
 var _cnt,_rtn,ret_4,ks_3=clojure.JS.rest_args(this,arguments,2);
@@ -773,9 +757,9 @@ do{_cnt=0;_rtn=((ret_4=clojure.disj.apply(null,[set_1,key_2])),
 //======
 //(defn select-keys "Returns a map containing only those entries in map whose key is in keys" [map keyseq] (loop [ret {} keys (seq keyseq)] (if keys (let [entry (. clojure.lang.RT (find map (first keys)))] (recur (if entry (conj ret entry) ret) (rest keys))) ret)))
 //---
-(function __clojure_fn_3711(){
-return (clojure.JS.def(clojure,"select_keys",(function __clojure_fn_3711_select_keys_3713(map_1,keyseq_2){
-var ret_3,entry_5,keys_4;
+(function __clojure_fn_3706(){
+return (clojure.JS.def(clojure,"select_keys",(function __clojure_fn_3706_select_keys_3708(map_1,keyseq_2){
+var ret_3,keys_4,entry_5;
 return (((function __loop(){var _rtn,_cnt;(ret_3=clojure.lang.PersistentHashMap.EMPTY),
 (keys_4=clojure.seq.apply(null,[keyseq_2]));do{_cnt=0;
 _rtn=((keys_4)?(((entry_5=clojure.lang.RT.find(map_1,clojure.first.apply(null,[keys_4]))),
@@ -786,38 +770,38 @@ _rtn=((keys_4)?(((entry_5=clojure.lang.RT.find(map_1,clojure.first.apply(null,[k
 //======
 //(defn key "Returns the key of the map entry." [e] (. e (getKey)))
 //---
-(function __clojure_fn_3729(){
-return (clojure.JS.def(clojure,"key",(function __clojure_fn_3729_key_3731(e_1){
+(function __clojure_fn_3724(){
+return (clojure.JS.def(clojure,"key",(function __clojure_fn_3724_key_3726(e_1){
 return ((e_1).getKey())})))}).apply(null,[]);
 
 //======
 //(defn val "Returns the value in the map entry." [e] (. e (getValue)))
 //---
-(function __clojure_fn_3735(){
-return (clojure.JS.def(clojure,"val",(function __clojure_fn_3735_val_3737(e_1){
+(function __clojure_fn_3730(){
+return (clojure.JS.def(clojure,"val",(function __clojure_fn_3730_val_3732(e_1){
 return ((e_1).getValue())})))}).apply(null,[]);
 
 //======
 //(defn rseq "Returns, in constant time, a sequence of the items in rev (which\n  can be a vector or sorted-map), in reverse order." [rev] (. rev (rseq)))
 //---
-(function __clojure_fn_3741(){
-return (clojure.JS.def(clojure,"rseq",(function __clojure_fn_3741_rseq_3743(rev_1){
+(function __clojure_fn_3736(){
+return (clojure.JS.def(clojure,"rseq",(function __clojure_fn_3736_rseq_3738(rev_1){
 return ((rev_1).rseq())})))}).apply(null,[]);
 
 //======
 //(defn name "Returns the name String of a symbol or keyword." [x] (. x (getName)))
 //---
-(function __clojure_fn_3747(){
-return (clojure.JS.def(clojure,"name",(function __clojure_fn_3747_name_3749(x_1){
+(function __clojure_fn_3742(){
+return (clojure.JS.def(clojure,"name",(function __clojure_fn_3742_name_3744(x_1){
 return ((x_1).getName())})))}).apply(null,[]);
 
 //======
 //(defn namespace "Returns the namespace String of a symbol or keyword, or nil if not present." [x] (. x (getNamespace)))
 //---
-(function __clojure_fn_3753(){
-return (clojure.JS.def(clojure,"namespace",(function __clojure_fn_3753_namespace_3755(x_1){
+(function __clojure_fn_3748(){
+return (clojure.JS.def(clojure,"namespace",(function __clojure_fn_3748_namespace_3750(x_1){
 return ((x_1).getNamespace())})))}).apply(null,[]);
-// Skipping: (defmacro locking "Executes exprs in an implicit do, while holding the monitor of x.\n  Will release the monitor of x in all circumstances." [x & body] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote lockee__3759)) (clojure/list x)))) (clojure/list (clojure/concat (clojure/list (quote try)) (clojure/list (clojure/concat (clojure/list (quote monitor-enter)) (clojure/list (quote lockee__3759)))) body (clojure/list (clojure/concat (clojure/list (quote finally)) (clojure/list (clojure/concat (clojure/list (quote monitor-exit)) (clojure/list (quote lockee__3759))))))))))
+// Skipping: (defmacro locking "Executes exprs in an implicit do, while holding the monitor of x.\n  Will release the monitor of x in all circumstances." [x & body] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote lockee__3754)) (clojure/list x)))) (clojure/list (clojure/concat (clojure/list (quote try)) (clojure/list (clojure/concat (clojure/list (quote monitor-enter)) (clojure/list (quote lockee__3754)))) body (clojure/list (clojure/concat (clojure/list (quote finally)) (clojure/list (clojure/concat (clojure/list (quote monitor-exit)) (clojure/list (quote lockee__3754))))))))))
 // Skipping: (defmacro .. "form => fieldName-symbol or (instanceMethodName-symbol args*)\n\n  Expands into a member access (.) of the first member on the first\n  argument, followed by the next member on the result, etc. For\n  instance:\n\n  (.. System (getProperties) (get \"os.name\"))\n\n  expands to:\n\n  (. (. System (getProperties)) (get \"os.name\"))\n\n  but is easier to write, read, and understand." ([x form] (clojure/concat (clojure/list (quote .)) (clojure/list x) (clojure/list form))) ([x form & more] (clojure/concat (clojure/list (quote clojure/..)) (clojure/list (clojure/concat (clojure/list (quote .)) (clojure/list x) (clojure/list form))) more)))
 // Skipping: (defmacro -> "Threads the expr through the forms. Inserts x as the\n  second item in the first form, making a list of it if it is not a\n  list already. If there are more forms, inserts the first form as the\n  second item in second form, etc." ([x form] (if (seq? form) (clojure/concat (clojure/list (first form)) (clojure/list x) (rest form)) (list form x))) ([x form & more] (clojure/concat (clojure/list (quote clojure/->)) (clojure/list (clojure/concat (clojure/list (quote clojure/->)) (clojure/list x) (clojure/list form))) more)))
 // Skipping: (defmacro defmulti "Creates a new multimethod with the associated dispatch function. If\n  default-dispatch-val is supplied it becomes the default dispatch\n  value of the multimethod, otherwise the default dispatch value\n  is :default." ([name dispatch-fn] (clojure/concat (clojure/list (quote clojure/defmulti)) (clojure/list name) (clojure/list dispatch-fn) (clojure/list :default))) ([name dispatch-fn default-val] (clojure/concat (clojure/list (quote def)) (clojure/list (with-meta name (assoc (clojure/meta name) :tag (quote clojure.lang.MultiFn)))) (clojure/list (clojure/concat (clojure/list (quote new)) (clojure/list (quote clojure.lang.MultiFn)) (clojure/list dispatch-fn) (clojure/list default-val))))))
@@ -829,134 +813,134 @@ return ((x_1).getNamespace())})))}).apply(null,[]);
 //======
 //(defn find-var "Returns the global var named by the namespace-qualified symbol, or\n  nil if no var with that name." [sym] (. clojure.lang.Var (find sym)))
 //---
-(function __clojure_fn_3814(){
-return (clojure.JS.def(clojure,"find_var",(function __clojure_fn_3814_find_var_3816(sym_1){
+(function __clojure_fn_3809(){
+return (clojure.JS.def(clojure,"find_var",(function __clojure_fn_3809_find_var_3811(sym_1){
 return (clojure.lang.Var.find(sym_1))})))}).apply(null,[]);
 
 //======
 //(defn agent "Creates and returns an agent with an initial value of state and an\n  optional validate fn. validate-fn must be nil or a side-effect-free fn of\n  one argument, which will be passed the intended new state on any state\n  change. If the new state is unacceptable, the validate-fn should\n  throw an exception." ([state] (new clojure.lang.Agent state)) ([state validate-fn] (new clojure.lang.Agent state validate-fn)))
 //---
-(function __clojure_fn_3820(){
-return (clojure.JS.def(clojure,"agent",(function __clojure_fn_3820_agent_3822(state_1,validate_fn_2){switch(arguments.length){
+(function __clojure_fn_3815(){
+return (clojure.JS.def(clojure,"agent",(function __clojure_fn_3815_agent_3817(state_1,validate_fn_2){switch(arguments.length){
 case 1:return ((new clojure.lang.Agent(state_1)))}
 return ((new clojure.lang.Agent(state_1,validate_fn_2)))})))}).apply(null,[]);
 
 //======
 //(defn ! [& args] (throw (clojure.lang.RT/makeException "! is now send. See also send-off")))
 //---
-(function __clojure_fn_3827(){
-return (clojure.JS.def(clojure,"_BANG_",clojure.JS.variadic(0,(function __clojure_fn_3827_BANG_3829(){
+(function __clojure_fn_3822(){
+return (clojure.JS.def(clojure,"_BANG_",clojure.JS.variadic(0,(function __clojure_fn_3822_BANG_3824(){
 var args_1=clojure.JS.rest_args(this,arguments,0);
 return ((function __throw(){throw clojure.lang.RT.makeException("! is now send. See also send-off")})())}))))}).apply(null,[]);
 
 //======
 //(defn send "Dispatch an action to an agent. Returns the agent immediately.\n  Subsequently, in a thread from a thread pool, the state of the agent\n  will be set to the value of:\n\n  (apply action-fn state-of-agent args)" [a f & args] (. a (dispatch f args false)))
 //---
-(function __clojure_fn_3833(){
-return (clojure.JS.def(clojure,"send",clojure.JS.variadic(2,(function __clojure_fn_3833_send_3835(a_1,f_2){
+(function __clojure_fn_3828(){
+return (clojure.JS.def(clojure,"send",clojure.JS.variadic(2,(function __clojure_fn_3828_send_3830(a_1,f_2){
 var args_3=clojure.JS.rest_args(this,arguments,2);
 return ((a_1).dispatch(f_2,args_3,false))}))))}).apply(null,[]);
 
 //======
 //(defn send-off "Dispatch a potentially blocking action to an agent. Returns the\n  agent immediately. Subsequently, in a separate thread, the state of\n  the agent will be set to the value of:\n\n  (apply action-fn state-of-agent args)" [a f & args] (. a (dispatch f args true)))
 //---
-(function __clojure_fn_3839(){
-return (clojure.JS.def(clojure,"send_off",clojure.JS.variadic(2,(function __clojure_fn_3839_send_off_3841(a_1,f_2){
+(function __clojure_fn_3834(){
+return (clojure.JS.def(clojure,"send_off",clojure.JS.variadic(2,(function __clojure_fn_3834_send_off_3836(a_1,f_2){
 var args_3=clojure.JS.rest_args(this,arguments,2);
 return ((a_1).dispatch(f_2,args_3,true))}))))}).apply(null,[]);
 
 //======
 //(defn add-watch "Experimental.\n  Adds a watcher to an agent. Whenever the agent runs an action, any\n  registered watchers will have their callback function called.  The\n  callback fn will be passed 3 args, the watcher, the agent and a boolean\n  which will be true if the agent's state was (potentially) changed by\n  the action. The callback fn is run synchronously with the action,\n  and thus derefs of the agent in the callback will see the value set\n  during that action. Because it is run on the action thread, the\n  callback should not block, but can send messages." [a watcher callback] (.addWatch a watcher callback))
 //---
-(function __clojure_fn_3845(){
-return (clojure.JS.def(clojure,"add_watch",(function __clojure_fn_3845_add_watch_3847(a_1,watcher_2,callback_3){
+(function __clojure_fn_3840(){
+return (clojure.JS.def(clojure,"add_watch",(function __clojure_fn_3840_add_watch_3842(a_1,watcher_2,callback_3){
 return ((a_1).addWatch(watcher_2,callback_3))})))}).apply(null,[]);
 
 //======
 //(defn remove-watch "Experimental.\n  Removes a watcher (set by add-watch) from an agent" [a watcher] (.removeWatch a watcher))
 //---
-(function __clojure_fn_3851(){
-return (clojure.JS.def(clojure,"remove_watch",(function __clojure_fn_3851_remove_watch_3853(a_1,watcher_2){
+(function __clojure_fn_3846(){
+return (clojure.JS.def(clojure,"remove_watch",(function __clojure_fn_3846_remove_watch_3848(a_1,watcher_2){
 return ((a_1).removeWatch(watcher_2))})))}).apply(null,[]);
 
 //======
 //(defn agent-errors "Returns a sequence of the exceptions thrown during asynchronous\n  actions of the agent." [a] (. a (getErrors)))
 //---
-(function __clojure_fn_3857(){
-return (clojure.JS.def(clojure,"agent_errors",(function __clojure_fn_3857_agent_errors_3859(a_1){
+(function __clojure_fn_3852(){
+return (clojure.JS.def(clojure,"agent_errors",(function __clojure_fn_3852_agent_errors_3854(a_1){
 return ((a_1).getErrors())})))}).apply(null,[]);
 
 //======
 //(defn clear-agent-errors "Clears any exceptions thrown during asynchronous actions of the\n  agent, allowing subsequent actions to occur." [a] (. a (clearErrors)))
 //---
-(function __clojure_fn_3863(){
-return (clojure.JS.def(clojure,"clear_agent_errors",(function __clojure_fn_3863_clear_agent_errors_3865(a_1){
+(function __clojure_fn_3858(){
+return (clojure.JS.def(clojure,"clear_agent_errors",(function __clojure_fn_3858_clear_agent_errors_3860(a_1){
 return ((a_1).clearErrors())})))}).apply(null,[]);
 
 //======
 //(defn shutdown-agents "Initiates a shutdown of the thread pools that back the agent\n  system. Running actions will complete, but no new actions will be\n  accepted" [] (. clojure.lang.Agent shutdown))
 //---
-(function __clojure_fn_3869(){
-return (clojure.JS.def(clojure,"shutdown_agents",(function __clojure_fn_3869_shutdown_agents_3871(){
+(function __clojure_fn_3864(){
+return (clojure.JS.def(clojure,"shutdown_agents",(function __clojure_fn_3864_shutdown_agents_3866(){
 return (clojure.lang.Agent.shutdown())})))}).apply(null,[]);
 
 //======
 //(defn ref "Creates and returns a Ref with an initial value of x and an optional validate fn.\n  validate-fn must be nil or a side-effect-free fn of one argument, which will\n  be passed the intended new state on any state change. If the new\n  state is unacceptable, the validate-fn should throw an\n  exception. validate-fn will be called on transaction commit, when\n  all refs have their final values." ([x] (new clojure.lang.Ref x)) ([x validate-fn] (new clojure.lang.Ref x validate-fn)))
 //---
-(function __clojure_fn_3875(){
-return (clojure.JS.def(clojure,"ref",(function __clojure_fn_3875_ref_3877(x_1,validate_fn_2){switch(arguments.length){
+(function __clojure_fn_3870(){
+return (clojure.JS.def(clojure,"ref",(function __clojure_fn_3870_ref_3872(x_1,validate_fn_2){switch(arguments.length){
 case 1:return ((new clojure.lang.Ref(x_1)))}
 return ((new clojure.lang.Ref(x_1,validate_fn_2)))})))}).apply(null,[]);
 
 //======
 //(defn deref "Also reader macro: @ref/@agent Within a transaction, returns the\n  in-transaction-value of ref, else returns the\n  most-recently-committed value of ref. When applied to an agent,\n  returns its current state." [ref] (. ref (get)))
 //---
-(function __clojure_fn_3882(){
-return (clojure.JS.def(clojure,"deref",(function __clojure_fn_3882_deref_3884(ref_1){
+(function __clojure_fn_3877(){
+return (clojure.JS.def(clojure,"deref",(function __clojure_fn_3877_deref_3879(ref_1){
 return ((ref_1).get())})))}).apply(null,[]);
 
 //======
 //(defn set-validator "Sets the validator-fn for a var/ref/agent. validator-fn must be nil or a\n  side-effect-free fn of one argument, which will be passed the intended\n  new state on any state change. If the new state is unacceptable, the\n  validator-fn should throw an exception. If the current state (root\n  value if var) is not acceptable to the new validator, an exception\n  will be thrown and the validator will not be changed." [iref validator-fn] (. iref (setValidator validator-fn)))
 //---
-(function __clojure_fn_3888(){
-return (clojure.JS.def(clojure,"set_validator",(function __clojure_fn_3888_set_validator_3890(iref_1,validator_fn_2){
+(function __clojure_fn_3883(){
+return (clojure.JS.def(clojure,"set_validator",(function __clojure_fn_3883_set_validator_3885(iref_1,validator_fn_2){
 return ((iref_1).setValidator(validator_fn_2))})))}).apply(null,[]);
 
 //======
 //(defn get-validator "Gets the validator-fn for a var/ref/agent." [iref] (. iref (getValidator)))
 //---
-(function __clojure_fn_3894(){
-return (clojure.JS.def(clojure,"get_validator",(function __clojure_fn_3894_get_validator_3896(iref_1){
+(function __clojure_fn_3889(){
+return (clojure.JS.def(clojure,"get_validator",(function __clojure_fn_3889_get_validator_3891(iref_1){
 return ((iref_1).getValidator())})))}).apply(null,[]);
 
 //======
 //(defn commute "Must be called in a transaction. Sets the in-transaction-value of\n  ref to:\n\n  (apply fun in-transaction-value-of-ref args)\n\n  and returns the in-transaction-value of ref.\n\n  At the commit point of the transaction, sets the value of ref to be:\n\n  (apply fun most-recently-committed-value-of-ref args)\n\n  Thus fun should be commutative, or, failing that, you must accept\n  last-one-in-wins behavior.  commute allows for more concurrency than\n  ref-set." [ref fun & args] (. ref (commute fun args)))
 //---
-(function __clojure_fn_3900(){
-return (clojure.JS.def(clojure,"commute",clojure.JS.variadic(2,(function __clojure_fn_3900_commute_3902(ref_1,fun_2){
+(function __clojure_fn_3895(){
+return (clojure.JS.def(clojure,"commute",clojure.JS.variadic(2,(function __clojure_fn_3895_commute_3897(ref_1,fun_2){
 var args_3=clojure.JS.rest_args(this,arguments,2);
 return ((ref_1).commute(fun_2,args_3))}))))}).apply(null,[]);
 
 //======
 //(defn alter "Must be called in a transaction. Sets the in-transaction-value of\n  ref to:\n\n  (apply fun in-transaction-value-of-ref args)\n\n  and returns the in-transaction-value of ref." [ref fun & args] (. ref (alter fun args)))
 //---
-(function __clojure_fn_3906(){
-return (clojure.JS.def(clojure,"alter",clojure.JS.variadic(2,(function __clojure_fn_3906_alter_3908(ref_1,fun_2){
+(function __clojure_fn_3901(){
+return (clojure.JS.def(clojure,"alter",clojure.JS.variadic(2,(function __clojure_fn_3901_alter_3903(ref_1,fun_2){
 var args_3=clojure.JS.rest_args(this,arguments,2);
 return ((ref_1).alter(fun_2,args_3))}))))}).apply(null,[]);
 
 //======
 //(defn ref-set "Must be called in a transaction. Sets the value of ref.\n  Returns val." [ref val] (. ref (set val)))
 //---
-(function __clojure_fn_3912(){
-return (clojure.JS.def(clojure,"ref_set",(function __clojure_fn_3912_ref_set_3914(ref_1,val_2){
+(function __clojure_fn_3907(){
+return (clojure.JS.def(clojure,"ref_set",(function __clojure_fn_3907_ref_set_3909(ref_1,val_2){
 return ((ref_1).set(val_2))})))}).apply(null,[]);
 
 //======
 //(defn ensure "Must be called in a transaction. Protects the ref from modification\n  by other transactions.  Returns the in-transaction-value of\n  ref. Allows for more concurrency than (ref-set ref @ref)" [ref] (. ref (touch)) (. ref (get)))
 //---
-(function __clojure_fn_3918(){
-return (clojure.JS.def(clojure,"ensure",(function __clojure_fn_3918_ensure_3920(ref_1){
+(function __clojure_fn_3913(){
+return (clojure.JS.def(clojure,"ensure",(function __clojure_fn_3913_ensure_3915(ref_1){
 return ((ref_1).touch(),
 (ref_1).get())})))}).apply(null,[]);
 // Skipping: (defmacro sync "transaction-flags => TBD, pass nil for now\n\n  Runs the exprs (in an implicit do) in a transaction that encompasses\n  exprs and any nested calls.  Starts a transaction if none is already\n  running on this thread. Any uncaught exception will abort the\n  transaction and flow out of sync. The exprs may be run more than\n  once, but any effects on Refs will be atomic." [flags-ignored-for-now & body] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.LockingTransaction)) (clojure/list (clojure/concat (clojure/list (quote clojure/runInTransaction)) (clojure/list (clojure/concat (clojure/list (quote clojure/fn)) (clojure/list (clojure/apply clojure/vector (clojure/concat))) body))))))
@@ -964,11 +948,11 @@ return ((ref_1).touch(),
 //======
 //(defn comp "Takes a set of functions and returns a fn that is the composition\n  of those fns.  The returned fn takes a variable number of args,\n  applies the rightmost of fns to the args, the next\n  fn (right-to-left) to the result, etc." [& fs] (let [fs (reverse fs)] (fn [& args] (loop [ret (apply (first fs) args) fs (rest fs)] (if fs (recur ((first fs) ret) (rest fs)) ret)))))
 //---
-(function __clojure_fn_3930(){
-return (clojure.JS.def(clojure,"comp",clojure.JS.variadic(0,(function __clojure_fn_3930_comp_3932(){
+(function __clojure_fn_3925(){
+return (clojure.JS.def(clojure,"comp",clojure.JS.variadic(0,(function __clojure_fn_3925_comp_3927(){
 var fs_2,fs_1=clojure.JS.rest_args(this,arguments,0);
 return (((fs_2=clojure.reverse.apply(null,[fs_1])),
-clojure.JS.variadic(0,(function __clojure_fn_3930_comp_3932_fn_3934(){
+clojure.JS.variadic(0,(function __clojure_fn_3925_comp_3927_fn_3929(){
 var fs_3,ret_2,args_1=clojure.JS.rest_args(this,arguments,0);
 return (((function __loop(){var _rtn,_cnt;(ret_2=clojure.apply.apply(null,[clojure.first.apply(null,[fs_2]),args_1])),
 (fs_3=clojure.rest.apply(null,[fs_2]));do{_cnt=0;
@@ -977,27 +961,27 @@ _rtn=((fs_3)?((_cnt=1,_rtn=[clojure.first.apply(null,[fs_3]).apply(null,[ret_2])
 //======
 //(defn partial "Takes a function f and fewer than the normal arguments to f, and\n  returns a fn that takes a variable number of additional args. When\n  called, the returned function calls f with args + additional args." ([f arg1] (fn [& args] (apply f arg1 args))) ([f arg1 arg2] (fn [& args] (apply f arg1 arg2 args))) ([f arg1 arg2 arg3] (fn [& args] (apply f arg1 arg2 arg3 args))) ([f arg1 arg2 arg3 & more] (fn [& args] (apply f arg1 arg2 arg3 (concat more args)))))
 //---
-(function __clojure_fn_3939(){
-return (clojure.JS.def(clojure,"partial",clojure.JS.variadic(4,(function __clojure_fn_3939_partial_3941(f_1,arg1_2,arg2_3,arg3_4){switch(arguments.length){
-case 3:return (clojure.JS.variadic(0,(function __clojure_fn_3939_partial_3941_fn_3947(){
-var args_1=clojure.JS.rest_args(this,arguments,0);
-return (clojure.apply.apply(null,[f_1,arg1_2,arg2_3,args_1]))})))
-case 2:return (clojure.JS.variadic(0,(function __clojure_fn_3939_partial_3941_fn_3943(){
+(function __clojure_fn_3934(){
+return (clojure.JS.def(clojure,"partial",clojure.JS.variadic(4,(function __clojure_fn_3934_partial_3936(f_1,arg1_2,arg2_3,arg3_4){switch(arguments.length){
+case 2:return (clojure.JS.variadic(0,(function __clojure_fn_3934_partial_3936_fn_3938(){
 var args_1=clojure.JS.rest_args(this,arguments,0);
 return (clojure.apply.apply(null,[f_1,arg1_2,args_1]))})))
-case 4:return (clojure.JS.variadic(0,(function __clojure_fn_3939_partial_3941_fn_3951(){
+case 3:return (clojure.JS.variadic(0,(function __clojure_fn_3934_partial_3936_fn_3942(){
+var args_1=clojure.JS.rest_args(this,arguments,0);
+return (clojure.apply.apply(null,[f_1,arg1_2,arg2_3,args_1]))})))
+case 4:return (clojure.JS.variadic(0,(function __clojure_fn_3934_partial_3936_fn_3946(){
 var args_1=clojure.JS.rest_args(this,arguments,0);
 return (clojure.apply.apply(null,[f_1,arg1_2,arg2_3,arg3_4,args_1]))})))}
 var more_5=clojure.JS.rest_args(this,arguments,4);
-return (clojure.JS.variadic(0,(function __clojure_fn_3939_partial_3941_fn_3955(){
+return (clojure.JS.variadic(0,(function __clojure_fn_3934_partial_3936_fn_3950(){
 var args_1=clojure.JS.rest_args(this,arguments,0);
 return (clojure.apply.apply(null,[f_1,arg1_2,arg2_3,arg3_4,clojure.concat.apply(null,[more_5,args_1])]))})))}))))}).apply(null,[]);
 
 //======
 //(defn every? "Returns true if (pred x) is logical true for every x in coll, else\n  false." {:tag Boolean} [pred coll] (if (seq coll) (and (pred (first coll)) (recur pred (rest coll))) true))
 //---
-(function __clojure_fn_3960(){
-return (clojure.JS.def(clojure,"every_QMARK_",(function __clojure_fn_3960_every_QMARK_3962(pred_1,coll_2){
+(function __clojure_fn_3955(){
+return (clojure.JS.def(clojure,"every_QMARK_",(function __clojure_fn_3955_every_QMARK_3957(pred_1,coll_2){
 var _cnt,_rtn,and__196_3;
 do{_cnt=0;_rtn=((clojure.seq.apply(null,[coll_2]))?(((and__196_3=pred_1.apply(null,[clojure.first.apply(null,[coll_2])])),
 ((and__196_3)?((_cnt=1,_rtn=[pred_1,clojure.rest.apply(null,[coll_2])],pred_1=_rtn[0],coll_2=_rtn[1])):(and__196_3)))):(true))
@@ -1006,14 +990,14 @@ do{_cnt=0;_rtn=((clojure.seq.apply(null,[coll_2]))?(((and__196_3=pred_1.apply(nu
 //======
 //(def not-every? (comp not every?))
 //---
-(function __clojure_fn_3966(){
+(function __clojure_fn_3961(){
 return (clojure.JS.def(clojure,"not_every_QMARK_",clojure.comp.apply(null,[clojure.not,clojure.every_QMARK_])))}).apply(null,[]);
 
 //======
 //(defn some "Returns the first logical true value of (pred x) for any x in coll,\n  else nil." [pred coll] (when (seq coll) (or (pred (first coll)) (recur pred (rest coll)))))
 //---
-(function __clojure_fn_3969(){
-return (clojure.JS.def(clojure,"some",(function __clojure_fn_3969_some_3971(pred_1,coll_2){
+(function __clojure_fn_3964(){
+return (clojure.JS.def(clojure,"some",(function __clojure_fn_3964_some_3966(pred_1,coll_2){
 var _cnt,_rtn,or__202_3;
 do{_cnt=0;_rtn=((clojure.seq.apply(null,[coll_2]))?(((or__202_3=pred_1.apply(null,[clojure.first.apply(null,[coll_2])])),
 ((or__202_3)?(or__202_3):((_cnt=1,_rtn=[pred_1,clojure.rest.apply(null,[coll_2])],pred_1=_rtn[0],coll_2=_rtn[1]))))):(null))
@@ -1022,53 +1006,53 @@ do{_cnt=0;_rtn=((clojure.seq.apply(null,[coll_2]))?(((or__202_3=pred_1.apply(nul
 //======
 //(def not-any? (comp not some))
 //---
-(function __clojure_fn_3975(){
+(function __clojure_fn_3970(){
 return (clojure.JS.def(clojure,"not_any_QMARK_",clojure.comp.apply(null,[clojure.not,clojure.some])))}).apply(null,[]);
 
 //======
-//(defn map "Returns a lazy seq consisting of the result of applying f to the\n  set of first items of each coll, followed by applying f to the set\n  of second items in each coll, until any one of the colls is\n  exhausted.  Any remaining items in other colls are ignored. Function\n  f should accept number-of-colls arguments." ([f coll] (when (seq coll) (lazy-cons (f (first coll)) (map f (rest coll))))) ([f c1 c2] (when (and (seq c1) (seq c2)) (lazy-cons (f (first c1) (first c2)) (map f (rest c1) (rest c2))))) ([f c1 c2 c3] (when (and (seq c1) (seq c2) (seq c3)) (lazy-cons (f (first c1) (first c2) (first c3)) (map f (rest c1) (rest c2) (rest c3))))) ([f c1 c2 c3 & colls] (let [step (fn step [cs] (when (every? seq cs) (lazy-cons (map first cs) (step (map rest cs)))))] (map (fn* [p1__3978] (apply f p1__3978)) (step (conj colls c3 c2 c1))))))
+//(defn map "Returns a lazy seq consisting of the result of applying f to the\n  set of first items of each coll, followed by applying f to the set\n  of second items in each coll, until any one of the colls is\n  exhausted.  Any remaining items in other colls are ignored. Function\n  f should accept number-of-colls arguments." ([f coll] (when (seq coll) (lazy-cons (f (first coll)) (map f (rest coll))))) ([f c1 c2] (when (and (seq c1) (seq c2)) (lazy-cons (f (first c1) (first c2)) (map f (rest c1) (rest c2))))) ([f c1 c2 c3] (when (and (seq c1) (seq c2) (seq c3)) (lazy-cons (f (first c1) (first c2) (first c3)) (map f (rest c1) (rest c2) (rest c3))))) ([f c1 c2 c3 & colls] (let [step (fn step [cs] (when (every? seq cs) (lazy-cons (map first cs) (step (map rest cs)))))] (map (fn* [p1__3973] (apply f p1__3973)) (step (conj colls c3 c2 c1))))))
 //---
-(function __clojure_fn_3979(){
-return (clojure.JS.def(clojure,"map",clojure.JS.variadic(4,(function __clojure_fn_3979_map_3981(f_1,c1_2,c2_3,c3_4){switch(arguments.length){
-case 2:var coll_2=arguments[1];
-return (((clojure.seq.apply(null,[coll_2]))?((new clojure.lang.LazyCons((function __clojure_fn_3979_map_3981_fn_3984(G__3983_1){switch(arguments.length){
-case 0:return (f_1.apply(null,[clojure.first.apply(null,[coll_2])]))}
-return (clojure.map.apply(null,[f_1,clojure.rest.apply(null,[coll_2])]))})))):(null)))
+(function __clojure_fn_3974(){
+return (clojure.JS.def(clojure,"map",clojure.JS.variadic(4,(function __clojure_fn_3974_map_3976(f_1,c1_2,c2_3,c3_4){switch(arguments.length){
 case 3:var and__196_4;
 return (((((and__196_4=clojure.seq.apply(null,[c1_2])),
-((and__196_4)?(clojure.seq.apply(null,[c2_3])):(and__196_4))))?((new clojure.lang.LazyCons((function __clojure_fn_3979_map_3981_fn_3990(G__3989_1){switch(arguments.length){
+((and__196_4)?(clojure.seq.apply(null,[c2_3])):(and__196_4))))?((new clojure.lang.LazyCons((function __clojure_fn_3974_map_3976_fn_3985(G__3984_1){switch(arguments.length){
 case 0:return (f_1.apply(null,[clojure.first.apply(null,[c1_2]),clojure.first.apply(null,[c2_3])]))}
 return (clojure.map.apply(null,[f_1,clojure.rest.apply(null,[c1_2]),clojure.rest.apply(null,[c2_3])]))})))):(null)))
-case 4:var and__196_6,and__196_5;
+case 4:var and__196_5,and__196_6;
 return (((((and__196_5=clojure.seq.apply(null,[c1_2])),
 ((and__196_5)?(((and__196_6=clojure.seq.apply(null,[c2_3])),
-((and__196_6)?(clojure.seq.apply(null,[c3_4])):(and__196_6)))):(and__196_5))))?((new clojure.lang.LazyCons((function __clojure_fn_3979_map_3981_fn_3996(G__3995_1){switch(arguments.length){
+((and__196_6)?(clojure.seq.apply(null,[c3_4])):(and__196_6)))):(and__196_5))))?((new clojure.lang.LazyCons((function __clojure_fn_3974_map_3976_fn_3991(G__3990_1){switch(arguments.length){
 case 0:return (f_1.apply(null,[clojure.first.apply(null,[c1_2]),clojure.first.apply(null,[c2_3]),clojure.first.apply(null,[c3_4])]))}
-return (clojure.map.apply(null,[f_1,clojure.rest.apply(null,[c1_2]),clojure.rest.apply(null,[c2_3]),clojure.rest.apply(null,[c3_4])]))})))):(null)))}
+return (clojure.map.apply(null,[f_1,clojure.rest.apply(null,[c1_2]),clojure.rest.apply(null,[c2_3]),clojure.rest.apply(null,[c3_4])]))})))):(null)))
+case 2:var coll_2=arguments[1];
+return (((clojure.seq.apply(null,[coll_2]))?((new clojure.lang.LazyCons((function __clojure_fn_3974_map_3976_fn_3979(G__3978_1){switch(arguments.length){
+case 0:return (f_1.apply(null,[clojure.first.apply(null,[coll_2])]))}
+return (clojure.map.apply(null,[f_1,clojure.rest.apply(null,[coll_2])]))})))):(null)))}
 var step_6,colls_5=clojure.JS.rest_args(this,arguments,4);
-return (((step_6=(function __clojure_fn_3979_map_3981_step_4001(cs_1){
+return (((step_6=(function __clojure_fn_3974_map_3976_step_3996(cs_1){
 var step_0=arguments.callee;
-return (((clojure.every_QMARK_.apply(null,[clojure.seq,cs_1]))?((new clojure.lang.LazyCons((function __clojure_fn_3979_map_3981_step_4001_fn_4003(G__4002_1){switch(arguments.length){
+return (((clojure.every_QMARK_.apply(null,[clojure.seq,cs_1]))?((new clojure.lang.LazyCons((function __clojure_fn_3974_map_3976_step_3996_fn_3998(G__3997_1){switch(arguments.length){
 case 0:return (clojure.map.apply(null,[clojure.first,cs_1]))}
 return (step_0.apply(null,[clojure.map.apply(null,[clojure.rest,cs_1])]))})))):(null)))})),
-clojure.map.apply(null,[(function __clojure_fn_3979_map_3981_fn_4008(p1__3978_1){
-return (clojure.apply.apply(null,[f_1,p1__3978_1]))}),step_6.apply(null,[clojure.conj.apply(null,[colls_5,c3_4,c2_3,c1_2])])])))}))))}).apply(null,[]);
+clojure.map.apply(null,[(function __clojure_fn_3974_map_3976_fn_4003(p1__3973_1){
+return (clojure.apply.apply(null,[f_1,p1__3973_1]))}),step_6.apply(null,[clojure.conj.apply(null,[colls_5,c3_4,c2_3,c1_2])])])))}))))}).apply(null,[]);
 
 //======
 //(defn mapcat "Returns the result of applying concat to the result of applying map\n  to f and colls.  Thus function f should return a collection." [f & colls] (apply concat (apply map f colls)))
 //---
-(function __clojure_fn_4013(){
-return (clojure.JS.def(clojure,"mapcat",clojure.JS.variadic(1,(function __clojure_fn_4013_mapcat_4015(f_1){
+(function __clojure_fn_4008(){
+return (clojure.JS.def(clojure,"mapcat",clojure.JS.variadic(1,(function __clojure_fn_4008_mapcat_4010(f_1){
 var colls_2=clojure.JS.rest_args(this,arguments,1);
 return (clojure.apply.apply(null,[clojure.concat,clojure.apply.apply(null,[clojure.map,f_1,colls_2])]))}))))}).apply(null,[]);
 
 //======
 //(defn filter "Returns a lazy seq of the items in coll for which\n  (pred item) returns true. pred must be free of side-effects." [pred coll] (when (seq coll) (if (pred (first coll)) (lazy-cons (first coll) (filter pred (rest coll))) (recur pred (rest coll)))))
 //---
-(function __clojure_fn_4019(){
-return (clojure.JS.def(clojure,"filter",(function __clojure_fn_4019_filter_4021(pred_1,coll_2){
+(function __clojure_fn_4014(){
+return (clojure.JS.def(clojure,"filter",(function __clojure_fn_4014_filter_4016(pred_1,coll_2){
 var _cnt,_rtn;
-do{_cnt=0;_rtn=((clojure.seq.apply(null,[coll_2]))?(((pred_1.apply(null,[clojure.first.apply(null,[coll_2])]))?((new clojure.lang.LazyCons((function __clojure_fn_4019_filter_4021_fn_4024(G__4023_1){switch(arguments.length){
+do{_cnt=0;_rtn=((clojure.seq.apply(null,[coll_2]))?(((pred_1.apply(null,[clojure.first.apply(null,[coll_2])]))?((new clojure.lang.LazyCons((function __clojure_fn_4014_filter_4016_fn_4019(G__4018_1){switch(arguments.length){
 case 0:return (clojure.first.apply(null,[coll_2]))}
 return (clojure.filter.apply(null,[pred_1,clojure.rest.apply(null,[coll_2])]))})))):((_cnt=1,_rtn=[pred_1,clojure.rest.apply(null,[coll_2])],pred_1=_rtn[0],coll_2=_rtn[1])))):(null))
 }while(_cnt);return _rtn;})))}).apply(null,[]);
@@ -1076,10 +1060,10 @@ return (clojure.filter.apply(null,[pred_1,clojure.rest.apply(null,[coll_2])]))})
 //======
 //(defn remove "Returns a lazy seq of the items in coll for which\n  (pred item) returns false. pred must be free of side-effects." [pred coll] (when (seq coll) (if (pred (first coll)) (recur pred (rest coll)) (lazy-cons (first coll) (remove pred (rest coll))))))
 //---
-(function __clojure_fn_4030(){
-return (clojure.JS.def(clojure,"remove",(function __clojure_fn_4030_remove_4032(pred_1,coll_2){
+(function __clojure_fn_4025(){
+return (clojure.JS.def(clojure,"remove",(function __clojure_fn_4025_remove_4027(pred_1,coll_2){
 var _cnt,_rtn;
-do{_cnt=0;_rtn=((clojure.seq.apply(null,[coll_2]))?(((pred_1.apply(null,[clojure.first.apply(null,[coll_2])]))?((_cnt=1,_rtn=[pred_1,clojure.rest.apply(null,[coll_2])],pred_1=_rtn[0],coll_2=_rtn[1])):((new clojure.lang.LazyCons((function __clojure_fn_4030_remove_4032_fn_4035(G__4034_1){switch(arguments.length){
+do{_cnt=0;_rtn=((clojure.seq.apply(null,[coll_2]))?(((pred_1.apply(null,[clojure.first.apply(null,[coll_2])]))?((_cnt=1,_rtn=[pred_1,clojure.rest.apply(null,[coll_2])],pred_1=_rtn[0],coll_2=_rtn[1])):((new clojure.lang.LazyCons((function __clojure_fn_4025_remove_4027_fn_4030(G__4029_1){switch(arguments.length){
 case 0:return (clojure.first.apply(null,[coll_2]))}
 return (clojure.remove.apply(null,[pred_1,clojure.rest.apply(null,[coll_2])]))})))))):(null))
 }while(_cnt);return _rtn;})))}).apply(null,[]);
@@ -1087,30 +1071,30 @@ return (clojure.remove.apply(null,[pred_1,clojure.rest.apply(null,[coll_2])]))})
 //======
 //(defn take "Returns a lazy seq of the first n items in coll, or all items if\n  there are fewer than n." [n coll] (when (and (pos? n) (seq coll)) (lazy-cons (first coll) (when (> n 1) (take (dec n) (rest coll))))))
 //---
-(function __clojure_fn_4041(){
-return (clojure.JS.def(clojure,"take",(function __clojure_fn_4041_take_4043(n_1,coll_2){
+(function __clojure_fn_4036(){
+return (clojure.JS.def(clojure,"take",(function __clojure_fn_4036_take_4038(n_1,coll_2){
 var and__196_3;
 return (((((and__196_3=clojure.lang.Numbers.isPos(n_1)),
-((and__196_3)?(clojure.seq.apply(null,[coll_2])):(and__196_3))))?((new clojure.lang.LazyCons((function __clojure_fn_4041_take_4043_fn_4046(G__4045_1){switch(arguments.length){
+((and__196_3)?(clojure.seq.apply(null,[coll_2])):(and__196_3))))?((new clojure.lang.LazyCons((function __clojure_fn_4036_take_4038_fn_4041(G__4040_1){switch(arguments.length){
 case 0:return (clojure.first.apply(null,[coll_2]))}
 return (((clojure.lang.Numbers.gt(n_1,(1)))?(clojure.take.apply(null,[clojure.lang.Numbers.dec(n_1),clojure.rest.apply(null,[coll_2])])):(null)))})))):(null)))})))}).apply(null,[]);
 
 //======
 //(defn take-while "Returns a lazy seq of successive items from coll while\n  (pred item) returns true. pred must be free of side-effects." [pred coll] (when (and (seq coll) (pred (first coll))) (lazy-cons (first coll) (take-while pred (rest coll)))))
 //---
-(function __clojure_fn_4052(){
-return (clojure.JS.def(clojure,"take_while",(function __clojure_fn_4052_take_while_4054(pred_1,coll_2){
+(function __clojure_fn_4047(){
+return (clojure.JS.def(clojure,"take_while",(function __clojure_fn_4047_take_while_4049(pred_1,coll_2){
 var and__196_3;
 return (((((and__196_3=clojure.seq.apply(null,[coll_2])),
-((and__196_3)?(pred_1.apply(null,[clojure.first.apply(null,[coll_2])])):(and__196_3))))?((new clojure.lang.LazyCons((function __clojure_fn_4052_take_while_4054_fn_4057(G__4056_1){switch(arguments.length){
+((and__196_3)?(pred_1.apply(null,[clojure.first.apply(null,[coll_2])])):(and__196_3))))?((new clojure.lang.LazyCons((function __clojure_fn_4047_take_while_4049_fn_4052(G__4051_1){switch(arguments.length){
 case 0:return (clojure.first.apply(null,[coll_2]))}
 return (clojure.take_while.apply(null,[pred_1,clojure.rest.apply(null,[coll_2])]))})))):(null)))})))}).apply(null,[]);
 
 //======
 //(defn drop "Returns a lazy seq of all but the first n items in coll." [n coll] (if (and (pos? n) (seq coll)) (recur (dec n) (rest coll)) (seq coll)))
 //---
-(function __clojure_fn_4063(){
-return (clojure.JS.def(clojure,"drop",(function __clojure_fn_4063_drop_4065(n_1,coll_2){
+(function __clojure_fn_4058(){
+return (clojure.JS.def(clojure,"drop",(function __clojure_fn_4058_drop_4060(n_1,coll_2){
 var _cnt,_rtn,and__196_3;
 do{_cnt=0;_rtn=((((and__196_3=clojure.lang.Numbers.isPos(n_1)),
 ((and__196_3)?(clojure.seq.apply(null,[coll_2])):(and__196_3))))?((_cnt=1,_rtn=[clojure.lang.Numbers.dec(n_1),clojure.rest.apply(null,[coll_2])],n_1=_rtn[0],coll_2=_rtn[1])):(clojure.seq.apply(null,[coll_2])))
@@ -1119,18 +1103,18 @@ do{_cnt=0;_rtn=((((and__196_3=clojure.lang.Numbers.isPos(n_1)),
 //======
 //(defn drop-last "Return a lazy seq of all but the last n (default 1) items in coll" ([s] (drop-last 1 s)) ([n s] (map (fn [x _] x) (seq s) (drop n s))))
 //---
-(function __clojure_fn_4069(){
-return (clojure.JS.def(clojure,"drop_last",(function __clojure_fn_4069_drop_last_4071(n_1,s_2){switch(arguments.length){
+(function __clojure_fn_4064(){
+return (clojure.JS.def(clojure,"drop_last",(function __clojure_fn_4064_drop_last_4066(n_1,s_2){switch(arguments.length){
 case 1:var s_1=arguments[0];
 return (clojure.drop_last.apply(null,[(1),s_1]))}
-return (clojure.map.apply(null,[(function __clojure_fn_4069_drop_last_4071_fn_4074(x_1,__2){
+return (clojure.map.apply(null,[(function __clojure_fn_4064_drop_last_4066_fn_4069(x_1,__2){
 return (x_1)}),clojure.seq.apply(null,[s_2]),clojure.drop.apply(null,[n_1,s_2])]))})))}).apply(null,[]);
 
 //======
 //(defn drop-while "Returns a lazy seq of the items in coll starting from the first\n  item for which (pred item) returns nil." [pred coll] (if (and (seq coll) (pred (first coll))) (recur pred (rest coll)) (seq coll)))
 //---
-(function __clojure_fn_4079(){
-return (clojure.JS.def(clojure,"drop_while",(function __clojure_fn_4079_drop_while_4081(pred_1,coll_2){
+(function __clojure_fn_4074(){
+return (clojure.JS.def(clojure,"drop_while",(function __clojure_fn_4074_drop_while_4076(pred_1,coll_2){
 var _cnt,_rtn,and__196_3;
 do{_cnt=0;_rtn=((((and__196_3=clojure.seq.apply(null,[coll_2])),
 ((and__196_3)?(pred_1.apply(null,[clojure.first.apply(null,[coll_2])])):(and__196_3))))?((_cnt=1,_rtn=[pred_1,clojure.rest.apply(null,[coll_2])],pred_1=_rtn[0],coll_2=_rtn[1])):(clojure.seq.apply(null,[coll_2])))
@@ -1139,12 +1123,12 @@ do{_cnt=0;_rtn=((((and__196_3=clojure.seq.apply(null,[coll_2])),
 //======
 //(defn cycle "Returns a lazy (infinite!) seq of repetitions of the items in\n  coll." [coll] (when (seq coll) (let [rep (fn thisfn [xs] (if xs (lazy-cons (first xs) (thisfn (rest xs))) (recur (seq coll))))] (rep (seq coll)))))
 //---
-(function __clojure_fn_4085(){
-return (clojure.JS.def(clojure,"cycle",(function __clojure_fn_4085_cycle_4087(coll_1){
+(function __clojure_fn_4080(){
+return (clojure.JS.def(clojure,"cycle",(function __clojure_fn_4080_cycle_4082(coll_1){
 var rep_2;
-return (((clojure.seq.apply(null,[coll_1]))?(((rep_2=(function __clojure_fn_4085_cycle_4087_thisfn_4089(xs_1){
+return (((clojure.seq.apply(null,[coll_1]))?(((rep_2=(function __clojure_fn_4080_cycle_4082_thisfn_4084(xs_1){
 var _cnt,_rtn,thisfn_0=arguments.callee;
-do{_cnt=0;_rtn=((xs_1)?((new clojure.lang.LazyCons((function __clojure_fn_4085_cycle_4087_thisfn_4089_fn_4091(G__4090_1){switch(arguments.length){
+do{_cnt=0;_rtn=((xs_1)?((new clojure.lang.LazyCons((function __clojure_fn_4080_cycle_4082_thisfn_4084_fn_4086(G__4085_1){switch(arguments.length){
 case 0:return (clojure.first.apply(null,[xs_1]))}
 return (thisfn_0.apply(null,[clojure.rest.apply(null,[xs_1])]))})))):((_cnt=1,_rtn=[clojure.seq.apply(null,[coll_1])],xs_1=_rtn[0])))
 }while(_cnt);return _rtn;})),
@@ -1153,78 +1137,78 @@ rep_2.apply(null,[clojure.seq.apply(null,[coll_1])]))):(null)))})))}).apply(null
 //======
 //(defn split-at "Returns a vector of [(take n coll) (drop n coll)]" [n coll] [(take n coll) (drop n coll)])
 //---
-(function __clojure_fn_4098(){
-return (clojure.JS.def(clojure,"split_at",(function __clojure_fn_4098_split_at_4100(n_1,coll_2){
+(function __clojure_fn_4093(){
+return (clojure.JS.def(clojure,"split_at",(function __clojure_fn_4093_split_at_4095(n_1,coll_2){
 return (clojure.JS.lit_vector([clojure.take.apply(null,[n_1,coll_2]),clojure.drop.apply(null,[n_1,coll_2])]))})))}).apply(null,[]);
 
 //======
 //(defn split-with "Returns a vector of [(take-while pred coll) (drop-while pred coll)]" [pred coll] [(take-while pred coll) (drop-while pred coll)])
 //---
-(function __clojure_fn_4104(){
-return (clojure.JS.def(clojure,"split_with",(function __clojure_fn_4104_split_with_4106(pred_1,coll_2){
+(function __clojure_fn_4099(){
+return (clojure.JS.def(clojure,"split_with",(function __clojure_fn_4099_split_with_4101(pred_1,coll_2){
 return (clojure.JS.lit_vector([clojure.take_while.apply(null,[pred_1,coll_2]),clojure.drop_while.apply(null,[pred_1,coll_2])]))})))}).apply(null,[]);
 
 //======
 //(defn repeat "Returns a lazy (infinite!) seq of xs." [x] (lazy-cons x (repeat x)))
 //---
-(function __clojure_fn_4110(){
-return (clojure.JS.def(clojure,"repeat",(function __clojure_fn_4110_repeat_4112(x_1){
-return ((new clojure.lang.LazyCons((function __clojure_fn_4110_repeat_4112_fn_4115(G__4114_1){switch(arguments.length){
+(function __clojure_fn_4105(){
+return (clojure.JS.def(clojure,"repeat",(function __clojure_fn_4105_repeat_4107(x_1){
+return ((new clojure.lang.LazyCons((function __clojure_fn_4105_repeat_4107_fn_4110(G__4109_1){switch(arguments.length){
 case 0:return (x_1)}
 return (clojure.repeat.apply(null,[x_1]))}))))})))}).apply(null,[]);
 
 //======
 //(defn replicate "Returns a lazy seq of n xs." [n x] (take n (repeat x)))
 //---
-(function __clojure_fn_4121(){
-return (clojure.JS.def(clojure,"replicate",(function __clojure_fn_4121_replicate_4123(n_1,x_2){
+(function __clojure_fn_4116(){
+return (clojure.JS.def(clojure,"replicate",(function __clojure_fn_4116_replicate_4118(n_1,x_2){
 return (clojure.take.apply(null,[n_1,clojure.repeat.apply(null,[x_2])]))})))}).apply(null,[]);
 
 //======
 //(defn iterate "Returns a lazy seq of x, (f x), (f (f x)) etc. f must be free of side-effects" [f x] (lazy-cons x (iterate f (f x))))
 //---
-(function __clojure_fn_4127(){
-return (clojure.JS.def(clojure,"iterate",(function __clojure_fn_4127_iterate_4129(f_1,x_2){
-return ((new clojure.lang.LazyCons((function __clojure_fn_4127_iterate_4129_fn_4132(G__4131_1){switch(arguments.length){
+(function __clojure_fn_4122(){
+return (clojure.JS.def(clojure,"iterate",(function __clojure_fn_4122_iterate_4124(f_1,x_2){
+return ((new clojure.lang.LazyCons((function __clojure_fn_4122_iterate_4124_fn_4127(G__4126_1){switch(arguments.length){
 case 0:return (x_2)}
 return (clojure.iterate.apply(null,[f_1,f_1.apply(null,[x_2])]))}))))})))}).apply(null,[]);
 
 //======
 //(defn range "Returns a lazy seq of nums from start (inclusive) to end\n  (exclusive), by step, where start defaults to 0 and step to 1." ([end] (if (and (> end 0) (< end clojure.lang.RT/IntegerMaxValue)) (new clojure.lang.Range 0 end) (take end (iterate inc 0)))) ([start end] (if (and (< start end) (< end clojure.lang.RT/IntegerMaxValue)) (new clojure.lang.Range start end) (take (- end start) (iterate inc start)))) ([start end step] (take-while (partial (if (pos? step) > <) end) (iterate (partial + step) start))))
 //---
-(function __clojure_fn_4138(){
-return (clojure.JS.def(clojure,"range",(function __clojure_fn_4138_range_4140(start_1,end_2,step_3){switch(arguments.length){
-case 2:var and__196_3;
-return (((((and__196_3=clojure.lang.Numbers.lt(start_1,end_2)),
-((and__196_3)?(clojure.lang.Numbers.lt(end_2,clojure.JS.getOrRun(clojure.lang.RT,"IntegerMaxValue"))):(and__196_3))))?((new clojure.lang.Range(start_1,end_2))):(clojure.take.apply(null,[clojure.lang.Numbers.minus(end_2,start_1),clojure.iterate.apply(null,[clojure.inc,start_1])]))))
+(function __clojure_fn_4133(){
+return (clojure.JS.def(clojure,"range",(function __clojure_fn_4133_range_4135(start_1,end_2,step_3){switch(arguments.length){
 case 1:var and__196_2,end_1=arguments[0];
 return (((((and__196_2=clojure.lang.Numbers.gt(end_1,(0))),
-((and__196_2)?(clojure.lang.Numbers.lt(end_1,clojure.JS.getOrRun(clojure.lang.RT,"IntegerMaxValue"))):(and__196_2))))?((new clojure.lang.Range((0),end_1))):(clojure.take.apply(null,[end_1,clojure.iterate.apply(null,[clojure.inc,(0)])]))))}
+((and__196_2)?(clojure.lang.Numbers.lt(end_1,clojure.JS.getOrRun(clojure.lang.RT,"IntegerMaxValue"))):(and__196_2))))?((new clojure.lang.Range((0),end_1))):(clojure.take.apply(null,[end_1,clojure.iterate.apply(null,[clojure.inc,(0)])]))))
+case 2:var and__196_3;
+return (((((and__196_3=clojure.lang.Numbers.lt(start_1,end_2)),
+((and__196_3)?(clojure.lang.Numbers.lt(end_2,clojure.JS.getOrRun(clojure.lang.RT,"IntegerMaxValue"))):(and__196_3))))?((new clojure.lang.Range(start_1,end_2))):(clojure.take.apply(null,[clojure.lang.Numbers.minus(end_2,start_1),clojure.iterate.apply(null,[clojure.inc,start_1])]))))}
 return (clojure.take_while.apply(null,[clojure.partial.apply(null,[((clojure.lang.Numbers.isPos(step_3))?(clojure._GT_):(clojure._LT_)),end_2]),clojure.iterate.apply(null,[clojure.partial.apply(null,[clojure._PLUS_,step_3]),start_1])]))})))}).apply(null,[]);
 
 //======
-//(defn merge "Returns a map that consists of the rest of the maps conj-ed onto\n  the first.  If a key occurs in more than one map, the mapping from\n  the latter (left-to-right) will be the mapping in the result." [& maps] (when (some identity maps) (reduce (fn* [p1__4146 p2__4147] (conj (or p1__4146 {}) p2__4147)) maps)))
+//(defn merge "Returns a map that consists of the rest of the maps conj-ed onto\n  the first.  If a key occurs in more than one map, the mapping from\n  the latter (left-to-right) will be the mapping in the result." [& maps] (when (some identity maps) (reduce (fn* [p1__4141 p2__4142] (conj (or p1__4141 {}) p2__4142)) maps)))
 //---
-(function __clojure_fn_4148(){
-return (clojure.JS.def(clojure,"merge",clojure.JS.variadic(0,(function __clojure_fn_4148_merge_4150(){
+(function __clojure_fn_4143(){
+return (clojure.JS.def(clojure,"merge",clojure.JS.variadic(0,(function __clojure_fn_4143_merge_4145(){
 var maps_1=clojure.JS.rest_args(this,arguments,0);
-return (((clojure.some.apply(null,[clojure.identity,maps_1]))?(clojure.reduce.apply(null,[(function __clojure_fn_4148_merge_4150_fn_4152(p1__4146_1,p2__4147_2){
+return (((clojure.some.apply(null,[clojure.identity,maps_1]))?(clojure.reduce.apply(null,[(function __clojure_fn_4143_merge_4145_fn_4147(p1__4141_1,p2__4142_2){
 var or__202_3;
-return (clojure.conj.apply(null,[((or__202_3=p1__4146_1),
-((or__202_3)?(or__202_3):(clojure.lang.PersistentHashMap.EMPTY))),p2__4147_2]))}),maps_1])):(null)))}))))}).apply(null,[]);
+return (clojure.conj.apply(null,[((or__202_3=p1__4141_1),
+((or__202_3)?(or__202_3):(clojure.lang.PersistentHashMap.EMPTY))),p2__4142_2]))}),maps_1])):(null)))}))))}).apply(null,[]);
 
 //======
 //(defn merge-with "Returns a map that consists of the rest of the maps conj-ed onto\n  the first.  If a key occurs in more than one map, the mapping(s)\n  from the latter (left-to-right) will be combined with the mapping in\n  the result by calling (f val-in-result val-in-latter)." [f & maps] (when (some identity maps) (let [merge-entry (fn [m e] (let [k (key e) v (val e)] (if (contains? m k) (assoc m k (f (m k) v)) (assoc m k v)))) merge2 (fn [m1 m2] (reduce merge-entry (or m1 {}) (seq m2)))] (reduce merge2 maps))))
 //---
-(function __clojure_fn_4157(){
-return (clojure.JS.def(clojure,"merge_with",clojure.JS.variadic(1,(function __clojure_fn_4157_merge_with_4159(f_1){
-var merge_entry_3,merge2_4,maps_2=clojure.JS.rest_args(this,arguments,1);
-return (((clojure.some.apply(null,[clojure.identity,maps_2]))?(((merge_entry_3=(function __clojure_fn_4157_merge_with_4159_merge_entry_4161(m_1,e_2){
-var k_3,v_4;
+(function __clojure_fn_4152(){
+return (clojure.JS.def(clojure,"merge_with",clojure.JS.variadic(1,(function __clojure_fn_4152_merge_with_4154(f_1){
+var merge2_4,merge_entry_3,maps_2=clojure.JS.rest_args(this,arguments,1);
+return (((clojure.some.apply(null,[clojure.identity,maps_2]))?(((merge_entry_3=(function __clojure_fn_4152_merge_with_4154_merge_entry_4156(m_1,e_2){
+var v_4,k_3;
 return (((k_3=clojure.key.apply(null,[e_2])),
 (v_4=clojure.val.apply(null,[e_2])),
 ((clojure.contains_QMARK_.apply(null,[m_1,k_3]))?(clojure.assoc.apply(null,[m_1,k_3,f_1.apply(null,[m_1.apply(null,[k_3]),v_4])])):(clojure.assoc.apply(null,[m_1,k_3,v_4])))))})),
-(merge2_4=(function __clojure_fn_4157_merge_with_4159_merge2_4164(m1_1,m2_2){
+(merge2_4=(function __clojure_fn_4152_merge_with_4154_merge2_4159(m1_1,m2_2){
 var or__202_3;
 return (clojure.reduce.apply(null,[merge_entry_3,((or__202_3=m1_1),
 ((or__202_3)?(or__202_3):(clojure.lang.PersistentHashMap.EMPTY))),clojure.seq.apply(null,[m2_2])]))})),
@@ -1233,9 +1217,9 @@ clojure.reduce.apply(null,[merge2_4,maps_2]))):(null)))}))))}).apply(null,[]);
 //======
 //(defn zipmap "Returns a map with the keys mapped to the corresponding vals." [keys vals] (loop [map {} ks (seq keys) vs (seq vals)] (if (and ks vs) (recur (assoc map (first ks) (first vs)) (rest ks) (rest vs)) map)))
 //---
-(function __clojure_fn_4169(){
-return (clojure.JS.def(clojure,"zipmap",(function __clojure_fn_4169_zipmap_4171(keys_1,vals_2){
-var vs_5,map_3,and__196_6,ks_4;
+(function __clojure_fn_4164(){
+return (clojure.JS.def(clojure,"zipmap",(function __clojure_fn_4164_zipmap_4166(keys_1,vals_2){
+var ks_4,vs_5,and__196_6,map_3;
 return (((function __loop(){var _rtn,_cnt;(map_3=clojure.lang.PersistentHashMap.EMPTY),
 (ks_4=clojure.seq.apply(null,[keys_1])),
 (vs_5=clojure.seq.apply(null,[vals_2]));do{_cnt=0;
@@ -1245,30 +1229,30 @@ _rtn=((((and__196_6=ks_4),
 //======
 //(defn line-seq "Returns the lines of text from rdr as a lazy sequence of strings.\n  rdr must implement java.io.BufferedReader." [rdr] (let [line (. rdr (readLine))] (when line (lazy-cons line (line-seq rdr)))))
 //---
-(function __clojure_fn_4175(){
-return (clojure.JS.def(clojure,"line_seq",(function __clojure_fn_4175_line_seq_4177(rdr_1){
+(function __clojure_fn_4170(){
+return (clojure.JS.def(clojure,"line_seq",(function __clojure_fn_4170_line_seq_4172(rdr_1){
 var line_2;
 return (((line_2=(rdr_1).readLine()),
-((line_2)?((new clojure.lang.LazyCons((function __clojure_fn_4175_line_seq_4177_fn_4180(G__4179_1){switch(arguments.length){
+((line_2)?((new clojure.lang.LazyCons((function __clojure_fn_4170_line_seq_4172_fn_4175(G__4174_1){switch(arguments.length){
 case 0:return (line_2)}
 return (clojure.line_seq.apply(null,[rdr_1]))})))):(null))))})))}).apply(null,[]);
 
 //======
 //(defn comparator "Returns an implementation of java.util.Comparator based upon pred." [pred] (fn [x y] (cond (pred x y) -1 (pred y x) 1 :else 0)))
 //---
-(function __clojure_fn_4186(){
-return (clojure.JS.def(clojure,"comparator",(function __clojure_fn_4186_comparator_4188(pred_1){
-return ((function __clojure_fn_4186_comparator_4188_fn_4190(x_1,y_2){
+(function __clojure_fn_4181(){
+return (clojure.JS.def(clojure,"comparator",(function __clojure_fn_4181_comparator_4183(pred_1){
+return ((function __clojure_fn_4181_comparator_4183_fn_4185(x_1,y_2){
 return (((pred_1.apply(null,[x_1,y_2]))?((-1)):(((pred_1.apply(null,[y_2,x_1]))?((1)):(((clojure.keyword("","else"))?((0)):(null)))))))}))})))}).apply(null,[]);
 
 //======
 //(defn sort "Returns a sorted sequence of the items in coll. If no comparator is\n  supplied, uses compare. comparator must\n  implement java.util.Comparator." ([coll] (sort compare coll)) ([comp coll] (when (and coll (not (zero? (count coll)))) (let [a (to-array coll)] (clojure.lang.RT/sortArray a comp) (seq a)))))
 //---
-(function __clojure_fn_4195(){
-return (clojure.JS.def(clojure,"sort",(function __clojure_fn_4195_sort_4197(comp_1,coll_2){switch(arguments.length){
+(function __clojure_fn_4190(){
+return (clojure.JS.def(clojure,"sort",(function __clojure_fn_4190_sort_4192(comp_1,coll_2){switch(arguments.length){
 case 1:var coll_1=arguments[0];
 return (clojure.sort.apply(null,[clojure.compare,coll_1]))}
-var and__196_3,a_3;
+var a_3,and__196_3;
 return (((((and__196_3=coll_2),
 ((and__196_3)?(clojure.not.apply(null,[clojure.lang.Numbers.isZero(clojure.count.apply(null,[coll_2]))])):(and__196_3))))?(((a_3=clojure.to_array.apply(null,[coll_2])),
 clojure.lang.RT.sortArray(a_3,comp_1),
@@ -1277,42 +1261,42 @@ clojure.seq.apply(null,[a_3]))):(null)))})))}).apply(null,[]);
 //======
 //(defn sort-by "Returns a sorted sequence of the items in coll, where the sort\n  order is determined by comparing (keyfn item).  If no comparator is\n  supplied, uses compare. comparator must\n  implement java.util.Comparator." ([keyfn coll] (sort-by keyfn compare coll)) ([keyfn comp coll] (sort (fn [x y] (. comp (compare (keyfn x) (keyfn y)))) coll)))
 //---
-(function __clojure_fn_4202(){
-return (clojure.JS.def(clojure,"sort_by",(function __clojure_fn_4202_sort_by_4204(keyfn_1,comp_2,coll_3){switch(arguments.length){
+(function __clojure_fn_4197(){
+return (clojure.JS.def(clojure,"sort_by",(function __clojure_fn_4197_sort_by_4199(keyfn_1,comp_2,coll_3){switch(arguments.length){
 case 2:var coll_2=arguments[1];
 return (clojure.sort_by.apply(null,[keyfn_1,clojure.compare,coll_2]))}
-return (clojure.sort.apply(null,[(function __clojure_fn_4202_sort_by_4204_fn_4207(x_1,y_2){
+return (clojure.sort.apply(null,[(function __clojure_fn_4197_sort_by_4199_fn_4202(x_1,y_2){
 return ((comp_2).compare(keyfn_1.apply(null,[x_1]),keyfn_1.apply(null,[y_2])))}),coll_3]))})))}).apply(null,[]);
 // Skipping: (defn eval "Evaluates the form data structure (not text!) and returns the result." [form] (. clojure.lang.Compiler (eval form)))
-// Skipping: (defmacro doseq "Repeatedly executes body (presumably for side-effects) with\n  binding-form bound to successive items from coll.  Does not retain\n  the head of the sequence. Returns nil." [item list & body] (clojure/concat (clojure/list (quote clojure/loop)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote list__4218)) (clojure/list (clojure/concat (clojure/list (quote clojure/seq)) (clojure/list list)))))) (clojure/list (clojure/concat (clojure/list (quote clojure/when)) (clojure/list (quote list__4218)) (clojure/list (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list item) (clojure/list (clojure/concat (clojure/list (quote clojure/first)) (clojure/list (quote list__4218))))))) body)) (clojure/list (clojure/concat (clojure/list (quote recur)) (clojure/list (clojure/concat (clojure/list (quote clojure/rest)) (clojure/list (quote list__4218))))))))))
+// Skipping: (defmacro doseq "Repeatedly executes body (presumably for side-effects) with\n  binding-form bound to successive items from coll.  Does not retain\n  the head of the sequence. Returns nil." [item list & body] (clojure/concat (clojure/list (quote clojure/loop)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote list__4213)) (clojure/list (clojure/concat (clojure/list (quote clojure/seq)) (clojure/list list)))))) (clojure/list (clojure/concat (clojure/list (quote clojure/when)) (clojure/list (quote list__4213)) (clojure/list (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list item) (clojure/list (clojure/concat (clojure/list (quote clojure/first)) (clojure/list (quote list__4213))))))) body)) (clojure/list (clojure/concat (clojure/list (quote recur)) (clojure/list (clojure/concat (clojure/list (quote clojure/rest)) (clojure/list (quote list__4213))))))))))
 
 //======
 //(defn scan [& args] (throw (clojure.lang.RT/makeException "scan is now called dorun")))
 //---
-(function __clojure_fn_4225(){
-return (clojure.JS.def(clojure,"scan",clojure.JS.variadic(0,(function __clojure_fn_4225_scan_4227(){
+(function __clojure_fn_4220(){
+return (clojure.JS.def(clojure,"scan",clojure.JS.variadic(0,(function __clojure_fn_4220_scan_4222(){
 var args_1=clojure.JS.rest_args(this,arguments,0);
 return ((function __throw(){throw clojure.lang.RT.makeException("scan is now called dorun")})())}))))}).apply(null,[]);
 
 //======
 //(defn touch [& args] (throw (clojure.lang.RT/makeException "touch is now called doall")))
 //---
-(function __clojure_fn_4231(){
-return (clojure.JS.def(clojure,"touch",clojure.JS.variadic(0,(function __clojure_fn_4231_touch_4233(){
+(function __clojure_fn_4226(){
+return (clojure.JS.def(clojure,"touch",clojure.JS.variadic(0,(function __clojure_fn_4226_touch_4228(){
 var args_1=clojure.JS.rest_args(this,arguments,0);
 return ((function __throw(){throw clojure.lang.RT.makeException("touch is now called doall")})())}))))}).apply(null,[]);
 
 //======
 //(defn dorun "When lazy sequences are produced via functions that have side\n  effects, any effects other than those needed to produce the first\n  element in the seq do not occur until the seq is consumed. dorun can\n  be used to force any effects. Walks through the successive rests of\n  the seq, does not retain the head and returns nil." ([coll] (when (and (seq coll) (or (first coll) true)) (recur (rest coll)))) ([n coll] (when (and (seq coll) (pos? n) (or (first coll) true)) (recur (dec n) (rest coll)))))
 //---
-(function __clojure_fn_4237(){
-return (clojure.JS.def(clojure,"dorun",(function __clojure_fn_4237_dorun_4239(n_1,coll_2){switch(arguments.length){
+(function __clojure_fn_4232(){
+return (clojure.JS.def(clojure,"dorun",(function __clojure_fn_4232_dorun_4234(n_1,coll_2){switch(arguments.length){
 case 1:var _cnt,_rtn,or__202_3,and__196_2,coll_1=arguments[0];
 do{_cnt=0;_rtn=((((and__196_2=clojure.seq.apply(null,[coll_1])),
 ((and__196_2)?(((or__202_3=clojure.first.apply(null,[coll_1])),
 ((or__202_3)?(or__202_3):(true)))):(and__196_2))))?((_cnt=1,_rtn=[clojure.rest.apply(null,[coll_1])],coll_1=_rtn[0])):(null))
 }while(_cnt);return _rtn;}
-var _cnt,_rtn,and__196_4,or__202_5,and__196_3;
+var _cnt,_rtn,and__196_4,and__196_3,or__202_5;
 do{_cnt=0;_rtn=((((and__196_3=clojure.seq.apply(null,[coll_2])),
 ((and__196_3)?(((and__196_4=clojure.lang.Numbers.isPos(n_1)),
 ((and__196_4)?(((or__202_5=clojure.first.apply(null,[coll_2])),
@@ -1322,8 +1306,8 @@ do{_cnt=0;_rtn=((((and__196_3=clojure.seq.apply(null,[coll_2])),
 //======
 //(defn doall "When lazy sequences are produced via functions that have side\n  effects, any effects other than those needed to produce the first\n  element in the seq do not occur until the seq is consumed. doall can\n  be used to force any effects. Walks through the successive rests of\n  the seq, retains the head and returns it, thus causing the entire\n  seq to reside in memory at one time." ([coll] (dorun coll) coll) ([n coll] (dorun n coll) coll))
 //---
-(function __clojure_fn_4244(){
-return (clojure.JS.def(clojure,"doall",(function __clojure_fn_4244_doall_4246(n_1,coll_2){switch(arguments.length){
+(function __clojure_fn_4239(){
+return (clojure.JS.def(clojure,"doall",(function __clojure_fn_4239_doall_4241(n_1,coll_2){switch(arguments.length){
 case 1:var coll_1=arguments[0];
 return (clojure.dorun.apply(null,[coll_1]),
 coll_1)}
@@ -1334,19 +1318,19 @@ coll_2)})))}).apply(null,[]);
 //======
 //(defn await1 [a] (when (pos? (.getQueueCount a)) (await a)) a)
 //---
-(function __clojure_fn_4260(){
-return (clojure.JS.def(clojure,"await1",(function __clojure_fn_4260_await1_4262(a_1){
+(function __clojure_fn_4255(){
+return (clojure.JS.def(clojure,"await1",(function __clojure_fn_4255_await1_4257(a_1){
 return (((clojure.lang.Numbers.isPos((a_1).getQueueCount()))?(clojure.await.apply(null,[a_1])):(null)),
 a_1)})))}).apply(null,[]);
 // Skipping: (defn await-for "Blocks the current thread until all actions dispatched thus\n  far (from this thread or agent) to the agents have occurred, or the\n  timeout (in milliseconds) has elapsed. Returns nil if returning due\n  to timeout, non-nil otherwise." [timeout-ms & agents] (when *agent* (throw (clojure.lang.RT/makeException "Can't await in agent action"))) (let [latch (new java.util.concurrent.CountDownLatch (count agents)) count-down (fn [agent] (. latch (countDown)) agent)] (doseq agent agents (send agent count-down)) (. latch (await timeout-ms (. java.util.concurrent.TimeUnit MILLISECONDS)))))
-// Skipping: (defmacro dotimes "Repeatedly executes body (presumably for side-effects) with name\n  bound to integers from 0 through n-1." [i n & body] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote n__4275)) (clojure/list (clojure/concat (clojure/list (quote clojure/int)) (clojure/list n)))))) (clojure/list (clojure/concat (clojure/list (quote clojure/loop)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list i) (clojure/list (clojure/concat (clojure/list (quote clojure/int)) (clojure/list 0)))))) (clojure/list (clojure/concat (clojure/list (quote clojure/when)) (clojure/list (clojure/concat (clojure/list (quote clojure/<)) (clojure/list i) (clojure/list (quote n__4275)))) body (clojure/list (clojure/concat (clojure/list (quote recur)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked-inc)) (clojure/list i)))))))))))
+// Skipping: (defmacro dotimes "Repeatedly executes body (presumably for side-effects) with name\n  bound to integers from 0 through n-1." [i n & body] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote n__4270)) (clojure/list (clojure/concat (clojure/list (quote clojure/int)) (clojure/list n)))))) (clojure/list (clojure/concat (clojure/list (quote clojure/loop)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list i) (clojure/list (clojure/concat (clojure/list (quote clojure/int)) (clojure/list 0)))))) (clojure/list (clojure/concat (clojure/list (quote clojure/when)) (clojure/list (clojure/concat (clojure/list (quote clojure/<)) (clojure/list i) (clojure/list (quote n__4270)))) body (clojure/list (clojure/concat (clojure/list (quote recur)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked-inc)) (clojure/list i)))))))))))
 // Skipping: (defn import "import-list => (package-symbol class-name-symbols*)\n\n  For each name in class-name-symbols, adds a mapping from name to the\n  class named by package.name to the current namespace. Use :import in the ns \n  macro in preference to calling this directly." [& import-lists] (when import-lists (let [ns *ns* pkg (ffirst import-lists) classes (rfirst import-lists)] (doseq c classes (. ns (importClass c (. Class (forName (str pkg "." c))))))) (apply import (rest import-lists))))
 
 //======
 //(defn into-array "Returns an array with components set to the values in aseq. The array's\n  component type is type if provided, or the type of the first value in\n  aseq if present, or Object. All values in aseq must be compatible with\n  the component type. Class objects for the primitive types can be obtained\n  using, e.g., Integer/TYPE." ([aseq] (clojure.lang.RT/seqToTypedArray (seq aseq))) ([type aseq] (clojure.lang.RT/seqToTypedArray type (seq aseq))))
 //---
-(function __clojure_fn_4288(){
-return (clojure.JS.def(clojure,"into_array",(function __clojure_fn_4288_into_array_4290(type_1,aseq_2){switch(arguments.length){
+(function __clojure_fn_4283(){
+return (clojure.JS.def(clojure,"into_array",(function __clojure_fn_4283_into_array_4285(type_1,aseq_2){switch(arguments.length){
 case 1:var aseq_1=arguments[0];
 return (clojure.lang.RT.seqToTypedArray(clojure.seq.apply(null,[aseq_1])))}
 return (clojure.lang.RT.seqToTypedArray(type_1,clojure.seq.apply(null,[aseq_2])))})))}).apply(null,[]);
@@ -1354,8 +1338,8 @@ return (clojure.lang.RT.seqToTypedArray(type_1,clojure.seq.apply(null,[aseq_2]))
 //======
 //(defn into "Returns a new coll consisting of to-coll with all of the items of\n  from-coll conjoined." [to from] (let [ret to items (seq from)] (if items (recur (conj ret (first items)) (rest items)) ret)))
 //---
-(function __clojure_fn_4295(){
-return (clojure.JS.def(clojure,"into",(function __clojure_fn_4295_into_4297(to_1,from_2){
+(function __clojure_fn_4290(){
+return (clojure.JS.def(clojure,"into",(function __clojure_fn_4290_into_4292(to_1,from_2){
 var _cnt,_rtn,items_4,ret_3;
 do{_cnt=0;_rtn=((ret_3=to_1),
 (items_4=clojure.seq.apply(null,[from_2])),
@@ -1365,8 +1349,8 @@ do{_cnt=0;_rtn=((ret_3=to_1),
 //======
 //(defn array [& items] (into-array items))
 //---
-(function __clojure_fn_4301(){
-return (clojure.JS.def(clojure,"array",clojure.JS.variadic(0,(function __clojure_fn_4301_array_4303(){
+(function __clojure_fn_4296(){
+return (clojure.JS.def(clojure,"array",clojure.JS.variadic(0,(function __clojure_fn_4296_array_4298(){
 var items_1=clojure.JS.rest_args(this,arguments,0);
 return (clojure.into_array.apply(null,[items_1]))}))))}).apply(null,[]);
 // Skipping: (defn class "Returns the Class of x" [x] (if (nil? x) x (. x (getClass))))
@@ -1374,64 +1358,64 @@ return (clojure.into_array.apply(null,[items_1]))}))))}).apply(null,[]);
 //======
 //(defn num "Coerce to Number" {:tag Number, :inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (clojure/concat (clojure/list (quote clojure/num)) (clojure/list x)))))} [x] (. clojure.lang.Numbers (num x)))
 //---
-(function __clojure_fn_4313(){
-return (clojure.JS.def(clojure,"num",(function __clojure_fn_4313_num_4318(x_1){
+(function __clojure_fn_4308(){
+return (clojure.JS.def(clojure,"num",(function __clojure_fn_4308_num_4313(x_1){
 return (clojure.lang.Numbers.num(x_1))})))}).apply(null,[]);
 
 //======
 //(defn int "Coerce to int" {:tag Integer, :inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.RT)) (clojure/list (clojure/concat (clojure/list (quote clojure/intCast)) (clojure/list x)))))} [x] (. clojure.lang.RT (intCast x)))
 //---
-(function __clojure_fn_4322(){
-return (clojure.JS.def(clojure,"int",(function __clojure_fn_4322_int_4327(x_1){
+(function __clojure_fn_4317(){
+return (clojure.JS.def(clojure,"int",(function __clojure_fn_4317_int_4322(x_1){
 return (clojure.lang.RT.intCast(x_1))})))}).apply(null,[]);
 
 //======
 //(defn long "Coerce to long" {:tag Long, :inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.RT)) (clojure/list (clojure/concat (clojure/list (quote clojure/longCast)) (clojure/list x)))))} [x] (. x (longValue)))
 //---
-(function __clojure_fn_4331(){
-return (clojure.JS.def(clojure,"long",(function __clojure_fn_4331_long_4336(x_1){
+(function __clojure_fn_4326(){
+return (clojure.JS.def(clojure,"long",(function __clojure_fn_4326_long_4331(x_1){
 return ((x_1).longValue())})))}).apply(null,[]);
 
 //======
 //(defn float "Coerce to float" {:tag Float, :inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.RT)) (clojure/list (clojure/concat (clojure/list (quote clojure/floatCast)) (clojure/list x)))))} [x] (. x (floatValue)))
 //---
-(function __clojure_fn_4340(){
-return (clojure.JS.def(clojure,"float",(function __clojure_fn_4340_float_4345(x_1){
+(function __clojure_fn_4335(){
+return (clojure.JS.def(clojure,"float",(function __clojure_fn_4335_float_4340(x_1){
 return ((x_1).floatValue())})))}).apply(null,[]);
 
 //======
 //(defn double "Coerce to double" {:tag Double, :inline (fn [x] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.RT)) (clojure/list (clojure/concat (clojure/list (quote clojure/doubleCast)) (clojure/list x)))))} [x] (. x (doubleValue)))
 //---
-(function __clojure_fn_4349(){
-return (clojure.JS.def(clojure,"double",(function __clojure_fn_4349_double_4354(x_1){
+(function __clojure_fn_4344(){
+return (clojure.JS.def(clojure,"double",(function __clojure_fn_4344_double_4349(x_1){
 return ((x_1).doubleValue())})))}).apply(null,[]);
 
 //======
 //(defn short "Coerce to short" {:tag Short} [x] (. x (shortValue)))
 //---
-(function __clojure_fn_4358(){
-return (clojure.JS.def(clojure,"short_",(function __clojure_fn_4358_short_4360(x_1){
+(function __clojure_fn_4353(){
+return (clojure.JS.def(clojure,"short_",(function __clojure_fn_4353_short_4355(x_1){
 return ((x_1).shortValue())})))}).apply(null,[]);
 
 //======
 //(defn byte "Coerce to byte" {:tag Byte} [x] (. x (byteValue)))
 //---
-(function __clojure_fn_4364(){
-return (clojure.JS.def(clojure,"byte_",(function __clojure_fn_4364_byte_4366(x_1){
+(function __clojure_fn_4359(){
+return (clojure.JS.def(clojure,"byte_",(function __clojure_fn_4359_byte_4361(x_1){
 return ((x_1).byteValue())})))}).apply(null,[]);
 
 //======
 //(defn char "Coerce to char" {:tag Character} [x] (. clojure.lang.RT (charCast x)))
 //---
-(function __clojure_fn_4370(){
-return (clojure.JS.def(clojure,"char_",(function __clojure_fn_4370_char_4372(x_1){
+(function __clojure_fn_4365(){
+return (clojure.JS.def(clojure,"char_",(function __clojure_fn_4365_char_4367(x_1){
 return (clojure.lang.RT.charCast(x_1))})))}).apply(null,[]);
 
 //======
 //(defn boolean "Coerce to boolean" {:tag Boolean} [x] (if x true false))
 //---
-(function __clojure_fn_4376(){
-return (clojure.JS.def(clojure,"boolean_",(function __clojure_fn_4376_boolean_4378(x_1){
+(function __clojure_fn_4371(){
+return (clojure.JS.def(clojure,"boolean_",(function __clojure_fn_4371_boolean_4373(x_1){
 return (((x_1)?(true):(false)))})))}).apply(null,[]);
 // Skipping: (defn bigint "Coerce to BigInteger" {:tag BigInteger} [x] (. BigInteger valueOf x))
 // Skipping: (defn bigdec "Coerce to BigDecimal" {:tag BigDecimal} [x] (. BigDecimal valueOf x))
@@ -1440,11 +1424,11 @@ return (((x_1)?(true):(false)))})))}).apply(null,[]);
 //======
 //(defn pr "Prints the object(s) to the output stream that is the current value\n  of *out*.  Prints the object(s), separated by spaces if there is\n  more than one.  By default, pr and prn print in a way that objects\n  can be read by the reader" ([] nil) ([x] (print-method x *out*) nil) ([x & more] (pr x) (. *out* (append \space)) (apply pr more)))
 //---
-(function __clojure_fn_4400(){
-return (clojure.JS.def(clojure,"pr",clojure.JS.variadic(1,(function __clojure_fn_4400_pr_4402(x_1){switch(arguments.length){
-case 0:return (null)
+(function __clojure_fn_4395(){
+return (clojure.JS.def(clojure,"pr",clojure.JS.variadic(1,(function __clojure_fn_4395_pr_4397(x_1){switch(arguments.length){
 case 1:return (clojure.print_method.apply(null,[x_1,clojure._STAR_out_STAR_]),
-null)}
+null)
+case 0:return (null)}
 var more_2=clojure.JS.rest_args(this,arguments,1);
 return (clojure.pr.apply(null,[x_1]),
 (clojure._STAR_out_STAR_).append(" "),
@@ -1453,24 +1437,24 @@ clojure.apply.apply(null,[clojure.pr,more_2]))}))))}).apply(null,[]);
 //======
 //(defn newline "Writes a newline to the output stream that is the current value of\n  *out*" [] (. *out* (append \newline)) nil)
 //---
-(function __clojure_fn_4408(){
-return (clojure.JS.def(clojure,"newline",(function __clojure_fn_4408_newline_4410(){
+(function __clojure_fn_4403(){
+return (clojure.JS.def(clojure,"newline",(function __clojure_fn_4403_newline_4405(){
 return ((clojure._STAR_out_STAR_).append("\n"),
 null)})))}).apply(null,[]);
 
 //======
 //(defn flush "Flushes the output stream that is the current value of\n  *out*" [] (. *out* (flush)) nil)
 //---
-(function __clojure_fn_4414(){
-return (clojure.JS.def(clojure,"flush",(function __clojure_fn_4414_flush_4416(){
+(function __clojure_fn_4409(){
+return (clojure.JS.def(clojure,"flush",(function __clojure_fn_4409_flush_4411(){
 return ((clojure._STAR_out_STAR_).flush(),
 null)})))}).apply(null,[]);
 
 //======
 //(defn prn "Same as pr followed by (newline). Observes *flush-on-newline*" [& more] (apply pr more) (newline) (when *flush-on-newline* (flush)))
 //---
-(function __clojure_fn_4420(){
-return (clojure.JS.def(clojure,"prn",clojure.JS.variadic(0,(function __clojure_fn_4420_prn_4422(){
+(function __clojure_fn_4415(){
+return (clojure.JS.def(clojure,"prn",clojure.JS.variadic(0,(function __clojure_fn_4415_prn_4417(){
 var more_1=clojure.JS.rest_args(this,arguments,0);
 return (clojure.apply.apply(null,[clojure.pr,more_1]),
 clojure.newline.apply(null,[]),
@@ -1479,8 +1463,8 @@ clojure.newline.apply(null,[]),
 //======
 //(defn print "Prints the object(s) to the output stream that is the current value\n  of *out*.  print and println produce output for human consumption." [& more] (binding [*print-readably* nil] (apply pr more)))
 //---
-(function __clojure_fn_4426(){
-return (clojure.JS.def(clojure,"print",clojure.JS.variadic(0,(function __clojure_fn_4426_print_4428(){
+(function __clojure_fn_4421(){
+return (clojure.JS.def(clojure,"print",clojure.JS.variadic(0,(function __clojure_fn_4421_print_4423(){
 var more_1=clojure.JS.rest_args(this,arguments,0);
 return (clojure.lang.Var.pushThreadBindings(clojure.hash_map.apply(null,[clojure._var__STAR_print_readably_STAR_,null])),
 (function __try(){try{var _rtn=(clojure.apply.apply(null,[clojure.pr,more_1]))}
@@ -1489,8 +1473,8 @@ finally{clojure.lang.Var.popThreadBindings()}return _rtn})())}))))}).apply(null,
 //======
 //(defn println "Same as print followed by (newline)" [& more] (binding [*print-readably* nil] (apply prn more)))
 //---
-(function __clojure_fn_4432(){
-return (clojure.JS.def(clojure,"println",clojure.JS.variadic(0,(function __clojure_fn_4432_println_4434(){
+(function __clojure_fn_4427(){
+return (clojure.JS.def(clojure,"println",clojure.JS.variadic(0,(function __clojure_fn_4427_println_4429(){
 var more_1=clojure.JS.rest_args(this,arguments,0);
 return (clojure.lang.Var.pushThreadBindings(clojure.hash_map.apply(null,[clojure._var__STAR_print_readably_STAR_,null])),
 (function __try(){try{var _rtn=(clojure.apply.apply(null,[clojure.prn,more_1]))}
@@ -1499,62 +1483,62 @@ finally{clojure.lang.Var.popThreadBindings()}return _rtn})())}))))}).apply(null,
 //======
 //(defn read "Reads the next object from stream, which must be an instance of\n  java.io.PushbackReader or some derivee.  stream defaults to the\n  current value of *in* ." ([] (read *in*)) ([stream] (read stream true nil)) ([stream eof-error? eof-value] (read stream eof-error? eof-value false)) ([stream eof-error? eof-value recursive?] (. clojure.lang.LispReader (read stream (boolean eof-error?) eof-value recursive?))))
 //---
-(function __clojure_fn_4438(){
-return (clojure.JS.def(clojure,"read",(function __clojure_fn_4438_read_4440(stream_1,eof_error_QMARK__2,eof_value_3,recursive_QMARK__4){switch(arguments.length){
+(function __clojure_fn_4433(){
+return (clojure.JS.def(clojure,"read",(function __clojure_fn_4433_read_4435(stream_1,eof_error_QMARK__2,eof_value_3,recursive_QMARK__4){switch(arguments.length){
 case 3:return (clojure.read.apply(null,[stream_1,eof_error_QMARK__2,eof_value_3,false]))
-case 0:return (clojure.read.apply(null,[clojure._STAR_in_STAR_]))
-case 1:return (clojure.read.apply(null,[stream_1,true,null]))}
+case 1:return (clojure.read.apply(null,[stream_1,true,null]))
+case 0:return (clojure.read.apply(null,[clojure._STAR_in_STAR_]))}
 return (clojure.lang.LispReader.read(stream_1,clojure.boolean_.apply(null,[eof_error_QMARK__2]),eof_value_3,recursive_QMARK__4))})))}).apply(null,[]);
 
 //======
 //(defn read-line "Reads the next line from stream that is the current value of *in* ." [] (. *in* (readLine)))
 //---
-(function __clojure_fn_4447(){
-return (clojure.JS.def(clojure,"read_line",(function __clojure_fn_4447_read_line_4449(){
+(function __clojure_fn_4442(){
+return (clojure.JS.def(clojure,"read_line",(function __clojure_fn_4442_read_line_4444(){
 return ((clojure._STAR_in_STAR_).readLine())})))}).apply(null,[]);
 
 //======
 //(defn read-string "Reads one object from the string s" [s] (clojure.lang.RT/readString s))
 //---
-(function __clojure_fn_4453(){
-return (clojure.JS.def(clojure,"read_string",(function __clojure_fn_4453_read_string_4455(s_1){
+(function __clojure_fn_4448(){
+return (clojure.JS.def(clojure,"read_string",(function __clojure_fn_4448_read_string_4450(s_1){
 return (clojure.lang.RT.readString(s_1))})))}).apply(null,[]);
 // Skipping: (defmacro with-open "Evaluates body in a try expression with name bound to the value of\n  init, and a finally clause that calls (. name (close))." [name init & body] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list name) (clojure/list init)))) (clojure/list (clojure/concat (clojure/list (quote try)) body (clojure/list (clojure/concat (clojure/list (quote finally)) (clojure/list (clojure/concat (clojure/list (quote .)) (clojure/list name) (clojure/list (clojure/concat (clojure/list (quote clojure/close))))))))))))
 // Skipping: (defmacro doto "Evaluates x then calls all of the methods with the supplied\n  arguments in succession on the resulting object, returning it.\n\n  (doto (new java.util.HashMap) (put \"a\" 1) (put \"b\" 2))" [x & members] (let [gx (gensym)] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list gx) (clojure/list x)))) (clojure/list (clojure/concat (clojure/list (quote do)) (map (fn [m] (list (quote .) gx m)) members))) (clojure/list gx))))
-// Skipping: (defmacro memfn "Expands into code that creates a fn that expects to be passed an\n  object and any args and calls the named instance method on the\n  object passing the args. Use when you want to treat a Java method as\n  a first-class fn." [name & args] (clojure/concat (clojure/list (quote clojure/fn)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote target__4474)) args))) (clojure/list (clojure/concat (clojure/list (quote .)) (clojure/list (quote target__4474)) (clojure/list (clojure/concat (clojure/list name) args))))))
-// Skipping: (defmacro time "Evaluates expr and prints the time it took.  Returns the value of\n expr." [expr] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote start__4481)) (clojure/list (clojure/concat (clojure/list (quote .)) (clojure/list (quote java.lang.System)) (clojure/list (clojure/concat (clojure/list (quote clojure/nanoTime)))))) (clojure/list (quote ret__4482)) (clojure/list expr)))) (clojure/list (clojure/concat (clojure/list (quote clojure/prn)) (clojure/list (clojure/concat (clojure/list (quote clojure/str)) (clojure/list "Elapsed time: ") (clojure/list (clojure/concat (clojure/list (quote clojure//)) (clojure/list (clojure/concat (clojure/list (quote clojure/double)) (clojure/list (clojure/concat (clojure/list (quote clojure/-)) (clojure/list (clojure/concat (clojure/list (quote .)) (clojure/list (quote java.lang.System)) (clojure/list (clojure/concat (clojure/list (quote clojure/nanoTime)))))) (clojure/list (quote start__4481)))))) (clojure/list 1000000.0))) (clojure/list " msecs"))))) (clojure/list (quote ret__4482))))
+// Skipping: (defmacro memfn "Expands into code that creates a fn that expects to be passed an\n  object and any args and calls the named instance method on the\n  object passing the args. Use when you want to treat a Java method as\n  a first-class fn." [name & args] (clojure/concat (clojure/list (quote clojure/fn)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote target__4469)) args))) (clojure/list (clojure/concat (clojure/list (quote .)) (clojure/list (quote target__4469)) (clojure/list (clojure/concat (clojure/list name) args))))))
+// Skipping: (defmacro time "Evaluates expr and prints the time it took.  Returns the value of\n expr." [expr] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote start__4476)) (clojure/list (clojure/concat (clojure/list (quote .)) (clojure/list (quote java.lang.System)) (clojure/list (clojure/concat (clojure/list (quote clojure/nanoTime)))))) (clojure/list (quote ret__4477)) (clojure/list expr)))) (clojure/list (clojure/concat (clojure/list (quote clojure/prn)) (clojure/list (clojure/concat (clojure/list (quote clojure/str)) (clojure/list "Elapsed time: ") (clojure/list (clojure/concat (clojure/list (quote clojure//)) (clojure/list (clojure/concat (clojure/list (quote clojure/double)) (clojure/list (clojure/concat (clojure/list (quote clojure/-)) (clojure/list (clojure/concat (clojure/list (quote .)) (clojure/list (quote java.lang.System)) (clojure/list (clojure/concat (clojure/list (quote clojure/nanoTime)))))) (clojure/list (quote start__4476)))))) (clojure/list 1000000.0))) (clojure/list " msecs"))))) (clojure/list (quote ret__4477))))
 
 //======
 //(import (quote (java.lang.reflect Array)))
 //---
-(function __clojure_fn_4489(){
-return (clojure.import_.apply(null,[clojure.JS.lit_list(["'java.lang.reflect","'Array"])]))}).apply(null,[]);
+(function __clojure_fn_4484(){
+return (clojure.import_.apply(null,[clojure.JS.lit_list([clojure.symbol("java.lang.reflect"),clojure.symbol("Array")])]))}).apply(null,[]);
 
 //======
 //(import (quote (clojure.lang RT)))
 //---
-(function __clojure_fn_4492(){
-return (clojure.import_.apply(null,[clojure.JS.lit_list(["'clojure.lang","'RT"])]))}).apply(null,[]);
+(function __clojure_fn_4487(){
+return (clojure.import_.apply(null,[clojure.JS.lit_list([clojure.symbol("clojure.lang"),clojure.symbol("RT")])]))}).apply(null,[]);
 
 //======
 //(defn alength "Returns the length of the Java array. Works on arrays of all\n  types." {:inline (fn [a] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.RT)) (clojure/list (clojure/concat (clojure/list (quote clojure/alength)) (clojure/list a)))))} [array] (. clojure.lang.RT (alength array)))
 //---
-(function __clojure_fn_4495(){
-return (clojure.JS.def(clojure,"alength",(function __clojure_fn_4495_alength_4500(array_1){
+(function __clojure_fn_4490(){
+return (clojure.JS.def(clojure,"alength",(function __clojure_fn_4490_alength_4495(array_1){
 return (clojure.lang.RT.alength(array_1))})))}).apply(null,[]);
 
 //======
 //(defn aclone "Returns a clone of the Java array. Works on arrays of known\n  types." {:inline (fn [a] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.RT)) (clojure/list (clojure/concat (clojure/list (quote clojure/aclone)) (clojure/list a)))))} [array] (. clojure.lang.RT (aclone array)))
 //---
-(function __clojure_fn_4504(){
-return (clojure.JS.def(clojure,"aclone",(function __clojure_fn_4504_aclone_4509(array_1){
+(function __clojure_fn_4499(){
+return (clojure.JS.def(clojure,"aclone",(function __clojure_fn_4499_aclone_4504(array_1){
 return (clojure.lang.RT.aclone(array_1))})))}).apply(null,[]);
 
 //======
 //(defn aget "Returns the value at the index/indices. Works on Java arrays of all\n  types." {:inline (fn [a i] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.RT)) (clojure/list (clojure/concat (clojure/list (quote clojure/aget)) (clojure/list a) (clojure/list i))))), :inline-arities #{2}} ([array idx] (RT/aget array idx)) ([array idx & idxs] (apply aget (aget array idx) idxs)))
 //---
-(function __clojure_fn_4513(){
-return (clojure.JS.def(clojure,"aget",clojure.JS.variadic(2,(function __clojure_fn_4513_aget_4518(array_1,idx_2){switch(arguments.length){
+(function __clojure_fn_4508(){
+return (clojure.JS.def(clojure,"aget",clojure.JS.variadic(2,(function __clojure_fn_4508_aget_4513(array_1,idx_2){switch(arguments.length){
 case 2:return (clojure.lang.RT.aget(array_1,idx_2))}
 var idxs_3=clojure.JS.rest_args(this,arguments,2);
 return (clojure.apply.apply(null,[clojure.aget,clojure.lang.RT.aget(array_1,idx_2),idxs_3]))}))))}).apply(null,[]);
@@ -1562,14 +1546,14 @@ return (clojure.apply.apply(null,[clojure.aget,clojure.lang.RT.aget(array_1,idx_
 //======
 //(defn aset "Sets the value at the index/indices. Works on Java arrays of\n  reference types. Returns val." {:inline (fn [a i v] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.RT)) (clojure/list (clojure/concat (clojure/list (quote clojure/aset)) (clojure/list a) (clojure/list i) (clojure/list v))))), :inline-arities #{3}} ([array idx val] (RT/aset array idx val) val) ([array idx idx2 & idxv] (apply aset (aget array idx) idx2 idxv)))
 //---
-(function __clojure_fn_4523(){
-return (clojure.JS.def(clojure,"aset",clojure.JS.variadic(3,(function __clojure_fn_4523_aset_4528(array_1,idx_2,idx2_3){switch(arguments.length){
+(function __clojure_fn_4518(){
+return (clojure.JS.def(clojure,"aset",clojure.JS.variadic(3,(function __clojure_fn_4518_aset_4523(array_1,idx_2,idx2_3){switch(arguments.length){
 case 3:var val_3=arguments[2];
 return (clojure.lang.RT.aset(array_1,idx_2,val_3),
 val_3)}
 var idxv_4=clojure.JS.rest_args(this,arguments,3);
 return (clojure.apply.apply(null,[clojure.aset,clojure.lang.RT.aget(array_1,idx_2),idx2_3,idxv_4]))}))))}).apply(null,[]);
-// Skipping: (defmacro def-aset [name method coerce] (clojure/concat (clojure/list (quote clojure/defn)) (clojure/list name) (clojure/list (clojure/apply clojure/hash-map (clojure/concat (clojure/list :arglists) (clojure/list (clojure/concat (clojure/list (quote quote)) (clojure/list (clojure/concat (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote array)) (clojure/list (quote idx)) (clojure/list (quote val))))) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote array)) (clojure/list (quote idx)) (clojure/list (quote idx2)) (clojure/list (quote &)) (clojure/list (quote idxv)))))))))))) (clojure/list (clojure/concat (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote array__4533)) (clojure/list (quote idx__4534)) (clojure/list (quote val__4535))))) (clojure/list (clojure/concat (clojure/list (quote .)) (clojure/list (quote java.lang.reflect.Array)) (clojure/list (clojure/concat (clojure/list method) (clojure/list (quote array__4533)) (clojure/list (quote idx__4534)) (clojure/list (clojure/concat (clojure/list coerce) (clojure/list (quote val__4535)))))))) (clojure/list (quote val__4535)))) (clojure/list (clojure/concat (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote array__4533)) (clojure/list (quote idx__4534)) (clojure/list (quote idx2__4536)) (clojure/list (quote &)) (clojure/list (quote idxv__4537))))) (clojure/list (clojure/concat (clojure/list (quote clojure/apply)) (clojure/list name) (clojure/list (clojure/concat (clojure/list (quote clojure/aget)) (clojure/list (quote array__4533)) (clojure/list (quote idx__4534)))) (clojure/list (quote idx2__4536)) (clojure/list (quote idxv__4537))))))))
+// Skipping: (defmacro def-aset [name method coerce] (clojure/concat (clojure/list (quote clojure/defn)) (clojure/list name) (clojure/list (clojure/apply clojure/hash-map (clojure/concat (clojure/list :arglists) (clojure/list (clojure/concat (clojure/list (quote quote)) (clojure/list (clojure/concat (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote array)) (clojure/list (quote idx)) (clojure/list (quote val))))) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote array)) (clojure/list (quote idx)) (clojure/list (quote idx2)) (clojure/list (quote &)) (clojure/list (quote idxv)))))))))))) (clojure/list (clojure/concat (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote array__4528)) (clojure/list (quote idx__4529)) (clojure/list (quote val__4530))))) (clojure/list (clojure/concat (clojure/list (quote .)) (clojure/list (quote java.lang.reflect.Array)) (clojure/list (clojure/concat (clojure/list method) (clojure/list (quote array__4528)) (clojure/list (quote idx__4529)) (clojure/list (clojure/concat (clojure/list coerce) (clojure/list (quote val__4530)))))))) (clojure/list (quote val__4530)))) (clojure/list (clojure/concat (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote array__4528)) (clojure/list (quote idx__4529)) (clojure/list (quote idx2__4531)) (clojure/list (quote &)) (clojure/list (quote idxv__4532))))) (clojure/list (clojure/concat (clojure/list (quote clojure/apply)) (clojure/list name) (clojure/list (clojure/concat (clojure/list (quote clojure/aget)) (clojure/list (quote array__4528)) (clojure/list (quote idx__4529)))) (clojure/list (quote idx2__4531)) (clojure/list (quote idxv__4532))))))))
 // Skipping: (def-aset aset-int setInt int)
 // Skipping: (def-aset aset-long setLong long)
 // Skipping: (def-aset aset-boolean setBoolean boolean)
@@ -1586,8 +1570,8 @@ return (clojure.apply.apply(null,[clojure.aset,clojure.lang.RT.aget(array_1,idx_
 //======
 //(defn create-struct "Returns a structure basis object." [& keys] (. clojure.lang.PersistentStructMap (createSlotMap keys)))
 //---
-(function __clojure_fn_4625(){
-return (clojure.JS.def(clojure,"create_struct",clojure.JS.variadic(0,(function __clojure_fn_4625_create_struct_4627(){
+(function __clojure_fn_4620(){
+return (clojure.JS.def(clojure,"create_struct",clojure.JS.variadic(0,(function __clojure_fn_4620_create_struct_4622(){
 var keys_1=clojure.JS.rest_args(this,arguments,0);
 return (clojure.lang.PersistentStructMap.createSlotMap(keys_1))}))))}).apply(null,[]);
 // Skipping: (defmacro defstruct "Same as (def name (create-struct keys...))" [name & keys] (clojure/concat (clojure/list (quote def)) (clojure/list name) (clojure/list (clojure/concat (clojure/list (quote clojure/create-struct)) keys))))
@@ -1595,31 +1579,31 @@ return (clojure.lang.PersistentStructMap.createSlotMap(keys_1))}))))}).apply(nul
 //======
 //(defn struct-map "Returns a new structmap instance with the keys of the\n  structure-basis. keyvals may contain all, some or none of the basis\n  keys - where values are not supplied they will default to nil.\n  keyvals can also contain keys not in the basis." [s & inits] (. clojure.lang.PersistentStructMap (create s inits)))
 //---
-(function __clojure_fn_4637(){
-return (clojure.JS.def(clojure,"struct_map",clojure.JS.variadic(1,(function __clojure_fn_4637_struct_map_4639(s_1){
+(function __clojure_fn_4632(){
+return (clojure.JS.def(clojure,"struct_map",clojure.JS.variadic(1,(function __clojure_fn_4632_struct_map_4634(s_1){
 var inits_2=clojure.JS.rest_args(this,arguments,1);
 return (clojure.lang.PersistentStructMap.create(s_1,inits_2))}))))}).apply(null,[]);
 
 //======
 //(defn struct "Returns a new structmap instance with the keys of the\n  structure-basis. vals must be supplied for basis keys in order -\n  where values are not supplied they will default to nil." [s & vals] (. clojure.lang.PersistentStructMap (construct s vals)))
 //---
-(function __clojure_fn_4643(){
-return (clojure.JS.def(clojure,"struct",clojure.JS.variadic(1,(function __clojure_fn_4643_struct_4645(s_1){
+(function __clojure_fn_4638(){
+return (clojure.JS.def(clojure,"struct",clojure.JS.variadic(1,(function __clojure_fn_4638_struct_4640(s_1){
 var vals_2=clojure.JS.rest_args(this,arguments,1);
 return (clojure.lang.PersistentStructMap.construct(s_1,vals_2))}))))}).apply(null,[]);
 
 //======
 //(defn accessor "Returns a fn that, given an instance of a structmap with the basis,\n  returns the value at the key.  The key must be in the basis. The\n  returned function should be (slightly) more efficient than using\n  get, but such use of accessors should be limited to known\n  performance-critical areas." [s key] (. clojure.lang.PersistentStructMap (getAccessor s key)))
 //---
-(function __clojure_fn_4649(){
-return (clojure.JS.def(clojure,"accessor",(function __clojure_fn_4649_accessor_4651(s_1,key_2){
+(function __clojure_fn_4644(){
+return (clojure.JS.def(clojure,"accessor",(function __clojure_fn_4644_accessor_4646(s_1,key_2){
 return (clojure.lang.PersistentStructMap.getAccessor(s_1,key_2))})))}).apply(null,[]);
 
 //======
 //(defn subvec "Returns a persistent vector of the items in vector from\n  start (inclusive) to end (exclusive).  If end is not supplied,\n  defaults to (count vector). This operation is O(1) and very fast, as\n  the resulting vector shares structure with the original and no\n  trimming is done." ([v start] (subvec v start (count v))) ([v start end] (. clojure.lang.RT (subvec v start end))))
 //---
-(function __clojure_fn_4655(){
-return (clojure.JS.def(clojure,"subvec",(function __clojure_fn_4655_subvec_4657(v_1,start_2,end_3){switch(arguments.length){
+(function __clojure_fn_4650(){
+return (clojure.JS.def(clojure,"subvec",(function __clojure_fn_4650_subvec_4652(v_1,start_2,end_3){switch(arguments.length){
 case 2:return (clojure.subvec.apply(null,[v_1,start_2,clojure.count.apply(null,[v_1])]))}
 return (clojure.lang.RT.subvec(v_1,start_2,end_3))})))}).apply(null,[]);
 // Skipping: (defn load-reader "Sequentially read and evaluate the set of forms contained in the\n  stream/file" [rdr] (. clojure.lang.Compiler (load rdr)))
@@ -1628,21 +1612,21 @@ return (clojure.lang.RT.subvec(v_1,start_2,end_3))})))}).apply(null,[]);
 //======
 //(defn resultset-seq "Creates and returns a lazy sequence of structmaps corresponding to\n  the rows in the java.sql.ResultSet rs" [rs] (let [rsmeta (. rs (getMetaData)) idxs (range 1 (inc (. rsmeta (getColumnCount)))) keys (map (comp keyword (memfn toLowerCase)) (map (fn [i] (. rsmeta (getColumnName i))) idxs)) row-struct (apply create-struct keys) row-values (fn [] (map (fn [i] (. rs (getObject i))) idxs)) rows (fn thisfn [] (when (. rs (next)) (lazy-cons (apply struct row-struct (row-values)) (thisfn))))] (rows)))
 //---
-(function __clojure_fn_4674(){
-return (clojure.JS.def(clojure,"resultset_seq",(function __clojure_fn_4674_resultset_seq_4676(rs_1){
-var keys_4,rsmeta_2,row_values_6,rows_7,row_struct_5,idxs_3;
+(function __clojure_fn_4669(){
+return (clojure.JS.def(clojure,"resultset_seq",(function __clojure_fn_4669_resultset_seq_4671(rs_1){
+var rows_7,row_struct_5,idxs_3,rsmeta_2,keys_4,row_values_6;
 return (((rsmeta_2=(rs_1).getMetaData()),
 (idxs_3=clojure.range.apply(null,[(1),clojure.lang.Numbers.inc((rsmeta_2).getColumnCount())])),
-(keys_4=clojure.map.apply(null,[clojure.comp.apply(null,[clojure.keyword,(function __clojure_fn_4674_resultset_seq_4676_fn_4678(target__939_1){
-return ((target__939_1).toLowerCase())})]),clojure.map.apply(null,[(function __clojure_fn_4674_resultset_seq_4676_fn_4681(i_1){
+(keys_4=clojure.map.apply(null,[clojure.comp.apply(null,[clojure.keyword,(function __clojure_fn_4669_resultset_seq_4671_fn_4673(target__939_1){
+return ((target__939_1).toLowerCase())})]),clojure.map.apply(null,[(function __clojure_fn_4669_resultset_seq_4671_fn_4676(i_1){
 return ((rsmeta_2).getColumnName(i_1))}),idxs_3])])),
 (row_struct_5=clojure.apply.apply(null,[clojure.create_struct,keys_4])),
-(row_values_6=(function __clojure_fn_4674_resultset_seq_4676_row_values_4684(){
-return (clojure.map.apply(null,[(function __clojure_fn_4674_resultset_seq_4676_row_values_4684_fn_4686(i_1){
+(row_values_6=(function __clojure_fn_4669_resultset_seq_4671_row_values_4679(){
+return (clojure.map.apply(null,[(function __clojure_fn_4669_resultset_seq_4671_row_values_4679_fn_4681(i_1){
 return ((rs_1).getObject(i_1))}),idxs_3]))})),
-(rows_7=(function __clojure_fn_4674_resultset_seq_4676_thisfn_4690(){
+(rows_7=(function __clojure_fn_4669_resultset_seq_4671_thisfn_4685(){
 var thisfn_0=arguments.callee;
-return ((((rs_1).next())?((new clojure.lang.LazyCons((function __clojure_fn_4674_resultset_seq_4676_thisfn_4690_fn_4692(G__4691_1){switch(arguments.length){
+return ((((rs_1).next())?((new clojure.lang.LazyCons((function __clojure_fn_4669_resultset_seq_4671_thisfn_4685_fn_4687(G__4686_1){switch(arguments.length){
 case 0:return (clojure.apply.apply(null,[clojure.struct,row_struct_5,row_values_6.apply(null,[])]))}
 return (thisfn_0.apply(null,[]))})))):(null)))})),
 rows_7.apply(null,[])))})))}).apply(null,[]);
@@ -1650,16 +1634,16 @@ rows_7.apply(null,[])))})))}).apply(null,[]);
 //======
 //(defn set "Returns a set of the distinct elements of coll." [coll] (apply hash-set coll))
 //---
-(function __clojure_fn_4699(){
-return (clojure.JS.def(clojure,"set",(function __clojure_fn_4699_set_4701(coll_1){
+(function __clojure_fn_4694(){
+return (clojure.JS.def(clojure,"set",(function __clojure_fn_4694_set_4696(coll_1){
 return (clojure.apply.apply(null,[clojure.hash_set,coll_1]))})))}).apply(null,[]);
 // Skipping: (defn class? "Returns true if x is an instance of Class" [x] (instance? Class x))
 
 //======
 //(defn filter-key [keyfn pred amap] (loop [ret {} es (seq amap)] (if es (if (pred (keyfn (first es))) (recur (assoc ret (key (first es)) (val (first es))) (rest es)) (recur ret (rest es))) ret)))
 //---
-(function __clojure_fn_4711(){
-return (clojure.JS.def(clojure,"filter_key",(function __clojure_fn_4711_filter_key_4713(keyfn_1,pred_2,amap_3){
+(function __clojure_fn_4706(){
+return (clojure.JS.def(clojure,"filter_key",(function __clojure_fn_4706_filter_key_4708(keyfn_1,pred_2,amap_3){
 var ret_4,es_5;
 return (((function __loop(){var _rtn,_cnt;(ret_4=clojure.lang.PersistentHashMap.EMPTY),
 (es_5=clojure.seq.apply(null,[amap_3]));do{_cnt=0;
@@ -1668,36 +1652,36 @@ _rtn=((es_5)?(((pred_2.apply(null,[keyfn_1.apply(null,[clojure.first.apply(null,
 //======
 //(defn find-ns "Returns the namespace named by the symbol or nil if it doesn't exist." [sym] (clojure.lang.Namespace/find sym))
 //---
-(function __clojure_fn_4717(){
-return (clojure.JS.def(clojure,"find_ns",(function __clojure_fn_4717_find_ns_4719(sym_1){
+(function __clojure_fn_4712(){
+return (clojure.JS.def(clojure,"find_ns",(function __clojure_fn_4712_find_ns_4714(sym_1){
 return (clojure.lang.Namespace.find(sym_1))})))}).apply(null,[]);
 
 //======
 //(defn create-ns "Create a new namespace named by the symbol if one doesn't already\n  exist, returns it or the already-existing namespace of the same\n  name." [sym] (clojure.lang.Namespace/findOrCreate sym))
 //---
-(function __clojure_fn_4723(){
-return (clojure.JS.def(clojure,"create_ns",(function __clojure_fn_4723_create_ns_4725(sym_1){
+(function __clojure_fn_4718(){
+return (clojure.JS.def(clojure,"create_ns",(function __clojure_fn_4718_create_ns_4720(sym_1){
 return (clojure.lang.Namespace.findOrCreate(sym_1))})))}).apply(null,[]);
 
 //======
 //(defn remove-ns "Removes the namespace named by the symbol. Use with caution.\n  Cannot be used to remove the clojure namespace." [sym] (clojure.lang.Namespace/remove sym))
 //---
-(function __clojure_fn_4729(){
-return (clojure.JS.def(clojure,"remove_ns",(function __clojure_fn_4729_remove_ns_4731(sym_1){
+(function __clojure_fn_4724(){
+return (clojure.JS.def(clojure,"remove_ns",(function __clojure_fn_4724_remove_ns_4726(sym_1){
 return (clojure.lang.Namespace.remove(sym_1))})))}).apply(null,[]);
 
 //======
 //(defn all-ns "Returns a sequence of all namespaces." [] (clojure.lang.Namespace/all))
 //---
-(function __clojure_fn_4735(){
-return (clojure.JS.def(clojure,"all_ns",(function __clojure_fn_4735_all_ns_4737(){
+(function __clojure_fn_4730(){
+return (clojure.JS.def(clojure,"all_ns",(function __clojure_fn_4730_all_ns_4732(){
 return (clojure.lang.Namespace.all())})))}).apply(null,[]);
 
 //======
 //(defn the-ns [x] (if (instance? clojure.lang.Namespace x) x (or (find-ns x) (throw (RT/makeException (str "No namespace: " x " found"))))))
 //---
-(function __clojure_fn_4741(){
-return (clojure.JS.def(clojure,"the_ns",(function __clojure_fn_4741_the_ns_4743(x_1){
+(function __clojure_fn_4736(){
+return (clojure.JS.def(clojure,"the_ns",(function __clojure_fn_4736_the_ns_4738(x_1){
 var or__202_2;
 return (((clojure.instance_QMARK_.apply(null,[clojure.lang.Namespace,x_1]))?(x_1):(((or__202_2=clojure.find_ns.apply(null,[x_1])),
 ((or__202_2)?(or__202_2):((function __throw(){throw clojure.lang.RT.makeException(clojure.str.apply(null,["No namespace: ",x_1," found"]))})()))))))})))}).apply(null,[]);
@@ -1705,32 +1689,32 @@ return (((clojure.instance_QMARK_.apply(null,[clojure.lang.Namespace,x_1]))?(x_1
 //======
 //(defn ns-name "Returns the name of the namespace, a symbol." [ns] (.getName (the-ns ns)))
 //---
-(function __clojure_fn_4747(){
-return (clojure.JS.def(clojure,"ns_name",(function __clojure_fn_4747_ns_name_4749(ns_1){
+(function __clojure_fn_4742(){
+return (clojure.JS.def(clojure,"ns_name",(function __clojure_fn_4742_ns_name_4744(ns_1){
 return ((clojure.the_ns.apply(null,[ns_1])).getName())})))}).apply(null,[]);
 
 //======
 //(defn ns-map "Returns a map of all the mappings for the namespace." [ns] (.getMappings (the-ns ns)))
 //---
-(function __clojure_fn_4753(){
-return (clojure.JS.def(clojure,"ns_map",(function __clojure_fn_4753_ns_map_4755(ns_1){
+(function __clojure_fn_4748(){
+return (clojure.JS.def(clojure,"ns_map",(function __clojure_fn_4748_ns_map_4750(ns_1){
 return ((clojure.the_ns.apply(null,[ns_1])).getMappings())})))}).apply(null,[]);
 
 //======
 //(defn ns-unmap "Removes the mappings for the symbol from the namespace." [ns sym] (.unmap (the-ns ns) sym))
 //---
-(function __clojure_fn_4759(){
-return (clojure.JS.def(clojure,"ns_unmap",(function __clojure_fn_4759_ns_unmap_4761(ns_1,sym_2){
+(function __clojure_fn_4754(){
+return (clojure.JS.def(clojure,"ns_unmap",(function __clojure_fn_4754_ns_unmap_4756(ns_1,sym_2){
 return ((clojure.the_ns.apply(null,[ns_1])).unmap(sym_2))})))}).apply(null,[]);
 
 //======
 //(defn ns-publics "Returns a map of the public intern mappings for the namespace." [ns] (let [ns (the-ns ns)] (filter-key val (fn [v] (and (instance? clojure.lang.Var v) (= ns (.ns v)) (.isPublic v))) (ns-map ns))))
 //---
-(function __clojure_fn_4765(){
-return (clojure.JS.def(clojure,"ns_publics",(function __clojure_fn_4765_ns_publics_4767(ns_1){
+(function __clojure_fn_4760(){
+return (clojure.JS.def(clojure,"ns_publics",(function __clojure_fn_4760_ns_publics_4762(ns_1){
 var ns_2;
 return (((ns_2=clojure.the_ns.apply(null,[ns_1])),
-clojure.filter_key.apply(null,[clojure.val,(function __clojure_fn_4765_ns_publics_4767_fn_4769(v_1){
+clojure.filter_key.apply(null,[clojure.val,(function __clojure_fn_4760_ns_publics_4762_fn_4764(v_1){
 var and__196_2,and__196_3;
 return (((and__196_2=clojure.instance_QMARK_.apply(null,[clojure.lang.Var,v_1])),
 ((and__196_2)?(((and__196_3=clojure.lang.Util.equal(ns_2,clojure.JS.getOrRun(v_1,"ns"))),
@@ -1739,19 +1723,19 @@ return (((and__196_2=clojure.instance_QMARK_.apply(null,[clojure.lang.Var,v_1]))
 //======
 //(defn ns-imports "Returns a map of the import mappings for the namespace." [ns] (filter-key val class? (ns-map ns)))
 //---
-(function __clojure_fn_4774(){
-return (clojure.JS.def(clojure,"ns_imports",(function __clojure_fn_4774_ns_imports_4776(ns_1){
+(function __clojure_fn_4769(){
+return (clojure.JS.def(clojure,"ns_imports",(function __clojure_fn_4769_ns_imports_4771(ns_1){
 return (clojure.filter_key.apply(null,[clojure.val,clojure.class_QMARK_,clojure.ns_map.apply(null,[ns_1])]))})))}).apply(null,[]);
 // Skipping: (defn refer "refers to all public vars of ns, subject to filters.\n  filters can include at most one each of:\n\n  :exclude list-of-symbols\n  :only list-of-symbols\n  :rename map-of-fromsymbol-tosymbol\n\n  For each public interned var in the namespace named by the symbol,\n  adds a mapping from the name of the var to the var to the current\n  namespace.  Throws an exception if name is already mapped to\n  something else in the current namespace. Filters can be used to\n  select a subset, via inclusion or exclusion, or to provide a mapping\n  to a symbol different from the var's name, in order to prevent\n  clashes. Use :use in the ns macro in preference to calling this directly." [ns-sym & filters] (let [ns (or (find-ns ns-sym) (throw (RT/makeException (str "No namespace: " ns-sym)))) fs (apply hash-map filters) nspublics (ns-publics ns) rename (or (:rename fs) {}) exclude (set (:exclude fs)) to-do (or (:only fs) (keys nspublics))] (doseq sym to-do (when-not (exclude sym) (let [v (nspublics sym)] (when-not v (throw (new java.lang.IllegalAccessError (str sym " is not public")))) (. *ns* (refer (or (rename sym) sym) v)))))))
 
 //======
 //(defn ns-refers "Returns a map of the refer mappings for the namespace." [ns] (let [ns (the-ns ns)] (filter-key val (fn [v] (and (instance? clojure.lang.Var v) (not= ns (.ns v)))) (ns-map ns))))
 //---
-(function __clojure_fn_4786(){
-return (clojure.JS.def(clojure,"ns_refers",(function __clojure_fn_4786_ns_refers_4788(ns_1){
+(function __clojure_fn_4781(){
+return (clojure.JS.def(clojure,"ns_refers",(function __clojure_fn_4781_ns_refers_4783(ns_1){
 var ns_2;
 return (((ns_2=clojure.the_ns.apply(null,[ns_1])),
-clojure.filter_key.apply(null,[clojure.val,(function __clojure_fn_4786_ns_refers_4788_fn_4790(v_1){
+clojure.filter_key.apply(null,[clojure.val,(function __clojure_fn_4781_ns_refers_4783_fn_4785(v_1){
 var and__196_2;
 return (((and__196_2=clojure.instance_QMARK_.apply(null,[clojure.lang.Var,v_1])),
 ((and__196_2)?(clojure.not_EQ_.apply(null,[ns_2,clojure.JS.getOrRun(v_1,"ns")])):(and__196_2))))}),clojure.ns_map.apply(null,[ns_2])])))})))}).apply(null,[]);
@@ -1759,11 +1743,11 @@ return (((and__196_2=clojure.instance_QMARK_.apply(null,[clojure.lang.Var,v_1]))
 //======
 //(defn ns-interns "Returns a map of the intern mappings for the namespace." [ns] (let [ns (the-ns ns)] (filter-key val (fn [v] (and (instance? clojure.lang.Var v) (= ns (.ns v)))) (ns-map ns))))
 //---
-(function __clojure_fn_4795(){
-return (clojure.JS.def(clojure,"ns_interns",(function __clojure_fn_4795_ns_interns_4797(ns_1){
+(function __clojure_fn_4790(){
+return (clojure.JS.def(clojure,"ns_interns",(function __clojure_fn_4790_ns_interns_4792(ns_1){
 var ns_2;
 return (((ns_2=clojure.the_ns.apply(null,[ns_1])),
-clojure.filter_key.apply(null,[clojure.val,(function __clojure_fn_4795_ns_interns_4797_fn_4799(v_1){
+clojure.filter_key.apply(null,[clojure.val,(function __clojure_fn_4790_ns_interns_4792_fn_4794(v_1){
 var and__196_2;
 return (((and__196_2=clojure.instance_QMARK_.apply(null,[clojure.lang.Var,v_1])),
 ((and__196_2)?(clojure.lang.Util.equal(ns_2,clojure.JS.getOrRun(v_1,"ns"))):(and__196_2))))}),clojure.ns_map.apply(null,[ns_2])])))})))}).apply(null,[]);
@@ -1771,53 +1755,53 @@ return (((and__196_2=clojure.instance_QMARK_.apply(null,[clojure.lang.Var,v_1]))
 //======
 //(defn alias "Add an alias in the current namespace to another\n  namespace. Arguments are two symbols: the alias to be used, and\n  the symbolic name of the target namespace. Use :as in the ns macro in preference \n  to calling this directly." [alias namespace-sym] (.addAlias *ns* alias (find-ns namespace-sym)))
 //---
-(function __clojure_fn_4804(){
-return (clojure.JS.def(clojure,"alias",(function __clojure_fn_4804_alias_4806(alias_1,namespace_sym_2){
+(function __clojure_fn_4799(){
+return (clojure.JS.def(clojure,"alias",(function __clojure_fn_4799_alias_4801(alias_1,namespace_sym_2){
 return ((clojure._STAR_ns_STAR_).addAlias(alias_1,clojure.find_ns.apply(null,[namespace_sym_2])))})))}).apply(null,[]);
 
 //======
 //(defn ns-aliases "Returns a map of the aliases for the namespace." [ns] (.getAliases (the-ns ns)))
 //---
-(function __clojure_fn_4810(){
-return (clojure.JS.def(clojure,"ns_aliases",(function __clojure_fn_4810_ns_aliases_4812(ns_1){
+(function __clojure_fn_4805(){
+return (clojure.JS.def(clojure,"ns_aliases",(function __clojure_fn_4805_ns_aliases_4807(ns_1){
 return ((clojure.the_ns.apply(null,[ns_1])).getAliases())})))}).apply(null,[]);
 
 //======
 //(defn ns-unalias "Removes the alias for the symbol from the namespace." [ns sym] (.removeAlias (the-ns ns) sym))
 //---
-(function __clojure_fn_4816(){
-return (clojure.JS.def(clojure,"ns_unalias",(function __clojure_fn_4816_ns_unalias_4818(ns_1,sym_2){
+(function __clojure_fn_4811(){
+return (clojure.JS.def(clojure,"ns_unalias",(function __clojure_fn_4811_ns_unalias_4813(ns_1,sym_2){
 return ((clojure.the_ns.apply(null,[ns_1])).removeAlias(sym_2))})))}).apply(null,[]);
 
 //======
 //(defn take-nth "Returns a lazy seq of every nth item in coll." [n coll] (when (seq coll) (lazy-cons (first coll) (take-nth n (drop n coll)))))
 //---
-(function __clojure_fn_4822(){
-return (clojure.JS.def(clojure,"take_nth",(function __clojure_fn_4822_take_nth_4824(n_1,coll_2){
-return (((clojure.seq.apply(null,[coll_2]))?((new clojure.lang.LazyCons((function __clojure_fn_4822_take_nth_4824_fn_4827(G__4826_1){switch(arguments.length){
+(function __clojure_fn_4817(){
+return (clojure.JS.def(clojure,"take_nth",(function __clojure_fn_4817_take_nth_4819(n_1,coll_2){
+return (((clojure.seq.apply(null,[coll_2]))?((new clojure.lang.LazyCons((function __clojure_fn_4817_take_nth_4819_fn_4822(G__4821_1){switch(arguments.length){
 case 0:return (clojure.first.apply(null,[coll_2]))}
 return (clojure.take_nth.apply(null,[n_1,clojure.drop.apply(null,[n_1,coll_2])]))})))):(null)))})))}).apply(null,[]);
 
 //======
 //(defn interleave "Returns a lazy seq of the first item in each coll, then the second\n  etc." [& colls] (apply concat (apply map list colls)))
 //---
-(function __clojure_fn_4833(){
-return (clojure.JS.def(clojure,"interleave",clojure.JS.variadic(0,(function __clojure_fn_4833_interleave_4835(){
+(function __clojure_fn_4828(){
+return (clojure.JS.def(clojure,"interleave",clojure.JS.variadic(0,(function __clojure_fn_4828_interleave_4830(){
 var colls_1=clojure.JS.rest_args(this,arguments,0);
 return (clojure.apply.apply(null,[clojure.concat,clojure.apply.apply(null,[clojure.map,clojure.list,colls_1])]))}))))}).apply(null,[]);
 
 //======
 //(defn var-get "Gets the value in the var object" [x] (. x (get)))
 //---
-(function __clojure_fn_4839(){
-return (clojure.JS.def(clojure,"var_get",(function __clojure_fn_4839_var_get_4841(x_1){
+(function __clojure_fn_4834(){
+return (clojure.JS.def(clojure,"var_get",(function __clojure_fn_4834_var_get_4836(x_1){
 return ((x_1).get())})))}).apply(null,[]);
 
 //======
 //(defn var-set "Sets the value in the var object to val. The var must be\n thread-locally bound." [x val] (. x (set val)))
 //---
-(function __clojure_fn_4845(){
-return (clojure.JS.def(clojure,"var_set",(function __clojure_fn_4845_var_set_4847(x_1,val_2){
+(function __clojure_fn_4840(){
+return (clojure.JS.def(clojure,"var_set",(function __clojure_fn_4840_var_set_4842(x_1,val_2){
 return ((x_1).set(val_2))})))}).apply(null,[]);
 // Skipping: (defmacro with-local-vars "varbinding=> symbol init-expr\n\n  Executes the exprs in a context in which the symbols are bound to\n  vars with per-thread bindings to the init-exprs.  The symbols refer\n  to the var objects themselves, and must be accessed with var-get and\n  var-set" [name-vals-vec & body] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (interleave (take-nth 2 name-vals-vec) (repeat (quote (. clojure.lang.Var (create)))))))) (clojure/list (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Var)) (clojure/list (clojure/concat (clojure/list (quote clojure/pushThreadBindings)) (clojure/list (clojure/concat (clojure/list (quote clojure/hash-map)) name-vals-vec)))))) (clojure/list (clojure/concat (clojure/list (quote try)) body (clojure/list (clojure/concat (clojure/list (quote finally)) (clojure/list (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Var)) (clojure/list (clojure/concat (clojure/list (quote clojure/popThreadBindings))))))))))))
 // Skipping: (defn ns-resolve "Returns the var or Class to which a symbol will be resolved in the\n  namespace, else nil.  Note that if the symbol is fully qualified,\n  the var/Class to which it resolves need not be present in the\n  namespace." [ns sym] (clojure.lang.Compiler/maybeResolveIn (the-ns ns) sym))
@@ -1826,8 +1810,8 @@ return ((x_1).set(val_2))})))}).apply(null,[]);
 //======
 //(defn array-map "Constructs an array-map." ([] (. clojure.lang.PersistentArrayMap EMPTY)) ([& keyvals] (new clojure.lang.PersistentArrayMap (to-array keyvals))))
 //---
-(function __clojure_fn_4869(){
-return (clojure.JS.def(clojure,"array_map",clojure.JS.variadic(0,(function __clojure_fn_4869_array_map_4871(){switch(arguments.length){
+(function __clojure_fn_4864(){
+return (clojure.JS.def(clojure,"array_map",clojure.JS.variadic(0,(function __clojure_fn_4864_array_map_4866(){switch(arguments.length){
 case 0:return (clojure.JS.getOrRun(clojure.lang.PersistentArrayMap,"EMPTY"))}
 var keyvals_1=clojure.JS.rest_args(this,arguments,0);
 return ((new clojure.lang.PersistentArrayMap(clojure.to_array.apply(null,[keyvals_1]))))}))))}).apply(null,[]);
@@ -1835,9 +1819,9 @@ return ((new clojure.lang.PersistentArrayMap(clojure.to_array.apply(null,[keyval
 //======
 //(defn nthrest "Returns the nth rest of coll, (seq coll) when n is 0." [coll n] (loop [n n xs (seq coll)] (if (and xs (pos? n)) (recur (dec n) (rest xs)) xs)))
 //---
-(function __clojure_fn_4876(){
-return (clojure.JS.def(clojure,"nthrest",(function __clojure_fn_4876_nthrest_4878(coll_1,n_2){
-var xs_4,and__196_5,n_3;
+(function __clojure_fn_4871(){
+return (clojure.JS.def(clojure,"nthrest",(function __clojure_fn_4871_nthrest_4873(coll_1,n_2){
+var n_3,and__196_5,xs_4;
 return (((function __loop(){var _rtn,_cnt;(n_3=n_2),
 (xs_4=clojure.seq.apply(null,[coll_1]));do{_cnt=0;
 _rtn=((((and__196_5=xs_4),
@@ -1846,69 +1830,69 @@ _rtn=((((and__196_5=xs_4),
 //======
 //(defn symbol? "Return true if x is a Symbol" [x] (instance? clojure.lang.Symbol x))
 //---
-(function __clojure_fn_4882(){
-return (clojure.JS.def(clojure,"symbol_QMARK_",(function __clojure_fn_4882_symbol_QMARK_4884(x_1){
+(function __clojure_fn_4877(){
+return (clojure.JS.def(clojure,"symbol_QMARK_",(function __clojure_fn_4877_symbol_QMARK_4879(x_1){
 return (clojure.instance_QMARK_.apply(null,[clojure.lang.Symbol,x_1]))})))}).apply(null,[]);
 
 //======
 //(defn keyword? "Return true if x is a Keyword" [x] (instance? clojure.lang.Keyword x))
 //---
-(function __clojure_fn_4888(){
-return (clojure.JS.def(clojure,"keyword_QMARK_",(function __clojure_fn_4888_keyword_QMARK_4890(x_1){
+(function __clojure_fn_4883(){
+return (clojure.JS.def(clojure,"keyword_QMARK_",(function __clojure_fn_4883_keyword_QMARK_4885(x_1){
 return (clojure.instance_QMARK_.apply(null,[clojure.lang.Keyword,x_1]))})))}).apply(null,[]);
 
 //======
-//(defn destructure [bindings] (let [bmap (apply array-map bindings) pb (fn pb [bvec b v] (let [pvec (fn [bvec b val] (let [gvec (gensym "vec__")] (loop [ret (-> bvec (conj gvec) (conj val)) n 0 bs b seen-rest? false] (if (seq bs) (let [firstb (first bs)] (cond (= firstb (quote &)) (recur (pb ret (second bs) (list (quote clojure/nthrest) gvec n)) n (rrest bs) true) (= firstb :as) (pb ret (second bs) gvec) :else (if seen-rest? (throw (RT/makeException "Unsupported binding form, only :as can follow & parameter")) (recur (pb ret firstb (list (quote clojure/nth) gvec n nil)) (inc n) (rest bs) seen-rest?)))) ret)))) pmap (fn [bvec b v] (let [gmap (or (:as b) (gensym "map__")) defaults (:or b)] (loop [ret (-> bvec (conj gmap) (conj v)) bes (reduce (fn [bes entry] (reduce (fn* [p1__4894 p2__4895] (assoc p1__4894 p2__4895 ((val entry) p2__4895))) (dissoc bes (key entry)) ((key entry) bes))) (dissoc b :as :or) {:strs str, :syms (fn* [p1__4897] (list (quote quote) p1__4897)), :keys (fn* [p1__4896] (keyword (str p1__4896)))})] (if (seq bes) (let [bb (key (first bes)) bk (val (first bes)) has-default (contains? defaults bb)] (recur (pb ret bb (if has-default (list (quote clojure/get) gmap bk (defaults bb)) (list (quote clojure/get) gmap bk))) (rest bes))) ret))))] (cond (symbol? b) (-> bvec (conj b) (conj v)) (vector? b) (pvec bvec b v) (map? b) (pmap bvec b v) :else (throw (RT/makeException (str "Unsupported binding form: " b)))))) process-entry (fn [bvec b] (pb bvec (key b) (val b)))] (if (every? symbol? (keys bmap)) bindings (reduce process-entry [] bmap))))
+//(defn destructure [bindings] (let [bmap (apply array-map bindings) pb (fn pb [bvec b v] (let [pvec (fn [bvec b val] (let [gvec (gensym "vec__")] (loop [ret (-> bvec (conj gvec) (conj val)) n 0 bs b seen-rest? false] (if (seq bs) (let [firstb (first bs)] (cond (= firstb (quote &)) (recur (pb ret (second bs) (list (quote clojure/nthrest) gvec n)) n (rrest bs) true) (= firstb :as) (pb ret (second bs) gvec) :else (if seen-rest? (throw (RT/makeException "Unsupported binding form, only :as can follow & parameter")) (recur (pb ret firstb (list (quote clojure/nth) gvec n nil)) (inc n) (rest bs) seen-rest?)))) ret)))) pmap (fn [bvec b v] (let [gmap (or (:as b) (gensym "map__")) defaults (:or b)] (loop [ret (-> bvec (conj gmap) (conj v)) bes (reduce (fn [bes entry] (reduce (fn* [p1__4889 p2__4890] (assoc p1__4889 p2__4890 ((val entry) p2__4890))) (dissoc bes (key entry)) ((key entry) bes))) (dissoc b :as :or) {:strs str, :syms (fn* [p1__4892] (list (quote quote) p1__4892)), :keys (fn* [p1__4891] (keyword (str p1__4891)))})] (if (seq bes) (let [bb (key (first bes)) bk (val (first bes)) has-default (contains? defaults bb)] (recur (pb ret bb (if has-default (list (quote clojure/get) gmap bk (defaults bb)) (list (quote clojure/get) gmap bk))) (rest bes))) ret))))] (cond (symbol? b) (-> bvec (conj b) (conj v)) (vector? b) (pvec bvec b v) (map? b) (pmap bvec b v) :else (throw (RT/makeException (str "Unsupported binding form: " b)))))) process-entry (fn [bvec b] (pb bvec (key b) (val b)))] (if (every? symbol? (keys bmap)) bindings (reduce process-entry [] bmap))))
 //---
-(function __clojure_fn_4898(){
-return (clojure.JS.def(clojure,"destructure",(function __clojure_fn_4898_destructure_4900(bindings_1){
-var bmap_2,process_entry_4,pb_3;
+(function __clojure_fn_4893(){
+return (clojure.JS.def(clojure,"destructure",(function __clojure_fn_4893_destructure_4895(bindings_1){
+var process_entry_4,pb_3,bmap_2;
 return (((bmap_2=clojure.apply.apply(null,[clojure.array_map,bindings_1])),
-(pb_3=(function __clojure_fn_4898_destructure_4900_pb_4902(bvec_1,b_2,v_3){
+(pb_3=(function __clojure_fn_4893_destructure_4895_pb_4897(bvec_1,b_2,v_3){
 var pvec_4,pmap_5,pb_0=arguments.callee;
-return (((pvec_4=(function __clojure_fn_4898_destructure_4900_pb_4902_pvec_4903(bvec_1,b_2,val_3){
-var gvec_4,ret_5,seen_rest_QMARK__8,n_6,bs_7,firstb_9;
+return (((pvec_4=(function __clojure_fn_4893_destructure_4895_pb_4897_pvec_4898(bvec_1,b_2,val_3){
+var firstb_9,seen_rest_QMARK__8,bs_7,n_6,gvec_4,ret_5;
 return (((gvec_4=clojure.gensym.apply(null,["vec__"])),
 ((function __loop(){var _rtn,_cnt;(ret_5=clojure.conj.apply(null,[clojure.conj.apply(null,[bvec_1,gvec_4]),val_3])),
 (n_6=(0)),
 (bs_7=b_2),
 (seen_rest_QMARK__8=false);do{_cnt=0;
 _rtn=((clojure.seq.apply(null,[bs_7]))?(((firstb_9=clojure.first.apply(null,[bs_7])),
-((clojure.lang.Util.equal(firstb_9,"'&"))?((_cnt=1,_rtn=[pb_0.apply(null,[ret_5,clojure.second.apply(null,[bs_7]),clojure.list.apply(null,["'clojure/nthrest",gvec_4,n_6])]),n_6,clojure.rrest.apply(null,[bs_7]),true],ret_5=_rtn[0],n_6=_rtn[1],bs_7=_rtn[2],seen_rest_QMARK__8=_rtn[3])):(((clojure.lang.Util.equal(firstb_9,clojure.keyword("","as")))?(pb_0.apply(null,[ret_5,clojure.second.apply(null,[bs_7]),gvec_4])):(((clojure.keyword("","else"))?(((seen_rest_QMARK__8)?((function __throw(){throw clojure.lang.RT.makeException("Unsupported binding form, only :as can follow & parameter")})()):((_cnt=1,_rtn=[pb_0.apply(null,[ret_5,firstb_9,clojure.list.apply(null,["'clojure/nth",gvec_4,n_6,null])]),clojure.lang.Numbers.inc(n_6),clojure.rest.apply(null,[bs_7]),seen_rest_QMARK__8],ret_5=_rtn[0],n_6=_rtn[1],bs_7=_rtn[2],seen_rest_QMARK__8=_rtn[3])))):(null)))))))):(ret_5))}while(_cnt);return _rtn;})())))})),
-(pmap_5=(function __clojure_fn_4898_destructure_4900_pb_4902_pmap_4906(bvec_1,b_2,v_3){
-var gmap_4,bb_8,bes_7,bk_9,ret_6,or__202_4,defaults_5,has_default_10;
+((clojure.lang.Util.equal(firstb_9,clojure.symbol("&")))?((_cnt=1,_rtn=[pb_0.apply(null,[ret_5,clojure.second.apply(null,[bs_7]),clojure.list.apply(null,[clojure.symbol("clojure/nthrest"),gvec_4,n_6])]),n_6,clojure.rrest.apply(null,[bs_7]),true],ret_5=_rtn[0],n_6=_rtn[1],bs_7=_rtn[2],seen_rest_QMARK__8=_rtn[3])):(((clojure.lang.Util.equal(firstb_9,clojure.keyword("","as")))?(pb_0.apply(null,[ret_5,clojure.second.apply(null,[bs_7]),gvec_4])):(((clojure.keyword("","else"))?(((seen_rest_QMARK__8)?((function __throw(){throw clojure.lang.RT.makeException("Unsupported binding form, only :as can follow & parameter")})()):((_cnt=1,_rtn=[pb_0.apply(null,[ret_5,firstb_9,clojure.list.apply(null,[clojure.symbol("clojure/nth"),gvec_4,n_6,null])]),clojure.lang.Numbers.inc(n_6),clojure.rest.apply(null,[bs_7]),seen_rest_QMARK__8],ret_5=_rtn[0],n_6=_rtn[1],bs_7=_rtn[2],seen_rest_QMARK__8=_rtn[3])))):(null)))))))):(ret_5))}while(_cnt);return _rtn;})())))})),
+(pmap_5=(function __clojure_fn_4893_destructure_4895_pb_4897_pmap_4901(bvec_1,b_2,v_3){
+var or__202_4,bb_8,bes_7,bk_9,gmap_4,ret_6,has_default_10,defaults_5;
 return (((gmap_4=((or__202_4=clojure.keyword("","as").apply(null,[b_2])),
 ((or__202_4)?(or__202_4):(clojure.gensym.apply(null,["map__"]))))),
 (defaults_5=clojure.keyword("","or").apply(null,[b_2])),
 ((function __loop(){var _rtn,_cnt;(ret_6=clojure.conj.apply(null,[clojure.conj.apply(null,[bvec_1,gmap_4]),v_3])),
-(bes_7=clojure.reduce.apply(null,[(function __clojure_fn_4898_destructure_4900_pb_4902_pmap_4906_fn_4908(bes_1,entry_2){
-return (clojure.reduce.apply(null,[(function __clojure_fn_4898_destructure_4900_pb_4902_pmap_4906_fn_4908_fn_4910(p1__4894_1,p2__4895_2){
-return (clojure.assoc.apply(null,[p1__4894_1,p2__4895_2,clojure.val.apply(null,[entry_2]).apply(null,[p2__4895_2])]))}),clojure.dissoc.apply(null,[bes_1,clojure.key.apply(null,[entry_2])]),clojure.key.apply(null,[entry_2]).apply(null,[bes_1])]))}),clojure.dissoc.apply(null,[b_2,clojure.keyword("","as"),clojure.keyword("","or")]),clojure.hash_map(clojure.keyword("","strs"),clojure.str,clojure.keyword("","syms"),(function __clojure_fn_4898_destructure_4900_pb_4902_pmap_4906_fn_4914(p1__4897_1){
-return (clojure.list.apply(null,["'quote",p1__4897_1]))}),clojure.keyword("","keys"),(function __clojure_fn_4898_destructure_4900_pb_4902_pmap_4906_fn_4917(p1__4896_1){
-return (clojure.keyword.apply(null,[clojure.str.apply(null,[p1__4896_1])]))}))]));do{_cnt=0;
+(bes_7=clojure.reduce.apply(null,[(function __clojure_fn_4893_destructure_4895_pb_4897_pmap_4901_fn_4903(bes_1,entry_2){
+return (clojure.reduce.apply(null,[(function __clojure_fn_4893_destructure_4895_pb_4897_pmap_4901_fn_4903_fn_4905(p1__4889_1,p2__4890_2){
+return (clojure.assoc.apply(null,[p1__4889_1,p2__4890_2,clojure.val.apply(null,[entry_2]).apply(null,[p2__4890_2])]))}),clojure.dissoc.apply(null,[bes_1,clojure.key.apply(null,[entry_2])]),clojure.key.apply(null,[entry_2]).apply(null,[bes_1])]))}),clojure.dissoc.apply(null,[b_2,clojure.keyword("","as"),clojure.keyword("","or")]),clojure.hash_map(clojure.keyword("","strs"),clojure.str,clojure.keyword("","syms"),(function __clojure_fn_4893_destructure_4895_pb_4897_pmap_4901_fn_4909(p1__4892_1){
+return (clojure.list.apply(null,[clojure.symbol("quote"),p1__4892_1]))}),clojure.keyword("","keys"),(function __clojure_fn_4893_destructure_4895_pb_4897_pmap_4901_fn_4912(p1__4891_1){
+return (clojure.keyword.apply(null,[clojure.str.apply(null,[p1__4891_1])]))}))]));do{_cnt=0;
 _rtn=((clojure.seq.apply(null,[bes_7]))?(((bb_8=clojure.key.apply(null,[clojure.first.apply(null,[bes_7])])),
 (bk_9=clojure.val.apply(null,[clojure.first.apply(null,[bes_7])])),
 (has_default_10=clojure.contains_QMARK_.apply(null,[defaults_5,bb_8])),
-(_cnt=1,_rtn=[pb_0.apply(null,[ret_6,bb_8,((has_default_10)?(clojure.list.apply(null,["'clojure/get",gmap_4,bk_9,defaults_5.apply(null,[bb_8])])):(clojure.list.apply(null,["'clojure/get",gmap_4,bk_9])))]),clojure.rest.apply(null,[bes_7])],ret_6=_rtn[0],bes_7=_rtn[1]))):(ret_6))}while(_cnt);return _rtn;})())))})),
+(_cnt=1,_rtn=[pb_0.apply(null,[ret_6,bb_8,((has_default_10)?(clojure.list.apply(null,[clojure.symbol("clojure/get"),gmap_4,bk_9,defaults_5.apply(null,[bb_8])])):(clojure.list.apply(null,[clojure.symbol("clojure/get"),gmap_4,bk_9])))]),clojure.rest.apply(null,[bes_7])],ret_6=_rtn[0],bes_7=_rtn[1]))):(ret_6))}while(_cnt);return _rtn;})())))})),
 ((clojure.symbol_QMARK_.apply(null,[b_2]))?(clojure.conj.apply(null,[clojure.conj.apply(null,[bvec_1,b_2]),v_3])):(((clojure.vector_QMARK_.apply(null,[b_2]))?(pvec_4.apply(null,[bvec_1,b_2,v_3])):(((clojure.map_QMARK_.apply(null,[b_2]))?(pmap_5.apply(null,[bvec_1,b_2,v_3])):(((clojure.keyword("","else"))?((function __throw(){throw clojure.lang.RT.makeException(clojure.str.apply(null,["Unsupported binding form: ",b_2]))})()):(null))))))))))})),
-(process_entry_4=(function __clojure_fn_4898_destructure_4900_process_entry_4922(bvec_1,b_2){
+(process_entry_4=(function __clojure_fn_4893_destructure_4895_process_entry_4917(bvec_1,b_2){
 return (pb_3.apply(null,[bvec_1,clojure.key.apply(null,[b_2]),clojure.val.apply(null,[b_2])]))})),
 ((clojure.every_QMARK_.apply(null,[clojure.symbol_QMARK_,clojure.keys.apply(null,[bmap_2])]))?(bindings_1):(clojure.reduce.apply(null,[process_entry_4,clojure.lang.PersistentVector.EMPTY,bmap_2])))))})))}).apply(null,[]);
 // Skipping: (defmacro let "Evaluates the exprs in a lexical context in which the symbols in\n  the binding-forms are bound to their respective init-exprs or parts\n  therein." [bindings & body] (when (odd? (count bindings)) (throw (Exception. "Odd number of elements in let bindings"))) (clojure/concat (clojure/list (quote let*)) (clojure/list (destructure bindings)) body))
 // Skipping: (defmacro fn "(fn name? [params* ] exprs*)\n  (fn name? ([params* ] exprs*)+)\n\n  params => positional-params* , or positional-params* & rest-param\n  positional-param => binding-form\n  rest-param => binding-form\n  name => symbol\n\n  Defines a function" [& sigs] (let [name (if (symbol? (first sigs)) (first sigs) nil) sigs (if name (rest sigs) sigs) sigs (if (vector? (first sigs)) (list sigs) sigs) psig (fn [sig] (let [[params & body] sig] (if (every? symbol? params) sig (loop [params params new-params [] lets []] (if params (if (symbol? (first params)) (recur (rest params) (conj new-params (first params)) lets) (let [gparam (gensym "p__")] (recur (rest params) (conj new-params gparam) (-> lets (conj (first params)) (conj gparam))))) (clojure/concat (clojure/list new-params) (clojure/list (clojure/concat (clojure/list (quote clojure/let)) (clojure/list lets) body)))))))) new-sigs (map psig sigs)] (with-meta (if name (list* (quote fn*) name new-sigs) (cons (quote fn*) new-sigs)) *macro-meta*)))
 // Skipping: (defmacro loop "Evaluates the exprs in a lexical context in which the symbols in\n  the binding-forms are bound to their respective init-exprs or parts\n  therein. Acts as a recur target." [bindings & body] (let [db (destructure bindings)] (if (= db bindings) (clojure/concat (clojure/list (quote loop*)) (clojure/list bindings) body) (let [vs (take-nth 2 (drop 1 bindings)) bs (take-nth 2 bindings) gs (map (fn [b] (if (symbol? b) b (gensym))) bs) bfs (reduce (fn [ret [b v g]] (if (symbol? b) (conj ret g v) (conj ret g v b g))) [] (map vector bs vs gs))] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list bfs) (clojure/list (clojure/concat (clojure/list (quote loop*)) (clojure/list (vec (interleave gs gs))) (clojure/list (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (vec (interleave bs gs))) body)))))))))
 // Skipping: (defmacro when-first "Same as (when (seq xs) (let [x (first xs)] body))" [x xs & body] (clojure/concat (clojure/list (quote clojure/when)) (clojure/list (clojure/concat (clojure/list (quote clojure/seq)) (clojure/list xs))) (clojure/list (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list x) (clojure/list (clojure/concat (clojure/list (quote clojure/first)) (clojure/list xs)))))) body))))
-// Skipping: (defmacro lazy-cat "Expands to code which yields a lazy sequence of the concatenation\n  of the supplied colls.  Each coll expr is not evaluated until it is\n  needed." ([coll] (clojure/concat (clojure/list (quote clojure/seq)) (clojure/list coll))) ([coll & colls] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote iter__4963)) (clojure/list (clojure/concat (clojure/list (quote clojure/fn)) (clojure/list (quote iter__4963)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote coll__4964))))) (clojure/list (clojure/concat (clojure/list (quote if)) (clojure/list (clojure/concat (clojure/list (quote clojure/seq)) (clojure/list (quote coll__4964)))) (clojure/list (clojure/concat (clojure/list (quote clojure/lazy-cons)) (clojure/list (clojure/concat (clojure/list (quote clojure/first)) (clojure/list (quote coll__4964)))) (clojure/list (clojure/concat (clojure/list (quote iter__4963)) (clojure/list (clojure/concat (clojure/list (quote clojure/rest)) (clojure/list (quote coll__4964)))))))) (clojure/list (clojure/concat (clojure/list (quote clojure/lazy-cat)) colls))))))))) (clojure/list (clojure/concat (clojure/list (quote iter__4963)) (clojure/list coll))))))
-// Skipping: (defmacro for "List comprehension. Takes a vector of one or more\n binding-form/collection-expr pairs, each followed by an optional filtering\n :when/:while expression (:when test or :while test), and yields a\n lazy sequence of evaluations of expr. Collections are iterated in a\n nested fashion, rightmost fastest, and nested coll-exprs can refer to\n bindings created in prior binding-forms.\n\n (take 100 (for [x (range 100000000) y (range 1000000) :while (< y x)]  [x y]))" ([seq-exprs expr] (let [pargs (fn [xs] (loop [ret [] [b e & [w f & wr :as r] :as xs] (seq xs)] (if xs (cond (= w :when) (recur (conj ret {:f f, :e e, :b b, :w :when}) wr) (= w :while) (recur (conj ret {:f f, :e e, :b b, :w :while}) wr) :else (recur (conj ret {:f true, :e e, :b b, :w :while}) r)) (seq ret)))) emit (fn emit [[{w :w, b :b, f :f} & [{ys :e} :as rses]]] (let [giter (gensym "iter__") gxs (gensym "s__")] (clojure/concat (clojure/list (quote clojure/fn)) (clojure/list giter) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list gxs)))) (clojure/list (clojure/concat (clojure/list (quote clojure/when-first)) (clojure/list b) (clojure/list gxs) (clojure/list (clojure/concat (clojure/list (quote if)) (clojure/list f) (clojure/list (if rses (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote iterys__4972)) (clojure/list (emit rses)) (clojure/list (quote fs__4973)) (clojure/list (clojure/concat (clojure/list (quote iterys__4972)) (clojure/list ys)))))) (clojure/list (clojure/concat (clojure/list (quote if)) (clojure/list (quote fs__4973)) (clojure/list (clojure/concat (clojure/list (quote clojure/lazy-cat)) (clojure/list (quote fs__4973)) (clojure/list (clojure/concat (clojure/list giter) (clojure/list (clojure/concat (clojure/list (quote clojure/rest)) (clojure/list gxs))))))) (clojure/list (clojure/concat (clojure/list (quote recur)) (clojure/list (clojure/concat (clojure/list (quote clojure/rest)) (clojure/list gxs)))))))) (clojure/concat (clojure/list (quote clojure/lazy-cons)) (clojure/list expr) (clojure/list (clojure/concat (clojure/list giter) (clojure/list (clojure/concat (clojure/list (quote clojure/rest)) (clojure/list gxs)))))))) (clojure/list (if (= w :when) (clojure/concat (clojure/list (quote recur)) (clojure/list (clojure/concat (clojure/list (quote clojure/rest)) (clojure/list gxs)))) nil)))))))))] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote iter__4974)) (clojure/list (emit (pargs seq-exprs)))))) (clojure/list (clojure/concat (clojure/list (quote iter__4974)) (clojure/list (second seq-exprs))))))))
+// Skipping: (defmacro lazy-cat "Expands to code which yields a lazy sequence of the concatenation\n  of the supplied colls.  Each coll expr is not evaluated until it is\n  needed." ([coll] (clojure/concat (clojure/list (quote clojure/seq)) (clojure/list coll))) ([coll & colls] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote iter__4958)) (clojure/list (clojure/concat (clojure/list (quote clojure/fn)) (clojure/list (quote iter__4958)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote coll__4959))))) (clojure/list (clojure/concat (clojure/list (quote if)) (clojure/list (clojure/concat (clojure/list (quote clojure/seq)) (clojure/list (quote coll__4959)))) (clojure/list (clojure/concat (clojure/list (quote clojure/lazy-cons)) (clojure/list (clojure/concat (clojure/list (quote clojure/first)) (clojure/list (quote coll__4959)))) (clojure/list (clojure/concat (clojure/list (quote iter__4958)) (clojure/list (clojure/concat (clojure/list (quote clojure/rest)) (clojure/list (quote coll__4959)))))))) (clojure/list (clojure/concat (clojure/list (quote clojure/lazy-cat)) colls))))))))) (clojure/list (clojure/concat (clojure/list (quote iter__4958)) (clojure/list coll))))))
+// Skipping: (defmacro for "List comprehension. Takes a vector of one or more\n binding-form/collection-expr pairs, each followed by an optional filtering\n :when/:while expression (:when test or :while test), and yields a\n lazy sequence of evaluations of expr. Collections are iterated in a\n nested fashion, rightmost fastest, and nested coll-exprs can refer to\n bindings created in prior binding-forms.\n\n (take 100 (for [x (range 100000000) y (range 1000000) :while (< y x)]  [x y]))" ([seq-exprs expr] (let [pargs (fn [xs] (loop [ret [] [b e & [w f & wr :as r] :as xs] (seq xs)] (if xs (cond (= w :when) (recur (conj ret {:f f, :e e, :b b, :w :when}) wr) (= w :while) (recur (conj ret {:f f, :e e, :b b, :w :while}) wr) :else (recur (conj ret {:f true, :e e, :b b, :w :while}) r)) (seq ret)))) emit (fn emit [[{w :w, b :b, f :f} & [{ys :e} :as rses]]] (let [giter (gensym "iter__") gxs (gensym "s__")] (clojure/concat (clojure/list (quote clojure/fn)) (clojure/list giter) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list gxs)))) (clojure/list (clojure/concat (clojure/list (quote clojure/when-first)) (clojure/list b) (clojure/list gxs) (clojure/list (clojure/concat (clojure/list (quote if)) (clojure/list f) (clojure/list (if rses (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote iterys__4967)) (clojure/list (emit rses)) (clojure/list (quote fs__4968)) (clojure/list (clojure/concat (clojure/list (quote iterys__4967)) (clojure/list ys)))))) (clojure/list (clojure/concat (clojure/list (quote if)) (clojure/list (quote fs__4968)) (clojure/list (clojure/concat (clojure/list (quote clojure/lazy-cat)) (clojure/list (quote fs__4968)) (clojure/list (clojure/concat (clojure/list giter) (clojure/list (clojure/concat (clojure/list (quote clojure/rest)) (clojure/list gxs))))))) (clojure/list (clojure/concat (clojure/list (quote recur)) (clojure/list (clojure/concat (clojure/list (quote clojure/rest)) (clojure/list gxs)))))))) (clojure/concat (clojure/list (quote clojure/lazy-cons)) (clojure/list expr) (clojure/list (clojure/concat (clojure/list giter) (clojure/list (clojure/concat (clojure/list (quote clojure/rest)) (clojure/list gxs)))))))) (clojure/list (if (= w :when) (clojure/concat (clojure/list (quote recur)) (clojure/list (clojure/concat (clojure/list (quote clojure/rest)) (clojure/list gxs)))) nil)))))))))] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote iter__4969)) (clojure/list (emit (pargs seq-exprs)))))) (clojure/list (clojure/concat (clojure/list (quote iter__4969)) (clojure/list (second seq-exprs))))))))
 // Skipping: (defmacro comment "Ignores body, yields nil" [& body])
-// Skipping: (defmacro with-out-str "Evaluates exprs in a context in which *out* is bound to a fresh\n  StringWriter.  Returns the string created by any nested printing\n  calls." [& body] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote s__5004)) (clojure/list (clojure/concat (clojure/list (quote clojure.lang.RT/makeStringWriter))))))) (clojure/list (clojure/concat (clojure/list (quote clojure/binding)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote clojure/*out*)) (clojure/list (quote s__5004))))) body (clojure/list (clojure/concat (clojure/list (quote clojure/str)) (clojure/list (quote s__5004))))))))
-// Skipping: (defmacro with-in-str "Evaluates body in a context in which *in* is bound to a fresh\n  StringReader initialized with the string s." [s & body] (clojure/concat (clojure/list (quote clojure/with-open)) (clojure/list (quote s__5011)) (clojure/list (clojure/concat (clojure/list (quote clojure/->)) (clojure/list (clojure/concat (clojure/list (quote java.io.StringReader.)) (clojure/list s))) (clojure/list (quote clojure.lang.LineNumberingPushbackReader.)))) (clojure/list (clojure/concat (clojure/list (quote clojure/binding)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote clojure/*in*)) (clojure/list (quote s__5011))))) body))))
+// Skipping: (defmacro with-out-str "Evaluates exprs in a context in which *out* is bound to a fresh\n  StringWriter.  Returns the string created by any nested printing\n  calls." [& body] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote s__4999)) (clojure/list (clojure/concat (clojure/list (quote clojure.lang.RT/makeStringWriter))))))) (clojure/list (clojure/concat (clojure/list (quote clojure/binding)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote clojure/*out*)) (clojure/list (quote s__4999))))) body (clojure/list (clojure/concat (clojure/list (quote clojure/str)) (clojure/list (quote s__4999))))))))
+// Skipping: (defmacro with-in-str "Evaluates body in a context in which *in* is bound to a fresh\n  StringReader initialized with the string s." [s & body] (clojure/concat (clojure/list (quote clojure/with-open)) (clojure/list (quote s__5006)) (clojure/list (clojure/concat (clojure/list (quote clojure/->)) (clojure/list (clojure/concat (clojure/list (quote java.io.StringReader.)) (clojure/list s))) (clojure/list (quote clojure.lang.LineNumberingPushbackReader.)))) (clojure/list (clojure/concat (clojure/list (quote clojure/binding)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote clojure/*in*)) (clojure/list (quote s__5006))))) body))))
 
 //======
 //(defn pr-str "pr to a string, returning it" {:tag String} [& xs] (with-out-str (apply pr xs)))
 //---
-(function __clojure_fn_5018(){
-return (clojure.JS.def(clojure,"pr_str",clojure.JS.variadic(0,(function __clojure_fn_5018_pr_str_5020(){
+(function __clojure_fn_5013(){
+return (clojure.JS.def(clojure,"pr_str",clojure.JS.variadic(0,(function __clojure_fn_5013_pr_str_5015(){
 var s__1271_2,xs_1=clojure.JS.rest_args(this,arguments,0);
 return (((s__1271_2=clojure.lang.RT.makeStringWriter()),
 clojure.lang.Var.pushThreadBindings(clojure.hash_map.apply(null,[clojure._var__STAR_out_STAR_,s__1271_2])),
@@ -1919,8 +1903,8 @@ finally{clojure.lang.Var.popThreadBindings()}return _rtn})()))}))))}).apply(null
 //======
 //(defn prn-str "prn to a string, returning it" {:tag String} [& xs] (with-out-str (apply prn xs)))
 //---
-(function __clojure_fn_5024(){
-return (clojure.JS.def(clojure,"prn_str",clojure.JS.variadic(0,(function __clojure_fn_5024_prn_str_5026(){
+(function __clojure_fn_5019(){
+return (clojure.JS.def(clojure,"prn_str",clojure.JS.variadic(0,(function __clojure_fn_5019_prn_str_5021(){
 var s__1271_2,xs_1=clojure.JS.rest_args(this,arguments,0);
 return (((s__1271_2=clojure.lang.RT.makeStringWriter()),
 clojure.lang.Var.pushThreadBindings(clojure.hash_map.apply(null,[clojure._var__STAR_out_STAR_,s__1271_2])),
@@ -1931,8 +1915,8 @@ finally{clojure.lang.Var.popThreadBindings()}return _rtn})()))}))))}).apply(null
 //======
 //(defn print-str "print to a string, returning it" {:tag String} [& xs] (with-out-str (apply print xs)))
 //---
-(function __clojure_fn_5030(){
-return (clojure.JS.def(clojure,"print_str",clojure.JS.variadic(0,(function __clojure_fn_5030_print_str_5032(){
+(function __clojure_fn_5025(){
+return (clojure.JS.def(clojure,"print_str",clojure.JS.variadic(0,(function __clojure_fn_5025_print_str_5027(){
 var s__1271_2,xs_1=clojure.JS.rest_args(this,arguments,0);
 return (((s__1271_2=clojure.lang.RT.makeStringWriter()),
 clojure.lang.Var.pushThreadBindings(clojure.hash_map.apply(null,[clojure._var__STAR_out_STAR_,s__1271_2])),
@@ -1943,8 +1927,8 @@ finally{clojure.lang.Var.popThreadBindings()}return _rtn})()))}))))}).apply(null
 //======
 //(defn println-str "println to a string, returning it" {:tag String} [& xs] (with-out-str (apply println xs)))
 //---
-(function __clojure_fn_5036(){
-return (clojure.JS.def(clojure,"println_str",clojure.JS.variadic(0,(function __clojure_fn_5036_println_str_5038(){
+(function __clojure_fn_5031(){
+return (clojure.JS.def(clojure,"println_str",clojure.JS.variadic(0,(function __clojure_fn_5031_println_str_5033(){
 var s__1271_2,xs_1=clojure.JS.rest_args(this,arguments,0);
 return (((s__1271_2=clojure.lang.RT.makeStringWriter()),
 clojure.lang.Var.pushThreadBindings(clojure.hash_map.apply(null,[clojure._var__STAR_out_STAR_,s__1271_2])),
@@ -1956,8 +1940,8 @@ finally{clojure.lang.Var.popThreadBindings()}return _rtn})()))}))))}).apply(null
 //======
 //(defn test "test [v] finds fn at key :test in var metadata and calls it,\n  presuming failure will throw exception" [v] (let [f (:test (clojure/meta v))] (if f (do (f) :ok) :no-test)))
 //---
-(function __clojure_fn_5048(){
-return (clojure.JS.def(clojure,"test",(function __clojure_fn_5048_test_5050(v_1){
+(function __clojure_fn_5043(){
+return (clojure.JS.def(clojure,"test",(function __clojure_fn_5043_test_5045(v_1){
 var f_2;
 return (((f_2=clojure.keyword("","test").apply(null,[clojure.meta.apply(null,[v_1])])),
 ((f_2)?(f_2.apply(null,[]),
@@ -1972,24 +1956,24 @@ clojure.keyword("","ok")):(clojure.keyword("","no-test")))))})))}).apply(null,[]
 //======
 //(defn rand "Returns a random floating point number between 0 (inclusive) and\n  1 (exclusive)." ([] (RT/random)) ([n] (* n (rand))))
 //---
-(function __clojure_fn_5098(){
-return (clojure.JS.def(clojure,"rand",(function __clojure_fn_5098_rand_5100(n_1){switch(arguments.length){
+(function __clojure_fn_5093(){
+return (clojure.JS.def(clojure,"rand",(function __clojure_fn_5093_rand_5095(n_1){switch(arguments.length){
 case 0:return (clojure.lang.RT.random())}
 return (clojure.lang.Numbers.multiply(n_1,clojure.rand.apply(null,[])))})))}).apply(null,[]);
 
 //======
 //(defn rand-int "Returns a random integer between 0 (inclusive) and n (exclusive)." [n] (int (rand n)))
 //---
-(function __clojure_fn_5105(){
-return (clojure.JS.def(clojure,"rand_int",(function __clojure_fn_5105_rand_int_5107(n_1){
+(function __clojure_fn_5100(){
+return (clojure.JS.def(clojure,"rand_int",(function __clojure_fn_5100_rand_int_5102(n_1){
 return (clojure.lang.RT.intCast(clojure.rand.apply(null,[n_1])))})))}).apply(null,[]);
 // Skipping: (defmacro defn- "same as defn, yielding non-public def" [name & decls] (list* (quote clojure/defn) (with-meta name (assoc (meta name) :private true)) decls))
 
 //======
 //(defn print-doc [v] (println "-------------------------") (println (str (ns-name (:ns (clojure/meta v))) "/" (:name (clojure/meta v)))) (prn (:arglists (clojure/meta v))) (when (:macro (clojure/meta v)) (println "Macro")) (println " " (:doc (clojure/meta v))))
 //---
-(function __clojure_fn_5117(){
-return (clojure.JS.def(clojure,"print_doc",(function __clojure_fn_5117_print_doc_5119(v_1){
+(function __clojure_fn_5112(){
+return (clojure.JS.def(clojure,"print_doc",(function __clojure_fn_5112_print_doc_5114(v_1){
 return (clojure.println.apply(null,["-------------------------"]),
 clojure.println.apply(null,[clojure.str.apply(null,[clojure.ns_name.apply(null,[clojure.keyword("","ns").apply(null,[clojure.meta.apply(null,[v_1])])]),"/",clojure.keyword("","name").apply(null,[clojure.meta.apply(null,[v_1])])])]),
 clojure.prn.apply(null,[clojure.keyword("","arglists").apply(null,[clojure.meta.apply(null,[v_1])])]),
@@ -1999,51 +1983,51 @@ clojure.println.apply(null,[" ",clojure.keyword("","doc").apply(null,[clojure.me
 //======
 //(defn find-doc "Prints documentation for any var whose documentation or name\n contains a match for re-string" [re-string] (let [re (re-pattern re-string)] (dorun (for [ns (all-ns) v (sort-by (comp :name meta) (vals (ns-interns ns))) :when (and (:doc (clojure/meta v)) (or (re-find (re-matcher re (:doc (clojure/meta v)))) (re-find (re-matcher re (str (:name (clojure/meta v)))))))] (print-doc v)))))
 //---
-(function __clojure_fn_5123(){
-return (clojure.JS.def(clojure,"find_doc",(function __clojure_fn_5123_find_doc_5125(re_string_1){
+(function __clojure_fn_5118(){
+return (clojure.JS.def(clojure,"find_doc",(function __clojure_fn_5118_find_doc_5120(re_string_1){
 var iter__1247_3,re_2;
 return (((re_2=clojure.re_pattern.apply(null,[re_string_1])),
-clojure.dorun.apply(null,[((iter__1247_3=(function __clojure_fn_5123_find_doc_5125_iter_5127_5131(s__5128_1){
-var _cnt,_rtn,fs__1246_4,iterys__1245_3,ns_2,iter__1239_5,iter__5127_0=arguments.callee;
-do{_cnt=0;_rtn=((clojure.seq.apply(null,[s__5128_1]))?(((ns_2=clojure.first.apply(null,[s__5128_1])),
-((true)?(((iterys__1245_3=(function __clojure_fn_5123_find_doc_5125_iter_5127_5131_iter_5129_5132(s__5130_1){
-var _cnt,_rtn,or__202_4,and__196_3,v_2,iter__5129_0=arguments.callee;
-do{_cnt=0;_rtn=((clojure.seq.apply(null,[s__5130_1]))?(((v_2=clojure.first.apply(null,[s__5130_1])),
+clojure.dorun.apply(null,[((iter__1247_3=(function __clojure_fn_5118_find_doc_5120_iter_5122_5126(s__5123_1){
+var _cnt,_rtn,iter__1239_5,iterys__1245_3,ns_2,fs__1246_4,iter__5122_0=arguments.callee;
+do{_cnt=0;_rtn=((clojure.seq.apply(null,[s__5123_1]))?(((ns_2=clojure.first.apply(null,[s__5123_1])),
+((true)?(((iterys__1245_3=(function __clojure_fn_5118_find_doc_5120_iter_5122_5126_iter_5124_5127(s__5125_1){
+var _cnt,_rtn,or__202_4,v_2,and__196_3,iter__5124_0=arguments.callee;
+do{_cnt=0;_rtn=((clojure.seq.apply(null,[s__5125_1]))?(((v_2=clojure.first.apply(null,[s__5125_1])),
 ((((and__196_3=clojure.keyword("","doc").apply(null,[clojure.meta.apply(null,[v_2])])),
 ((and__196_3)?(((or__202_4=clojure.re_find.apply(null,[clojure.re_matcher.apply(null,[re_2,clojure.keyword("","doc").apply(null,[clojure.meta.apply(null,[v_2])])])])),
-((or__202_4)?(or__202_4):(clojure.re_find.apply(null,[clojure.re_matcher.apply(null,[re_2,clojure.str.apply(null,[clojure.keyword("","name").apply(null,[clojure.meta.apply(null,[v_2])])])])]))))):(and__196_3))))?((new clojure.lang.LazyCons((function __clojure_fn_5123_find_doc_5125_iter_5127_5131_iter_5129_5132_fn_5134(G__5133_1){switch(arguments.length){
+((or__202_4)?(or__202_4):(clojure.re_find.apply(null,[clojure.re_matcher.apply(null,[re_2,clojure.str.apply(null,[clojure.keyword("","name").apply(null,[clojure.meta.apply(null,[v_2])])])])]))))):(and__196_3))))?((new clojure.lang.LazyCons((function __clojure_fn_5118_find_doc_5120_iter_5122_5126_iter_5124_5127_fn_5129(G__5128_1){switch(arguments.length){
 case 0:return (clojure.print_doc.apply(null,[v_2]))}
-return (iter__5129_0.apply(null,[clojure.rest.apply(null,[s__5130_1])]))})))):((_cnt=1,_rtn=[clojure.rest.apply(null,[s__5130_1])],s__5130_1=_rtn[0]))))):(null))
+return (iter__5124_0.apply(null,[clojure.rest.apply(null,[s__5125_1])]))})))):((_cnt=1,_rtn=[clojure.rest.apply(null,[s__5125_1])],s__5125_1=_rtn[0]))))):(null))
 }while(_cnt);return _rtn;})),
 (fs__1246_4=iterys__1245_3.apply(null,[clojure.sort_by.apply(null,[clojure.comp.apply(null,[clojure.keyword("","name"),clojure.meta]),clojure.vals.apply(null,[clojure.ns_interns.apply(null,[ns_2])])])])),
-((fs__1246_4)?(((iter__1239_5=(function __clojure_fn_5123_find_doc_5125_iter_5127_5131_iter_1239_5139(coll__1240_1){
+((fs__1246_4)?(((iter__1239_5=(function __clojure_fn_5118_find_doc_5120_iter_5122_5126_iter_1239_5134(coll__1240_1){
 var iter__1239_0=arguments.callee;
-return (((clojure.seq.apply(null,[coll__1240_1]))?((new clojure.lang.LazyCons((function __clojure_fn_5123_find_doc_5125_iter_5127_5131_iter_1239_5139_fn_5141(G__5140_1){switch(arguments.length){
+return (((clojure.seq.apply(null,[coll__1240_1]))?((new clojure.lang.LazyCons((function __clojure_fn_5118_find_doc_5120_iter_5122_5126_iter_1239_5134_fn_5136(G__5135_1){switch(arguments.length){
 case 0:return (clojure.first.apply(null,[coll__1240_1]))}
-return (iter__1239_0.apply(null,[clojure.rest.apply(null,[coll__1240_1])]))})))):(clojure.seq.apply(null,[iter__5127_0.apply(null,[clojure.rest.apply(null,[s__5128_1])])]))))})),
-iter__1239_5.apply(null,[fs__1246_4]))):((_cnt=1,_rtn=[clojure.rest.apply(null,[s__5128_1])],s__5128_1=_rtn[0]))))):(null)))):(null))
+return (iter__1239_0.apply(null,[clojure.rest.apply(null,[coll__1240_1])]))})))):(clojure.seq.apply(null,[iter__5122_0.apply(null,[clojure.rest.apply(null,[s__5123_1])])]))))})),
+iter__1239_5.apply(null,[fs__1246_4]))):((_cnt=1,_rtn=[clojure.rest.apply(null,[s__5123_1])],s__5123_1=_rtn[0]))))):(null)))):(null))
 }while(_cnt);return _rtn;})),
 iter__1247_3.apply(null,[clojure.all_ns.apply(null,[])]))])))})))}).apply(null,[]);
 
 //======
 //(defn special-form-anchor "Returns the anchor tag on http://clojure.org/special_forms for the\n  special form x, or nil" [x] (#{(quote recur) (quote .) (quote var) (quote let) (quote quote) (quote set!) (quote monitor-enter) (quote loop) (quote new) (quote fn) (quote if) (quote try) (quote def) (quote monitor-exit) (quote throw) (quote do)} x))
 //---
-(function __clojure_fn_5149(){
-return (clojure.JS.def(clojure,"special_form_anchor",(function __clojure_fn_5149_special_form_anchor_5151(x_1){
-return (clojure.hash_set("'recur","'.","'var","'let","'quote","'set!","'monitor-enter","'loop","'new","'fn","'if","'try","'def","'monitor-exit","'throw","'do").apply(null,[x_1]))})))}).apply(null,[]);
+(function __clojure_fn_5144(){
+return (clojure.JS.def(clojure,"special_form_anchor",(function __clojure_fn_5144_special_form_anchor_5146(x_1){
+return (clojure.hash_set(clojure.symbol("recur"),clojure.symbol("."),clojure.symbol("var"),clojure.symbol("let"),clojure.symbol("quote"),clojure.symbol("set!"),clojure.symbol("monitor-enter"),clojure.symbol("loop"),clojure.symbol("new"),clojure.symbol("fn"),clojure.symbol("if"),clojure.symbol("try"),clojure.symbol("def"),clojure.symbol("monitor-exit"),clojure.symbol("throw"),clojure.symbol("do")).apply(null,[x_1]))})))}).apply(null,[]);
 
 //======
 //(defn syntax-symbol-anchor "Returns the anchor tag on http://clojure.org/special_forms for the\n  special form that uses syntax symbol x, or nil" [x] ({(quote &) (quote fn), (quote catch) (quote try), (quote finally) (quote try)} x))
 //---
-(function __clojure_fn_5155(){
-return (clojure.JS.def(clojure,"syntax_symbol_anchor",(function __clojure_fn_5155_syntax_symbol_anchor_5157(x_1){
-return (clojure.hash_map("'&","'fn","'catch","'try","'finally","'try").apply(null,[x_1]))})))}).apply(null,[]);
+(function __clojure_fn_5150(){
+return (clojure.JS.def(clojure,"syntax_symbol_anchor",(function __clojure_fn_5150_syntax_symbol_anchor_5152(x_1){
+return (clojure.hash_map(clojure.symbol("&"),clojure.symbol("fn"),clojure.symbol("catch"),clojure.symbol("try"),clojure.symbol("finally"),clojure.symbol("try")).apply(null,[x_1]))})))}).apply(null,[]);
 
 //======
 //(defn print-special-doc [name type anchor] (println "-------------------------") (println name) (println type) (println (str "  Please see http://clojure.org/special_forms#" anchor)))
 //---
-(function __clojure_fn_5161(){
-return (clojure.JS.def(clojure,"print_special_doc",(function __clojure_fn_5161_print_special_doc_5163(name_1,type_2,anchor_3){
+(function __clojure_fn_5156(){
+return (clojure.JS.def(clojure,"print_special_doc",(function __clojure_fn_5156_print_special_doc_5158(name_1,type_2,anchor_3){
 return (clojure.println.apply(null,["-------------------------"]),
 clojure.println.apply(null,[name_1]),
 clojure.println.apply(null,[type_2]),
@@ -2053,251 +2037,219 @@ clojure.println.apply(null,[clojure.str.apply(null,["  Please see http://clojure
 //======
 //(defn tree-seq "returns a lazy sequence of the nodes in a tree, via a depth-first walk.\n  branch? must be a fn of one arg that returns true if passed a node\n  that can have children (but may not).  children must be a fn of one\n  arg that returns a sequence of the children. Will only be called on\n  nodes for which branch? returns true. Root is the root node of the\n  tree, must be a branch." [branch? children root] (let [walk (fn walk [nodes] (when-first node nodes (lazy-cons node (if (branch? node) (lazy-cat (walk (children node)) (walk (rest nodes))) (walk (rest nodes))))))] (lazy-cons root (walk (children root)))))
 //---
-(function __clojure_fn_5173(){
-return (clojure.JS.def(clojure,"tree_seq",(function __clojure_fn_5173_tree_seq_5175(branch_QMARK__1,children_2,root_3){
+(function __clojure_fn_5168(){
+return (clojure.JS.def(clojure,"tree_seq",(function __clojure_fn_5168_tree_seq_5170(branch_QMARK__1,children_2,root_3){
 var walk_4;
-return (((walk_4=(function __clojure_fn_5173_tree_seq_5175_walk_5177(nodes_1){
+return (((walk_4=(function __clojure_fn_5168_tree_seq_5170_walk_5172(nodes_1){
 var node_2,walk_0=arguments.callee;
 return (((clojure.seq.apply(null,[nodes_1]))?(((node_2=clojure.first.apply(null,[nodes_1])),
-(new clojure.lang.LazyCons((function __clojure_fn_5173_tree_seq_5175_walk_5177_fn_5179(G__5178_1){switch(arguments.length){
+(new clojure.lang.LazyCons((function __clojure_fn_5168_tree_seq_5170_walk_5172_fn_5174(G__5173_1){switch(arguments.length){
 case 0:return (node_2)}
 var iter__1239_2;
-return (((branch_QMARK__1.apply(null,[node_2]))?(((iter__1239_2=(function __clojure_fn_5173_tree_seq_5175_walk_5177_fn_5179_iter_1239_5182(coll__1240_1){
+return (((branch_QMARK__1.apply(null,[node_2]))?(((iter__1239_2=(function __clojure_fn_5168_tree_seq_5170_walk_5172_fn_5174_iter_1239_5177(coll__1240_1){
 var iter__1239_0=arguments.callee;
-return (((clojure.seq.apply(null,[coll__1240_1]))?((new clojure.lang.LazyCons((function __clojure_fn_5173_tree_seq_5175_walk_5177_fn_5179_iter_1239_5182_fn_5184(G__5183_1){switch(arguments.length){
+return (((clojure.seq.apply(null,[coll__1240_1]))?((new clojure.lang.LazyCons((function __clojure_fn_5168_tree_seq_5170_walk_5172_fn_5174_iter_1239_5177_fn_5179(G__5178_1){switch(arguments.length){
 case 0:return (clojure.first.apply(null,[coll__1240_1]))}
 return (iter__1239_0.apply(null,[clojure.rest.apply(null,[coll__1240_1])]))})))):(clojure.seq.apply(null,[walk_0.apply(null,[clojure.rest.apply(null,[nodes_1])])]))))})),
 iter__1239_2.apply(null,[walk_0.apply(null,[children_2.apply(null,[node_2])])]))):(walk_0.apply(null,[clojure.rest.apply(null,[nodes_1])]))))}))))):(null)))})),
-(new clojure.lang.LazyCons((function __clojure_fn_5173_tree_seq_5175_fn_5192(G__5191_1){switch(arguments.length){
+(new clojure.lang.LazyCons((function __clojure_fn_5168_tree_seq_5170_fn_5187(G__5186_1){switch(arguments.length){
 case 0:return (root_3)}
 return (walk_4.apply(null,[children_2.apply(null,[root_3])]))})))))})))}).apply(null,[]);
 
 //======
 //(defn file-seq "A tree seq on java.io.Files" [dir] (tree-seq (fn [f] (. f (isDirectory))) (fn [d] (seq (. d (listFiles)))) dir))
 //---
-(function __clojure_fn_5198(){
-return (clojure.JS.def(clojure,"file_seq",(function __clojure_fn_5198_file_seq_5200(dir_1){
-return (clojure.tree_seq.apply(null,[(function __clojure_fn_5198_file_seq_5200_fn_5202(f_1){
-return ((f_1).isDirectory())}),(function __clojure_fn_5198_file_seq_5200_fn_5205(d_1){
+(function __clojure_fn_5193(){
+return (clojure.JS.def(clojure,"file_seq",(function __clojure_fn_5193_file_seq_5195(dir_1){
+return (clojure.tree_seq.apply(null,[(function __clojure_fn_5193_file_seq_5195_fn_5197(f_1){
+return ((f_1).isDirectory())}),(function __clojure_fn_5193_file_seq_5195_fn_5200(d_1){
 return (clojure.seq.apply(null,[(d_1).listFiles()]))}),dir_1]))})))}).apply(null,[]);
 
 //======
 //(defn xml-seq "A tree seq on the xml elements as per xml/parse" [root] (tree-seq (complement string?) (comp seq :content) root))
 //---
-(function __clojure_fn_5210(){
-return (clojure.JS.def(clojure,"xml_seq",(function __clojure_fn_5210_xml_seq_5212(root_1){
+(function __clojure_fn_5205(){
+return (clojure.JS.def(clojure,"xml_seq",(function __clojure_fn_5205_xml_seq_5207(root_1){
 return (clojure.tree_seq.apply(null,[clojure.complement.apply(null,[clojure.string_QMARK_]),clojure.comp.apply(null,[clojure.seq,clojure.keyword("","content")]),root_1]))})))}).apply(null,[]);
 // Skipping: (defn special-symbol? "Returns true if s names a special form" [s] (contains? (. clojure.lang.Compiler specials) s))
 
 //======
 //(defn var? "Returns true if v is of type clojure.lang.Var" [v] (instance? clojure.lang.Var v))
 //---
-(function __clojure_fn_5222(){
-return (clojure.JS.def(clojure,"var_QMARK_",(function __clojure_fn_5222_var_QMARK_5224(v_1){
+(function __clojure_fn_5217(){
+return (clojure.JS.def(clojure,"var_QMARK_",(function __clojure_fn_5217_var_QMARK_5219(v_1){
 return (clojure.instance_QMARK_.apply(null,[clojure.lang.Var,v_1]))})))}).apply(null,[]);
 // Skipping: (defn slurp "Reads the file named by f into a string and returns it." [f] (with-open r (new java.io.BufferedReader (new java.io.FileReader f)) (let [sb (RT/makeStringBuilder)] (loop [c (. r (read))] (if (neg? c) (str sb) (do (. sb (append (char c))) (recur (. r (read)))))))))
 
 //======
 //(defn subs "Returns the substring of s beginning at start inclusive, and ending\n  at end (defaults to length of string), exclusive." ([s start] (. s (substring start))) ([s start end] (. s (substring start end))))
 //---
-(function __clojure_fn_5234(){
-return (clojure.JS.def(clojure,"subs",(function __clojure_fn_5234_subs_5236(s_1,start_2,end_3){switch(arguments.length){
+(function __clojure_fn_5229(){
+return (clojure.JS.def(clojure,"subs",(function __clojure_fn_5229_subs_5231(s_1,start_2,end_3){switch(arguments.length){
 case 2:return ((s_1).substring(start_2))}
 return ((s_1).substring(start_2,end_3))})))}).apply(null,[]);
 
 //======
-//(defn max-key "Returns the x for which (k x), a number, is greatest." ([k x] x) ([k x y] (if (> (k x) (k y)) x y)) ([k x y & more] (reduce (fn* [p1__5241 p2__5242] (max-key k p1__5241 p2__5242)) (max-key k x y) more)))
+//(defn max-key "Returns the x for which (k x), a number, is greatest." ([k x] x) ([k x y] (if (> (k x) (k y)) x y)) ([k x y & more] (reduce (fn* [p1__5236 p2__5237] (max-key k p1__5236 p2__5237)) (max-key k x y) more)))
 //---
-(function __clojure_fn_5243(){
-return (clojure.JS.def(clojure,"max_key",clojure.JS.variadic(3,(function __clojure_fn_5243_max_key_5245(k_1,x_2,y_3){switch(arguments.length){
-case 3:return (((clojure.lang.Numbers.gt(k_1.apply(null,[x_2]),k_1.apply(null,[y_3])))?(x_2):(y_3)))
-case 2:return (x_2)}
+(function __clojure_fn_5238(){
+return (clojure.JS.def(clojure,"max_key",clojure.JS.variadic(3,(function __clojure_fn_5238_max_key_5240(k_1,x_2,y_3){switch(arguments.length){
+case 2:return (x_2)
+case 3:return (((clojure.lang.Numbers.gt(k_1.apply(null,[x_2]),k_1.apply(null,[y_3])))?(x_2):(y_3)))}
 var more_4=clojure.JS.rest_args(this,arguments,3);
-return (clojure.reduce.apply(null,[(function __clojure_fn_5243_max_key_5245_fn_5249(p1__5241_1,p2__5242_2){
-return (clojure.max_key.apply(null,[k_1,p1__5241_1,p2__5242_2]))}),clojure.max_key.apply(null,[k_1,x_2,y_3]),more_4]))}))))}).apply(null,[]);
+return (clojure.reduce.apply(null,[(function __clojure_fn_5238_max_key_5240_fn_5244(p1__5236_1,p2__5237_2){
+return (clojure.max_key.apply(null,[k_1,p1__5236_1,p2__5237_2]))}),clojure.max_key.apply(null,[k_1,x_2,y_3]),more_4]))}))))}).apply(null,[]);
 
 //======
-//(defn min-key "Returns the x for which (k x), a number, is least." ([k x] x) ([k x y] (if (< (k x) (k y)) x y)) ([k x y & more] (reduce (fn* [p1__5254 p2__5255] (min-key k p1__5254 p2__5255)) (min-key k x y) more)))
+//(defn min-key "Returns the x for which (k x), a number, is least." ([k x] x) ([k x y] (if (< (k x) (k y)) x y)) ([k x y & more] (reduce (fn* [p1__5249 p2__5250] (min-key k p1__5249 p2__5250)) (min-key k x y) more)))
 //---
-(function __clojure_fn_5256(){
-return (clojure.JS.def(clojure,"min_key",clojure.JS.variadic(3,(function __clojure_fn_5256_min_key_5258(k_1,x_2,y_3){switch(arguments.length){
+(function __clojure_fn_5251(){
+return (clojure.JS.def(clojure,"min_key",clojure.JS.variadic(3,(function __clojure_fn_5251_min_key_5253(k_1,x_2,y_3){switch(arguments.length){
 case 2:return (x_2)
 case 3:return (((clojure.lang.Numbers.lt(k_1.apply(null,[x_2]),k_1.apply(null,[y_3])))?(x_2):(y_3)))}
 var more_4=clojure.JS.rest_args(this,arguments,3);
-return (clojure.reduce.apply(null,[(function __clojure_fn_5256_min_key_5258_fn_5262(p1__5254_1,p2__5255_2){
-return (clojure.min_key.apply(null,[k_1,p1__5254_1,p2__5255_2]))}),clojure.min_key.apply(null,[k_1,x_2,y_3]),more_4]))}))))}).apply(null,[]);
+return (clojure.reduce.apply(null,[(function __clojure_fn_5251_min_key_5253_fn_5257(p1__5249_1,p2__5250_2){
+return (clojure.min_key.apply(null,[k_1,p1__5249_1,p2__5250_2]))}),clojure.min_key.apply(null,[k_1,x_2,y_3]),more_4]))}))))}).apply(null,[]);
 
 //======
 //(defn distinct "Returns a lazy sequence of the elements of coll with duplicates removed" [coll] (let [step (fn step [[f & r :as xs] seen] (when xs (if (seen f) (recur r seen) (lazy-cons f (step r (conj seen f))))))] (step (seq coll) #{})))
 //---
-(function __clojure_fn_5267(){
-return (clojure.JS.def(clojure,"distinct",(function __clojure_fn_5267_distinct_5269(coll_1){
+(function __clojure_fn_5262(){
+return (clojure.JS.def(clojure,"distinct",(function __clojure_fn_5262_distinct_5264(coll_1){
 var step_2;
-return (((step_2=(function __clojure_fn_5267_distinct_5269_step_5272(p__5271_1,seen_2){
-var _cnt,_rtn,xs_6,vec__5273_3,r_5,f_4,step_0=arguments.callee;
-do{_cnt=0;_rtn=((vec__5273_3=p__5271_1),
-(f_4=clojure.nth.apply(null,[vec__5273_3,(0),null])),
-(r_5=clojure.nthrest.apply(null,[vec__5273_3,(1)])),
-(xs_6=vec__5273_3),
-((xs_6)?(((seen_2.apply(null,[f_4]))?((_cnt=1,_rtn=[r_5,seen_2],p__5271_1=_rtn[0],seen_2=_rtn[1])):((new clojure.lang.LazyCons((function __clojure_fn_5267_distinct_5269_step_5272_fn_5275(G__5274_1){switch(arguments.length){
+return (((step_2=(function __clojure_fn_5262_distinct_5264_step_5267(p__5266_1,seen_2){
+var _cnt,_rtn,r_5,xs_6,f_4,vec__5268_3,step_0=arguments.callee;
+do{_cnt=0;_rtn=((vec__5268_3=p__5266_1),
+(f_4=clojure.nth.apply(null,[vec__5268_3,(0),null])),
+(r_5=clojure.nthrest.apply(null,[vec__5268_3,(1)])),
+(xs_6=vec__5268_3),
+((xs_6)?(((seen_2.apply(null,[f_4]))?((_cnt=1,_rtn=[r_5,seen_2],p__5266_1=_rtn[0],seen_2=_rtn[1])):((new clojure.lang.LazyCons((function __clojure_fn_5262_distinct_5264_step_5267_fn_5270(G__5269_1){switch(arguments.length){
 case 0:return (f_4)}
 return (step_0.apply(null,[r_5,clojure.conj.apply(null,[seen_2,f_4])]))})))))):(null)))
 }while(_cnt);return _rtn;})),
 step_2.apply(null,[clojure.seq.apply(null,[coll_1]),clojure.lang.PersistentHashSet.EMPTY])))})))}).apply(null,[]);
-// Skipping: (defmacro if-let "if test is true, evaluates then with binding-form bound to the value of test, if not, yields else" ([binding-form test then] (clojure/concat (clojure/list (quote clojure/if-let)) (clojure/list binding-form) (clojure/list test) (clojure/list then) (clojure/list (quote nil)))) ([binding-form test then else] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote temp__5282)) (clojure/list test)))) (clojure/list (clojure/concat (clojure/list (quote if)) (clojure/list (quote temp__5282)) (clojure/list (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list binding-form) (clojure/list (quote temp__5282))))) (clojure/list then))) (clojure/list else))))))
-// Skipping: (defmacro when-let "when test is true, evaluates body with binding-form bound to the value of test" [binding-form test & body] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote temp__5290)) (clojure/list test)))) (clojure/list (clojure/concat (clojure/list (quote clojure/when)) (clojure/list (quote temp__5290)) (clojure/list (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list binding-form) (clojure/list (quote temp__5290))))) body))))))
+// Skipping: (defmacro if-let "if test is true, evaluates then with binding-form bound to the value of test, if not, yields else" ([binding-form test then] (clojure/concat (clojure/list (quote clojure/if-let)) (clojure/list binding-form) (clojure/list test) (clojure/list then) (clojure/list (quote nil)))) ([binding-form test then else] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote temp__5277)) (clojure/list test)))) (clojure/list (clojure/concat (clojure/list (quote if)) (clojure/list (quote temp__5277)) (clojure/list (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list binding-form) (clojure/list (quote temp__5277))))) (clojure/list then))) (clojure/list else))))))
+// Skipping: (defmacro when-let "when test is true, evaluates body with binding-form bound to the value of test" [binding-form test & body] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote temp__5285)) (clojure/list test)))) (clojure/list (clojure/concat (clojure/list (quote clojure/when)) (clojure/list (quote temp__5285)) (clojure/list (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list binding-form) (clojure/list (quote temp__5285))))) body))))))
 
 //======
-//(defn replace "Given a map of replacement pairs and a vector/collection, returns a\n  vector/seq with any elements = a key in smap replaced with the\n  corresponding val in smap" [smap coll] (if (vector? coll) (reduce (fn [v i] (if-let e (find smap (nth v i)) (assoc v i (val e)) v)) coll (range (count coll))) (map (fn* [p1__5297] (if-let e (find smap p1__5297) (val e) p1__5297)) coll)))
+//(defn replace "Given a map of replacement pairs and a vector/collection, returns a\n  vector/seq with any elements = a key in smap replaced with the\n  corresponding val in smap" [smap coll] (if (vector? coll) (reduce (fn [v i] (if-let e (find smap (nth v i)) (assoc v i (val e)) v)) coll (range (count coll))) (map (fn* [p1__5292] (if-let e (find smap p1__5292) (val e) p1__5292)) coll)))
 //---
-(function __clojure_fn_5298(){
-return (clojure.JS.def(clojure,"replace",(function __clojure_fn_5298_replace_5300(smap_1,coll_2){
-return (((clojure.vector_QMARK_.apply(null,[coll_2]))?(clojure.reduce.apply(null,[(function __clojure_fn_5298_replace_5300_fn_5302(v_1,i_2){
+(function __clojure_fn_5293(){
+return (clojure.JS.def(clojure,"replace",(function __clojure_fn_5293_replace_5295(smap_1,coll_2){
+return (((clojure.vector_QMARK_.apply(null,[coll_2]))?(clojure.reduce.apply(null,[(function __clojure_fn_5293_replace_5295_fn_5297(v_1,i_2){
 var temp__1450_3,e_4;
 return (((temp__1450_3=clojure.find.apply(null,[smap_1,clojure.nth.apply(null,[v_1,i_2])])),
 ((temp__1450_3)?(((e_4=temp__1450_3),
-clojure.assoc.apply(null,[v_1,i_2,clojure.val.apply(null,[e_4])]))):(v_1))))}),coll_2,clojure.range.apply(null,[clojure.count.apply(null,[coll_2])])])):(clojure.map.apply(null,[(function __clojure_fn_5298_replace_5300_fn_5305(p1__5297_1){
-var e_3,temp__1450_2;
-return (((temp__1450_2=clojure.find.apply(null,[smap_1,p1__5297_1])),
+clojure.assoc.apply(null,[v_1,i_2,clojure.val.apply(null,[e_4])]))):(v_1))))}),coll_2,clojure.range.apply(null,[clojure.count.apply(null,[coll_2])])])):(clojure.map.apply(null,[(function __clojure_fn_5293_replace_5295_fn_5300(p1__5292_1){
+var temp__1450_2,e_3;
+return (((temp__1450_2=clojure.find.apply(null,[smap_1,p1__5292_1])),
 ((temp__1450_2)?(((e_3=temp__1450_2),
-clojure.val.apply(null,[e_3]))):(p1__5297_1))))}),coll_2]))))})))}).apply(null,[]);
+clojure.val.apply(null,[e_3]))):(p1__5292_1))))}),coll_2]))))})))}).apply(null,[]);
 // Skipping: (defmacro dosync "Runs the exprs (in an implicit do) in a transaction that encompasses\n  exprs and any nested calls.  Starts a transaction if none is already\n  running on this thread. Any uncaught exception will abort the\n  transaction and flow out of dosync. The exprs may be run more than\n  once, but any effects on Refs will be atomic." [& exprs] (clojure/concat (clojure/list (quote clojure/sync)) (clojure/list (quote nil)) exprs))
 // Skipping: (defmacro with-precision "Sets the precision and rounding mode to be used for BigDecimal operations.\n\n  Usage: (with-precision 10 (/ 1M 3))\n  or:    (with-precision 10 :rounding HALF_DOWN (/ 1M 3))\n  \n  The rounding mode is one of CEILING, FLOOR, HALF_UP, HALF_DOWN,\n  HALF_EVEN, UP, DOWN and UNNECESSARY; it defaults to HALF_UP." [precision & exprs] (let [[body rm] (if (= (first exprs) :rounding) [(rest (rest exprs)) (clojure/concat (clojure/list (clojure/concat (clojure/list (quote .)) (clojure/list (quote java.math.RoundingMode)) (clojure/list (second exprs)))))] [exprs nil])] (clojure/concat (clojure/list (quote clojure/binding)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote clojure/*math-context*)) (clojure/list (clojure/concat (clojure/list (quote java.math.MathContext.)) (clojure/list precision) rm))))) body)))
 
 //======
 //(defn bound-fn {:private true} [sc test key] (fn [e] (test (.. sc comparator (compare (. sc entryKey e) key)) 0)))
 //---
-(function __clojure_fn_5323(){
-return (clojure.JS.def(clojure,"bound_fn",(function __clojure_fn_5323_bound_fn_5325(sc_1,test_2,key_3){
-return ((function __clojure_fn_5323_bound_fn_5325_fn_5327(e_1){
+(function __clojure_fn_5318(){
+return (clojure.JS.def(clojure,"bound_fn",(function __clojure_fn_5318_bound_fn_5320(sc_1,test_2,key_3){
+return ((function __clojure_fn_5318_bound_fn_5320_fn_5322(e_1){
 return (test_2.apply(null,[((sc_1).comparator()).compare((sc_1).entryKey(e_1),key_3),(0)]))}))})))}).apply(null,[]);
 
 //======
 //(defn subseq "sc must be a sorted collection, test(s) one of <, <=, > or\n  >=. Returns a seq of those entries with keys ek for\n  which (test (.. sc comparator (compare ek key)) 0) is true" ([sc test key] (let [include (bound-fn sc test key)] (if (#{> >=} test) (when-let [e :as s] (. sc seqFrom key true) (if (include e) s (rest s))) (take-while include (. sc seq true))))) ([sc start-test start-key end-test end-key] (when-let [e :as s] (. sc seqFrom start-key true) (take-while (bound-fn sc end-test end-key) (if ((bound-fn sc start-test start-key) e) s (rest s))))))
 //---
-(function __clojure_fn_5332(){
-return (clojure.JS.def(clojure,"subseq",(function __clojure_fn_5332_subseq_5334(sc_1,start_test_2,start_key_3,end_test_4,end_key_5){switch(arguments.length){
-case 3:var e_7,include_4,s_8,vec__5336_6,temp__1455_5,test_2=arguments[1],key_3=arguments[2];
+(function __clojure_fn_5327(){
+return (clojure.JS.def(clojure,"subseq",(function __clojure_fn_5327_subseq_5329(sc_1,start_test_2,start_key_3,end_test_4,end_key_5){switch(arguments.length){
+case 3:var s_8,e_7,temp__1455_5,include_4,vec__5331_6,test_2=arguments[1],key_3=arguments[2];
 return (((include_4=clojure.bound_fn.apply(null,[sc_1,test_2,key_3])),
 ((clojure.hash_set(clojure._GT_,clojure._GT__EQ_).apply(null,[test_2]))?(((temp__1455_5=(sc_1).seqFrom(key_3,true)),
-((temp__1455_5)?(((vec__5336_6=temp__1455_5),
-(e_7=clojure.nth.apply(null,[vec__5336_6,(0),null])),
-(s_8=vec__5336_6),
+((temp__1455_5)?(((vec__5331_6=temp__1455_5),
+(e_7=clojure.nth.apply(null,[vec__5331_6,(0),null])),
+(s_8=vec__5331_6),
 ((include_4.apply(null,[e_7]))?(s_8):(clojure.rest.apply(null,[s_8]))))):(null)))):(clojure.take_while.apply(null,[include_4,(sc_1).seq(true)])))))}
-var temp__1455_6,s_9,e_8,vec__5338_7;
+var vec__5333_7,e_8,temp__1455_6,s_9;
 return (((temp__1455_6=(sc_1).seqFrom(start_key_3,true)),
-((temp__1455_6)?(((vec__5338_7=temp__1455_6),
-(e_8=clojure.nth.apply(null,[vec__5338_7,(0),null])),
-(s_9=vec__5338_7),
+((temp__1455_6)?(((vec__5333_7=temp__1455_6),
+(e_8=clojure.nth.apply(null,[vec__5333_7,(0),null])),
+(s_9=vec__5333_7),
 clojure.take_while.apply(null,[clojure.bound_fn.apply(null,[sc_1,end_test_4,end_key_5]),((clojure.bound_fn.apply(null,[sc_1,start_test_2,start_key_3]).apply(null,[e_8]))?(s_9):(clojure.rest.apply(null,[s_9])))]))):(null))))})))}).apply(null,[]);
 
 //======
 //(defn rsubseq "sc must be a sorted collection, test(s) one of <, <=, > or\n  >=. Returns a reverse seq of those entries with keys ek for\n  which (test (.. sc comparator (compare ek key)) 0) is true" ([sc test key] (let [include (bound-fn sc test key)] (if (#{< <=} test) (when-let [e :as s] (. sc seqFrom key false) (if (include e) s (rest s))) (take-while include (. sc seq false))))) ([sc start-test start-key end-test end-key] (when-let [e :as s] (. sc seqFrom end-key false) (take-while (bound-fn sc start-test start-key) (if ((bound-fn sc end-test end-key) e) s (rest s))))))
 //---
-(function __clojure_fn_5341(){
-return (clojure.JS.def(clojure,"rsubseq",(function __clojure_fn_5341_rsubseq_5343(sc_1,start_test_2,start_key_3,end_test_4,end_key_5){switch(arguments.length){
-case 3:var vec__5345_6,include_4,temp__1455_5,s_8,e_7,test_2=arguments[1],key_3=arguments[2];
+(function __clojure_fn_5336(){
+return (clojure.JS.def(clojure,"rsubseq",(function __clojure_fn_5336_rsubseq_5338(sc_1,start_test_2,start_key_3,end_test_4,end_key_5){switch(arguments.length){
+case 3:var include_4,temp__1455_5,s_8,e_7,vec__5340_6,test_2=arguments[1],key_3=arguments[2];
 return (((include_4=clojure.bound_fn.apply(null,[sc_1,test_2,key_3])),
 ((clojure.hash_set(clojure._LT_,clojure._LT__EQ_).apply(null,[test_2]))?(((temp__1455_5=(sc_1).seqFrom(key_3,false)),
-((temp__1455_5)?(((vec__5345_6=temp__1455_5),
-(e_7=clojure.nth.apply(null,[vec__5345_6,(0),null])),
-(s_8=vec__5345_6),
+((temp__1455_5)?(((vec__5340_6=temp__1455_5),
+(e_7=clojure.nth.apply(null,[vec__5340_6,(0),null])),
+(s_8=vec__5340_6),
 ((include_4.apply(null,[e_7]))?(s_8):(clojure.rest.apply(null,[s_8]))))):(null)))):(clojure.take_while.apply(null,[include_4,(sc_1).seq(false)])))))}
-var vec__5347_7,temp__1455_6,s_9,e_8;
+var vec__5342_7,temp__1455_6,s_9,e_8;
 return (((temp__1455_6=(sc_1).seqFrom(end_key_5,false)),
-((temp__1455_6)?(((vec__5347_7=temp__1455_6),
-(e_8=clojure.nth.apply(null,[vec__5347_7,(0),null])),
-(s_9=vec__5347_7),
+((temp__1455_6)?(((vec__5342_7=temp__1455_6),
+(e_8=clojure.nth.apply(null,[vec__5342_7,(0),null])),
+(s_9=vec__5342_7),
 clojure.take_while.apply(null,[clojure.bound_fn.apply(null,[sc_1,start_test_2,start_key_3]),((clojure.bound_fn.apply(null,[sc_1,end_test_4,end_key_5]).apply(null,[e_8]))?(s_9):(clojure.rest.apply(null,[s_9])))]))):(null))))})))}).apply(null,[]);
 
 //======
 //(defn repeatedly "Takes a function of no args, presumably with side effects, and returns an infinite\n  lazy sequence of calls to it" [f] (lazy-cons (f) (repeatedly f)))
 //---
-(function __clojure_fn_5350(){
-return (clojure.JS.def(clojure,"repeatedly",(function __clojure_fn_5350_repeatedly_5352(f_1){
-return ((new clojure.lang.LazyCons((function __clojure_fn_5350_repeatedly_5352_fn_5355(G__5354_1){switch(arguments.length){
+(function __clojure_fn_5345(){
+return (clojure.JS.def(clojure,"repeatedly",(function __clojure_fn_5345_repeatedly_5347(f_1){
+return ((new clojure.lang.LazyCons((function __clojure_fn_5345_repeatedly_5347_fn_5350(G__5349_1){switch(arguments.length){
 case 0:return (f_1.apply(null,[]))}
 return (clojure.repeatedly.apply(null,[f_1]))}))))})))}).apply(null,[]);
 
 //======
 //(defn add-classpath "Adds the url (String or URL object) to the classpath per URLClassLoader.addURL" [url] (. clojure.lang.RT addURL url))
 //---
-(function __clojure_fn_5361(){
-return (clojure.JS.def(clojure,"add_classpath",(function __clojure_fn_5361_add_classpath_5363(url_1){
+(function __clojure_fn_5356(){
+return (clojure.JS.def(clojure,"add_classpath",(function __clojure_fn_5356_add_classpath_5358(url_1){
 return (clojure.lang.RT.addURL(url_1))})))}).apply(null,[]);
 
 //======
 //(defn hash "Returns the hash code of its argument" [x] (. clojure.lang.Util (hash x)))
 //---
-(function __clojure_fn_5367(){
-return (clojure.JS.def(clojure,"hash",(function __clojure_fn_5367_hash_5369(x_1){
+(function __clojure_fn_5362(){
+return (clojure.JS.def(clojure,"hash",(function __clojure_fn_5362_hash_5364(x_1){
 return (clojure.lang.Util.hash(x_1))})))}).apply(null,[]);
 
 //======
 //(defn interpose "Returns a lazy seq of the elements of coll separated by sep" [sep coll] (drop 1 (interleave (repeat sep) coll)))
 //---
-(function __clojure_fn_5373(){
-return (clojure.JS.def(clojure,"interpose",(function __clojure_fn_5373_interpose_5375(sep_1,coll_2){
+(function __clojure_fn_5368(){
+return (clojure.JS.def(clojure,"interpose",(function __clojure_fn_5368_interpose_5370(sep_1,coll_2){
 return (clojure.drop.apply(null,[(1),clojure.interleave.apply(null,[clojure.repeat.apply(null,[sep_1]),coll_2])]))})))}).apply(null,[]);
 
 //======
 //(defn partition "Returns a lazy sequence of lists of n items each, at offsets step\n  apart. If step is not supplied, defaults to n, i.e. the partitions\n  do not overlap." ([n coll] (partition n n coll)) ([n step coll] (when (seq coll) (let [p (take n coll)] (when (= n (count p)) (lazy-cons p (partition n step (drop step coll))))))))
 //---
-(function __clojure_fn_5379(){
-return (clojure.JS.def(clojure,"partition",(function __clojure_fn_5379_partition_5381(n_1,step_2,coll_3){switch(arguments.length){
+(function __clojure_fn_5374(){
+return (clojure.JS.def(clojure,"partition",(function __clojure_fn_5374_partition_5376(n_1,step_2,coll_3){switch(arguments.length){
 case 2:var coll_2=arguments[1];
 return (clojure.partition.apply(null,[n_1,n_1,coll_2]))}
 var p_4;
 return (((clojure.seq.apply(null,[coll_3]))?(((p_4=clojure.take.apply(null,[n_1,coll_3])),
-((clojure.lang.Util.equal(n_1,clojure.count.apply(null,[p_4])))?((new clojure.lang.LazyCons((function __clojure_fn_5379_partition_5381_fn_5385(G__5384_1){switch(arguments.length){
+((clojure.lang.Util.equal(n_1,clojure.count.apply(null,[p_4])))?((new clojure.lang.LazyCons((function __clojure_fn_5374_partition_5376_fn_5380(G__5379_1){switch(arguments.length){
 case 0:return (p_4)}
 return (clojure.partition.apply(null,[n_1,step_2,clojure.drop.apply(null,[step_2,coll_3])]))})))):(null)))):(null)))})))}).apply(null,[]);
-// Skipping: (defmacro definline "Experimental - like defmacro, except defines a named function whose\n  body is the expansion, calls to which may be expanded inline as if\n  it were a macro. Cannot be used with variadic (&) args." [name & decl] (let [[args expr] (drop-while (comp not vector?) decl) inline (eval (list (quote fn) args expr))] (clojure/concat (clojure/list (quote do)) (clojure/list (clojure/concat (clojure/list (quote clojure/defn)) (clojure/list name) (clojure/list args) (clojure/list (apply inline args)))) (clojure/list (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote v__5391)) (clojure/list (clojure/concat (clojure/list (quote var)) (clojure/list name)))))) (clojure/list (clojure/concat (clojure/list (quote clojure/.setMeta)) (clojure/list (quote v__5391)) (clojure/list (clojure/concat (clojure/list (quote clojure/assoc)) (clojure/list (clojure/concat (clojure/list (quote clojure/meta)) (clojure/list (quote v__5391)))) (clojure/list :inline) (clojure/list inline))))))))))
+// Skipping: (defmacro definline "Experimental - like defmacro, except defines a named function whose\n  body is the expansion, calls to which may be expanded inline as if\n  it were a macro. Cannot be used with variadic (&) args." [name & decl] (let [[args expr] (drop-while (comp not vector?) decl) inline (eval (list (quote fn) args expr))] (clojure/concat (clojure/list (quote do)) (clojure/list (clojure/concat (clojure/list (quote clojure/defn)) (clojure/list name) (clojure/list args) (clojure/list (apply inline args)))) (clojure/list (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote v__5386)) (clojure/list (clojure/concat (clojure/list (quote var)) (clojure/list name)))))) (clojure/list (clojure/concat (clojure/list (quote clojure/.setMeta)) (clojure/list (quote v__5386)) (clojure/list (clojure/concat (clojure/list (quote clojure/assoc)) (clojure/list (clojure/concat (clojure/list (quote clojure/meta)) (clojure/list (quote v__5386)))) (clojure/list :inline) (clojure/list inline))))))))))
 
 //======
 //(defn empty "Returns an empty collection of the same category as coll, or nil" [coll] (.empty coll))
 //---
-(function __clojure_fn_5399(){
-return (clojure.JS.def(clojure,"empty",(function __clojure_fn_5399_empty_5401(coll_1){
+(function __clojure_fn_5394(){
+return (clojure.JS.def(clojure,"empty",(function __clojure_fn_5394_empty_5396(coll_1){
 return ((coll_1).empty())})))}).apply(null,[]);
-// Skipping: (defmacro amap "Maps an expression across an array a, using an index named idx, and\n  return value named ret, initialized to a clone of a, then setting each element of\n  ret to the evaluation of expr, returning the new array ret." [a idx ret expr] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote a__5405)) (clojure/list a) (clojure/list ret) (clojure/list (clojure/concat (clojure/list (quote clojure/aclone)) (clojure/list (quote a__5405))))))) (clojure/list (clojure/concat (clojure/list (quote clojure/loop)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list idx) (clojure/list (clojure/concat (clojure/list (quote clojure/int)) (clojure/list 0)))))) (clojure/list (clojure/concat (clojure/list (quote if)) (clojure/list (clojure/concat (clojure/list (quote clojure/<)) (clojure/list idx) (clojure/list (clojure/concat (clojure/list (quote clojure/alength)) (clojure/list (quote a__5405)))))) (clojure/list (clojure/concat (clojure/list (quote do)) (clojure/list (clojure/concat (clojure/list (quote clojure/aset)) (clojure/list ret) (clojure/list idx) (clojure/list expr))) (clojure/list (clojure/concat (clojure/list (quote recur)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked-inc)) (clojure/list idx))))))) (clojure/list ret)))))))
-// Skipping: (defmacro areduce "Reduces an expression across an array a, using an index named idx,\n  and return value named ret, initialized to init, setting ret to the evaluation of expr at\n  each step, returning ret." [a idx ret init expr] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote a__5412)) (clojure/list a)))) (clojure/list (clojure/concat (clojure/list (quote clojure/loop)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list idx) (clojure/list (clojure/concat (clojure/list (quote clojure/int)) (clojure/list 0))) (clojure/list ret) (clojure/list init)))) (clojure/list (clojure/concat (clojure/list (quote if)) (clojure/list (clojure/concat (clojure/list (quote clojure/<)) (clojure/list idx) (clojure/list (clojure/concat (clojure/list (quote clojure/alength)) (clojure/list (quote a__5412)))))) (clojure/list (clojure/concat (clojure/list (quote recur)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked-inc)) (clojure/list idx))) (clojure/list expr))) (clojure/list ret)))))))
-
-//======
-//(defn float-array "Creates an array of floats" {:inline (fn [& args] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (quote clojure/float_array)) args)), :inline-arities #{1 2}} ([size-or-seq] (. clojure.lang.Numbers float_array size-or-seq)) ([size init-val-or-seq] (. clojure.lang.Numbers float_array size init-val-or-seq)))
-//---
-(function __clojure_fn_5419(){
-return (clojure.JS.def(clojure,"float_array",(function __clojure_fn_5419_float_array_5424(size_1,init_val_or_seq_2){switch(arguments.length){
-case 1:var size_or_seq_1=arguments[0];
-return (clojure.lang.Numbers.float_array(size_or_seq_1))}
-return (clojure.lang.Numbers.float_array(size_1,init_val_or_seq_2))})))}).apply(null,[]);
-
-//======
-//(defn double-array "Creates an array of doubles" {:inline (fn [& args] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (quote clojure/double_array)) args)), :inline-arities #{1 2}} ([size-or-seq] (. clojure.lang.Numbers double_array size-or-seq)) ([size init-val-or-seq] (. clojure.lang.Numbers double_array size init-val-or-seq)))
-//---
-(function __clojure_fn_5429(){
-return (clojure.JS.def(clojure,"double_array",(function __clojure_fn_5429_double_array_5434(size_1,init_val_or_seq_2){switch(arguments.length){
-case 1:var size_or_seq_1=arguments[0];
-return (clojure.lang.Numbers.double_array(size_or_seq_1))}
-return (clojure.lang.Numbers.double_array(size_1,init_val_or_seq_2))})))}).apply(null,[]);
-
-//======
-//(defn int-array "Creates an array of ints" {:inline (fn [& args] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (quote clojure/int_array)) args)), :inline-arities #{1 2}} ([size-or-seq] (. clojure.lang.Numbers int_array size-or-seq)) ([size init-val-or-seq] (. clojure.lang.Numbers int_array size init-val-or-seq)))
-//---
-(function __clojure_fn_5439(){
-return (clojure.JS.def(clojure,"int_array",(function __clojure_fn_5439_int_array_5444(size_1,init_val_or_seq_2){switch(arguments.length){
-case 1:var size_or_seq_1=arguments[0];
-return (clojure.lang.Numbers.int_array(size_or_seq_1))}
-return (clojure.lang.Numbers.int_array(size_1,init_val_or_seq_2))})))}).apply(null,[]);
-
-//======
-//(defn long-array "Creates an array of ints" {:inline (fn [& args] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (quote clojure/long_array)) args)), :inline-arities #{1 2}} ([size-or-seq] (. clojure.lang.Numbers long_array size-or-seq)) ([size init-val-or-seq] (. clojure.lang.Numbers long_array size init-val-or-seq)))
-//---
-(function __clojure_fn_5449(){
-return (clojure.JS.def(clojure,"long_array",(function __clojure_fn_5449_long_array_5454(size_1,init_val_or_seq_2){switch(arguments.length){
-case 1:var size_or_seq_1=arguments[0];
-return (clojure.lang.Numbers.long_array(size_or_seq_1))}
-return (clojure.lang.Numbers.long_array(size_1,init_val_or_seq_2))})))}).apply(null,[]);
+// Skipping: (defmacro amap "Maps an expression across an array a, using an index named idx, and\n  return value named ret, initialized to a clone of a, then setting each element of\n  ret to the evaluation of expr, returning the new array ret." [a idx ret expr] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote a__5400)) (clojure/list a) (clojure/list ret) (clojure/list (clojure/concat (clojure/list (quote clojure/aclone)) (clojure/list (quote a__5400))))))) (clojure/list (clojure/concat (clojure/list (quote clojure/loop)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list idx) (clojure/list (clojure/concat (clojure/list (quote clojure/int)) (clojure/list 0)))))) (clojure/list (clojure/concat (clojure/list (quote if)) (clojure/list (clojure/concat (clojure/list (quote clojure/<)) (clojure/list idx) (clojure/list (clojure/concat (clojure/list (quote clojure/alength)) (clojure/list (quote a__5400)))))) (clojure/list (clojure/concat (clojure/list (quote do)) (clojure/list (clojure/concat (clojure/list (quote clojure/aset)) (clojure/list ret) (clojure/list idx) (clojure/list expr))) (clojure/list (clojure/concat (clojure/list (quote recur)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked-inc)) (clojure/list idx))))))) (clojure/list ret)))))))
+// Skipping: (defmacro areduce "Reduces an expression across an array a, using an index named idx,\n  and return value named ret, initialized to init, setting ret to the evaluation of expr at\n  each step, returning ret." [a idx ret init expr] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote a__5407)) (clojure/list a)))) (clojure/list (clojure/concat (clojure/list (quote clojure/loop)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list idx) (clojure/list (clojure/concat (clojure/list (quote clojure/int)) (clojure/list 0))) (clojure/list ret) (clojure/list init)))) (clojure/list (clojure/concat (clojure/list (quote if)) (clojure/list (clojure/concat (clojure/list (quote clojure/<)) (clojure/list idx) (clojure/list (clojure/concat (clojure/list (quote clojure/alength)) (clojure/list (quote a__5407)))))) (clojure/list (clojure/concat (clojure/list (quote recur)) (clojure/list (clojure/concat (clojure/list (quote clojure/unchecked-inc)) (clojure/list idx))) (clojure/list expr))) (clojure/list ret)))))))
+// Skipping: (defn float-array "Creates an array of floats" {:inline (fn [& args] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (quote clojure/float_array)) args)), :inline-arities #{1 2}} ([size-or-seq] (. clojure.lang.Numbers float_array size-or-seq)) ([size init-val-or-seq] (. clojure.lang.Numbers float_array size init-val-or-seq)))
+// Skipping: (defn double-array "Creates an array of doubles" {:inline (fn [& args] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (quote clojure/double_array)) args)), :inline-arities #{1 2}} ([size-or-seq] (. clojure.lang.Numbers double_array size-or-seq)) ([size init-val-or-seq] (. clojure.lang.Numbers double_array size init-val-or-seq)))
+// Skipping: (defn int-array "Creates an array of ints" {:inline (fn [& args] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (quote clojure/int_array)) args)), :inline-arities #{1 2}} ([size-or-seq] (. clojure.lang.Numbers int_array size-or-seq)) ([size init-val-or-seq] (. clojure.lang.Numbers int_array size init-val-or-seq)))
+// Skipping: (defn long-array "Creates an array of ints" {:inline (fn [& args] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (quote clojure/long_array)) args)), :inline-arities #{1 2}} ([size-or-seq] (. clojure.lang.Numbers long_array size-or-seq)) ([size init-val-or-seq] (. clojure.lang.Numbers long_array size init-val-or-seq)))
 // Skipping: (definline floats "Casts to float[]" [xs] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (quote clojure/floats)) (clojure/list xs)))
 // Skipping: (definline ints "Casts to int[]" [xs] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (quote clojure/ints)) (clojure/list xs)))
 // Skipping: (definline doubles "Casts to double[]" [xs] (clojure/concat (clojure/list (quote .)) (clojure/list (quote clojure.lang.Numbers)) (clojure/list (quote clojure/doubles)) (clojure/list xs)))
@@ -2306,43 +2258,43 @@ return (clojure.lang.Numbers.long_array(size_1,init_val_or_seq_2))})))}).apply(n
 //======
 //(import (quote (java.util.concurrent BlockingQueue LinkedBlockingQueue)))
 //---
-(function __clojure_fn_5507(){
-return (clojure.import_.apply(null,[clojure.JS.lit_list(["'java.util.concurrent","'BlockingQueue","'LinkedBlockingQueue"])]))}).apply(null,[]);
+(function __clojure_fn_5454(){
+return (clojure.import_.apply(null,[clojure.JS.lit_list([clojure.symbol("java.util.concurrent"),clojure.symbol("BlockingQueue"),clojure.symbol("LinkedBlockingQueue")])]))}).apply(null,[]);
 // Skipping: (defn seque "Creates a queued seq on another (presumably lazy) seq s. The queued\n  seq will produce a concrete seq in the background, and can get up to\n  n items ahead of the consumer. n-or-q can be an integer n buffer\n  size, or an instance of java.util.concurrent BlockingQueue. Note\n  that reading from a seque can block if the reader gets ahead of the\n  producer." ([s] (seque 100 s)) ([n-or-q s] (let [q (if (instance? BlockingQueue n-or-q) n-or-q (LinkedBlockingQueue. (int n-or-q))) NIL (Object.) agt (agent (seq s)) fill (fn [s] (try (loop [[x & xs :as s] s] (if s (if (.offer q (if (nil? x) NIL x)) (recur xs) s) (.put q q))) (catch Exception e (.put q q) (throw e)))) drain (fn drain [] (let [x (.take q)] (if (identical? x q) (clojure/deref agt) (do (send-off agt fill) (lazy-cons (if (identical? x NIL) nil x) (drain))))))] (send-off agt fill) (drain))))
 
 //======
 //(defn alter-var-root "Atomically alters the root binding of var v by applying f to its\n  current value plus any args" [v f & args] (.alterRoot v f args))
 //---
-(function __clojure_fn_5531(){
-return (clojure.JS.def(clojure,"alter_var_root",clojure.JS.variadic(2,(function __clojure_fn_5531_alter_var_root_5533(v_1,f_2){
+(function __clojure_fn_5478(){
+return (clojure.JS.def(clojure,"alter_var_root",clojure.JS.variadic(2,(function __clojure_fn_5478_alter_var_root_5480(v_1,f_2){
 var args_3=clojure.JS.rest_args(this,arguments,2);
 return ((v_1).alterRoot(f_2,args_3))}))))}).apply(null,[]);
 
 //======
-//(defn make-hierarchy "Creates a hierarchy object for use with derive, isa? etc." [] {:parents {}, :descendants {}, :ancestors {}})
+//(defn make-hierarchy "Creates a hierarchy object for use with derive, isa? etc." [] {:descendants {}, :parents {}, :ancestors {}})
 //---
-(function __clojure_fn_5537(){
-return (clojure.JS.def(clojure,"make_hierarchy",(function __clojure_fn_5537_make_hierarchy_5539(){
-return (clojure.hash_map(clojure.keyword("","parents"),clojure.lang.PersistentHashMap.EMPTY,clojure.keyword("","descendants"),clojure.lang.PersistentHashMap.EMPTY,clojure.keyword("","ancestors"),clojure.lang.PersistentHashMap.EMPTY))})))}).apply(null,[]);
+(function __clojure_fn_5484(){
+return (clojure.JS.def(clojure,"make_hierarchy",(function __clojure_fn_5484_make_hierarchy_5486(){
+return (clojure.hash_map(clojure.keyword("","descendants"),clojure.lang.PersistentHashMap.EMPTY,clojure.keyword("","parents"),clojure.lang.PersistentHashMap.EMPTY,clojure.keyword("","ancestors"),clojure.lang.PersistentHashMap.EMPTY))})))}).apply(null,[]);
 
 //======
 //(def global-hierarchy (make-hierarchy))
 //---
-(function __clojure_fn_5543(){
+(function __clojure_fn_5490(){
 return (clojure.JS.def(clojure,"global_hierarchy",clojure.make_hierarchy.apply(null,[])))}).apply(null,[]);
 
 //======
 //(defn not-empty "If coll is empty, returns nil, else coll" [coll] (when (seq coll) coll))
 //---
-(function __clojure_fn_5546(){
-return (clojure.JS.def(clojure,"not_empty",(function __clojure_fn_5546_not_empty_5548(coll_1){
+(function __clojure_fn_5493(){
+return (clojure.JS.def(clojure,"not_empty",(function __clojure_fn_5493_not_empty_5495(coll_1){
 return (((clojure.seq.apply(null,[coll_1]))?(coll_1):(null)))})))}).apply(null,[]);
 
 //======
 //(defn bases "Returns the immediate superclass and direct interfaces of c, if any" [c] (let [i (.getInterfaces c) s (.getSuperclass c)] (not-empty (if s (cons s i) i))))
 //---
-(function __clojure_fn_5552(){
-return (clojure.JS.def(clojure,"bases",(function __clojure_fn_5552_bases_5554(c_1){
+(function __clojure_fn_5499(){
+return (clojure.JS.def(clojure,"bases",(function __clojure_fn_5499_bases_5501(c_1){
 var s_3,i_2;
 return (((i_2=(c_1).getInterfaces()),
 (s_3=(c_1).getSuperclass()),
@@ -2351,9 +2303,9 @@ clojure.not_empty.apply(null,[((s_3)?(clojure.cons.apply(null,[s_3,i_2])):(i_2))
 //======
 //(defn supers "Returns the immediate and indirect superclasses and interfaces of c, if any" [class] (loop [ret (set (bases class)) cs ret] (if (seq cs) (let [c (first cs) bs (bases c)] (recur (into ret bs) (into (disj cs c) bs))) (not-empty ret))))
 //---
-(function __clojure_fn_5558(){
-return (clojure.JS.def(clojure,"supers",(function __clojure_fn_5558_supers_5560(class_1){
-var cs_3,bs_5,c_4,ret_2;
+(function __clojure_fn_5505(){
+return (clojure.JS.def(clojure,"supers",(function __clojure_fn_5505_supers_5507(class_1){
+var ret_2,bs_5,c_4,cs_3;
 return (((function __loop(){var _rtn,_cnt;(ret_2=clojure.set.apply(null,[clojure.bases.apply(null,[class_1])])),
 (cs_3=ret_2);do{_cnt=0;
 _rtn=((clojure.seq.apply(null,[cs_3]))?(((c_4=clojure.first.apply(null,[cs_3])),
@@ -2361,21 +2313,21 @@ _rtn=((clojure.seq.apply(null,[cs_3]))?(((c_4=clojure.first.apply(null,[cs_3])),
 (_cnt=1,_rtn=[clojure.into.apply(null,[ret_2,bs_5]),clojure.into.apply(null,[clojure.disj.apply(null,[cs_3,c_4]),bs_5])],ret_2=_rtn[0],cs_3=_rtn[1]))):(clojure.not_empty.apply(null,[ret_2])))}while(_cnt);return _rtn;})()))})))}).apply(null,[]);
 
 //======
-//(defn isa? "Returns true if (= child parent), or child is directly or indirectly derived from\n  parent, either via a Java type inheritance relationship or a\n  relationship established via derive. h must be a hierarchy obtained\n  from make-hierarchy, if not supplied defaults to the global\n  hierarchy" ([child parent] (isa? global-hierarchy child parent)) ([h child parent] (or (= child parent) (and (class? parent) (class? child) (. parent isAssignableFrom child)) (contains? ((:ancestors h) child) parent) (and (class? child) (some (fn* [p1__5564] (contains? ((:ancestors h) p1__5564) parent)) (supers child))) (and (vector? parent) (vector? child) (= (count parent) (count child)) (loop [ret true i 0] (if (or (not ret) (= i (count parent))) ret (recur (isa? h (child i) (parent i)) (inc i))))))))
+//(defn isa? "Returns true if (= child parent), or child is directly or indirectly derived from\n  parent, either via a Java type inheritance relationship or a\n  relationship established via derive. h must be a hierarchy obtained\n  from make-hierarchy, if not supplied defaults to the global\n  hierarchy" ([child parent] (isa? global-hierarchy child parent)) ([h child parent] (or (= child parent) (and (class? parent) (class? child) (. parent isAssignableFrom child)) (contains? ((:ancestors h) child) parent) (and (class? child) (some (fn* [p1__5511] (contains? ((:ancestors h) p1__5511) parent)) (supers child))) (and (vector? parent) (vector? child) (= (count parent) (count child)) (loop [ret true i 0] (if (or (not ret) (= i (count parent))) ret (recur (isa? h (child i) (parent i)) (inc i))))))))
 //---
-(function __clojure_fn_5565(){
-return (clojure.JS.def(clojure,"isa_QMARK_",(function __clojure_fn_5565_isa_QMARK_5567(h_1,child_2,parent_3){switch(arguments.length){
+(function __clojure_fn_5512(){
+return (clojure.JS.def(clojure,"isa_QMARK_",(function __clojure_fn_5512_isa_QMARK_5514(h_1,child_2,parent_3){switch(arguments.length){
 case 2:var child_1=arguments[0],parent_2=arguments[1];
 return (clojure.isa_QMARK_.apply(null,[clojure.global_hierarchy,child_1,parent_2]))}
-var or__202_6,and__196_8,or__202_13,and__196_5,ret_11,and__196_9,and__196_6,or__202_7,i_12,and__196_10,and__196_7,or__202_5,or__202_4;
+var or__202_4,or__202_7,ret_11,and__196_9,and__196_6,or__202_5,and__196_7,and__196_5,i_12,and__196_8,or__202_13,or__202_6,and__196_10;
 return (((or__202_4=clojure.lang.Util.equal(child_2,parent_3)),
 ((or__202_4)?(or__202_4):(((or__202_5=((and__196_5=clojure.class_QMARK_.apply(null,[parent_3])),
 ((and__196_5)?(((and__196_6=clojure.class_QMARK_.apply(null,[child_2])),
 ((and__196_6)?((parent_3).isAssignableFrom(child_2)):(and__196_6)))):(and__196_5)))),
 ((or__202_5)?(or__202_5):(((or__202_6=clojure.contains_QMARK_.apply(null,[clojure.keyword("","ancestors").apply(null,[h_1]).apply(null,[child_2]),parent_3])),
 ((or__202_6)?(or__202_6):(((or__202_7=((and__196_7=clojure.class_QMARK_.apply(null,[child_2])),
-((and__196_7)?(clojure.some.apply(null,[(function __clojure_fn_5565_isa_QMARK_5567_fn_5570(p1__5564_1){
-return (clojure.contains_QMARK_.apply(null,[clojure.keyword("","ancestors").apply(null,[h_1]).apply(null,[p1__5564_1]),parent_3]))}),clojure.supers.apply(null,[child_2])])):(and__196_7)))),
+((and__196_7)?(clojure.some.apply(null,[(function __clojure_fn_5512_isa_QMARK_5514_fn_5517(p1__5511_1){
+return (clojure.contains_QMARK_.apply(null,[clojure.keyword("","ancestors").apply(null,[h_1]).apply(null,[p1__5511_1]),parent_3]))}),clojure.supers.apply(null,[child_2])])):(and__196_7)))),
 ((or__202_7)?(or__202_7):(((and__196_8=clojure.vector_QMARK_.apply(null,[parent_3])),
 ((and__196_8)?(((and__196_9=clojure.vector_QMARK_.apply(null,[child_2])),
 ((and__196_9)?(((and__196_10=clojure.lang.Util.equal(clojure.count.apply(null,[parent_3]),clojure.count.apply(null,[child_2]))),
@@ -2387,8 +2339,8 @@ _rtn=((((or__202_13=clojure.not.apply(null,[ret_11])),
 //======
 //(defn parents "Returns the immediate parents of tag, either via a Java type\n  inheritance relationship or a relationship established via derive. h\n  must be a hierarchy obtained from make-hierarchy, if not supplied\n  defaults to the global hierarchy" ([tag] (parents global-hierarchy tag)) ([h tag] (not-empty (let [tp (get (:parents h) tag)] (if (class? tag) (into (set (bases tag)) tp) tp)))))
 //---
-(function __clojure_fn_5575(){
-return (clojure.JS.def(clojure,"parents",(function __clojure_fn_5575_parents_5577(h_1,tag_2){switch(arguments.length){
+(function __clojure_fn_5522(){
+return (clojure.JS.def(clojure,"parents",(function __clojure_fn_5522_parents_5524(h_1,tag_2){switch(arguments.length){
 case 1:var tag_1=arguments[0];
 return (clojure.parents.apply(null,[clojure.global_hierarchy,tag_1]))}
 var tp_3;
@@ -2398,8 +2350,8 @@ return (clojure.not_empty.apply(null,[((tp_3=clojure.get.apply(null,[clojure.key
 //======
 //(defn ancestors "Returns the immediate and indirect parents of tag, either via a Java type\n  inheritance relationship or a relationship established via derive. h\n  must be a hierarchy obtained from make-hierarchy, if not supplied\n  defaults to the global hierarchy" ([tag] (ancestors global-hierarchy tag)) ([h tag] (not-empty (let [ta (get (:ancestors h) tag)] (if (class? tag) (into (set (supers tag)) ta) ta)))))
 //---
-(function __clojure_fn_5582(){
-return (clojure.JS.def(clojure,"ancestors",(function __clojure_fn_5582_ancestors_5584(h_1,tag_2){switch(arguments.length){
+(function __clojure_fn_5529(){
+return (clojure.JS.def(clojure,"ancestors",(function __clojure_fn_5529_ancestors_5531(h_1,tag_2){switch(arguments.length){
 case 1:var tag_1=arguments[0];
 return (clojure.ancestors.apply(null,[clojure.global_hierarchy,tag_1]))}
 var ta_3;
@@ -2409,43 +2361,43 @@ return (clojure.not_empty.apply(null,[((ta_3=clojure.get.apply(null,[clojure.key
 //======
 //(defn descendants "Returns the immediate and indirect children of tag, through a\n  relationship established via derive. h must be a hierarchy obtained\n  from make-hierarchy, if not supplied defaults to the global\n  hierarchy. Note: does not work on Java type inheritance\n  relationships." ([tag] (descendants global-hierarchy tag)) ([h tag] (if (class? tag) (throw (RT/makeUnsupportedException "Can't get descendants of classes")) (not-empty (get (:descendants h) tag)))))
 //---
-(function __clojure_fn_5589(){
-return (clojure.JS.def(clojure,"descendants",(function __clojure_fn_5589_descendants_5591(h_1,tag_2){switch(arguments.length){
+(function __clojure_fn_5536(){
+return (clojure.JS.def(clojure,"descendants",(function __clojure_fn_5536_descendants_5538(h_1,tag_2){switch(arguments.length){
 case 1:var tag_1=arguments[0];
 return (clojure.descendants.apply(null,[clojure.global_hierarchy,tag_1]))}
 return (((clojure.class_QMARK_.apply(null,[tag_2]))?((function __throw(){throw clojure.lang.RT.makeUnsupportedException("Can't get descendants of classes")})()):(clojure.not_empty.apply(null,[clojure.get.apply(null,[clojure.keyword("","descendants").apply(null,[h_1]),tag_2])]))))})))}).apply(null,[]);
 
 //======
-//(defn derive "Establishes a parent/child relationship between parent and\n  tag. Parent must be a namespace-qualified symbol or keyword and\n  child can be either a namespace-qualified symbol or keyword or a\n  class. h must be a hierarchy obtained from make-hierarchy, if not\n  supplied defaults to, and modifies, the global hierarchy." ([tag parent] (alter-var-root (var global-hierarchy) derive tag parent) nil) ([h tag parent] (assert (not= tag parent)) (assert (or (class? tag) (and (instance? clojure.lang.Named tag) (namespace tag)))) (assert (instance? clojure.lang.Named parent)) (assert (namespace parent)) (let [tp (:parents h) td (:descendants h) ta (:ancestors h) tf (fn [m source sources target targets] (reduce (fn [ret k] (assoc ret k (reduce conj (get targets k #{}) (cons target (targets target))))) m (cons source (sources source))))] (or (when-not (contains? (tp tag) parent) (when (contains? (ta tag) parent) (throw (RT/makeException (print-str tag "already has" parent "as ancestor")))) (when (contains? (ta parent) tag) (throw (RT/makeException (print-str "Cyclic derivation:" parent "has" tag "as ancestor")))) {:parents (assoc (:parents h) tag (conj (get tp tag #{}) parent)), :descendants (tf (:descendants h) parent ta tag td), :ancestors (tf (:ancestors h) tag td parent ta)}) h))))
+//(defn derive "Establishes a parent/child relationship between parent and\n  tag. Parent must be a namespace-qualified symbol or keyword and\n  child can be either a namespace-qualified symbol or keyword or a\n  class. h must be a hierarchy obtained from make-hierarchy, if not\n  supplied defaults to, and modifies, the global hierarchy." ([tag parent] (alter-var-root (var global-hierarchy) derive tag parent) nil) ([h tag parent] (assert (not= tag parent)) (assert (or (class? tag) (and (instance? clojure.lang.Named tag) (namespace tag)))) (assert (instance? clojure.lang.Named parent)) (assert (namespace parent)) (let [tp (:parents h) td (:descendants h) ta (:ancestors h) tf (fn [m source sources target targets] (reduce (fn [ret k] (assoc ret k (reduce conj (get targets k #{}) (cons target (targets target))))) m (cons source (sources source))))] (or (when-not (contains? (tp tag) parent) (when (contains? (ta tag) parent) (throw (RT/makeException (print-str tag "already has" parent "as ancestor")))) (when (contains? (ta parent) tag) (throw (RT/makeException (print-str "Cyclic derivation:" parent "has" tag "as ancestor")))) {:descendants (tf (:descendants h) parent ta tag td), :parents (assoc (:parents h) tag (conj (get tp tag #{}) parent)), :ancestors (tf (:ancestors h) tag td parent ta)}) h))))
 //---
-(function __clojure_fn_5596(){
-return (clojure.JS.def(clojure,"derive",(function __clojure_fn_5596_derive_5598(h_1,tag_2,parent_3){switch(arguments.length){
+(function __clojure_fn_5543(){
+return (clojure.JS.def(clojure,"derive",(function __clojure_fn_5543_derive_5545(h_1,tag_2,parent_3){switch(arguments.length){
 case 2:var tag_1=arguments[0],parent_2=arguments[1];
 return (clojure.alter_var_root.apply(null,[clojure._var_global_hierarchy,clojure.derive,tag_1,parent_2]),
 null)}
-var tp_4,tf_7,and__196_5,td_5,or__202_4,ta_6,or__202_8;
-return (((clojure.not_EQ_.apply(null,[tag_2,parent_3]))?(null):((function __throw(){throw clojure.lang.RT.makeException(clojure.str.apply(null,["Assert failed: ",clojure.pr_str.apply(null,[clojure.JS.lit_list(["'not=","'tag","'parent"])])]))})())),
+var tp_4,tf_7,ta_6,and__196_5,td_5,or__202_4,or__202_8;
+return (((clojure.not_EQ_.apply(null,[tag_2,parent_3]))?(null):((function __throw(){throw clojure.lang.RT.makeException(clojure.str.apply(null,["Assert failed: ",clojure.pr_str.apply(null,[clojure.JS.lit_list([clojure.symbol("not="),clojure.symbol("tag"),clojure.symbol("parent")])])]))})())),
 ((((or__202_4=clojure.class_QMARK_.apply(null,[tag_2])),
 ((or__202_4)?(or__202_4):(((and__196_5=clojure.instance_QMARK_.apply(null,[clojure.lang.Named,tag_2])),
-((and__196_5)?(clojure.namespace.apply(null,[tag_2])):(and__196_5)))))))?(null):((function __throw(){throw clojure.lang.RT.makeException(clojure.str.apply(null,["Assert failed: ",clojure.pr_str.apply(null,[clojure.JS.lit_list(["'or",clojure.JS.lit_list(["'class?","'tag"]),clojure.JS.lit_list(["'and",clojure.JS.lit_list(["'instance?","'clojure.lang.Named","'tag"]),clojure.JS.lit_list(["'namespace","'tag"])])])])]))})())),
-((clojure.instance_QMARK_.apply(null,[clojure.lang.Named,parent_3]))?(null):((function __throw(){throw clojure.lang.RT.makeException(clojure.str.apply(null,["Assert failed: ",clojure.pr_str.apply(null,[clojure.JS.lit_list(["'instance?","'clojure.lang.Named","'parent"])])]))})())),
-((clojure.namespace.apply(null,[parent_3]))?(null):((function __throw(){throw clojure.lang.RT.makeException(clojure.str.apply(null,["Assert failed: ",clojure.pr_str.apply(null,[clojure.JS.lit_list(["'namespace","'parent"])])]))})())),
+((and__196_5)?(clojure.namespace.apply(null,[tag_2])):(and__196_5)))))))?(null):((function __throw(){throw clojure.lang.RT.makeException(clojure.str.apply(null,["Assert failed: ",clojure.pr_str.apply(null,[clojure.JS.lit_list([clojure.symbol("or"),clojure.JS.lit_list([clojure.symbol("class?"),clojure.symbol("tag")]),clojure.JS.lit_list([clojure.symbol("and"),clojure.JS.lit_list([clojure.symbol("instance?"),clojure.symbol("clojure.lang.Named"),clojure.symbol("tag")]),clojure.JS.lit_list([clojure.symbol("namespace"),clojure.symbol("tag")])])])])]))})())),
+((clojure.instance_QMARK_.apply(null,[clojure.lang.Named,parent_3]))?(null):((function __throw(){throw clojure.lang.RT.makeException(clojure.str.apply(null,["Assert failed: ",clojure.pr_str.apply(null,[clojure.JS.lit_list([clojure.symbol("instance?"),clojure.symbol("clojure.lang.Named"),clojure.symbol("parent")])])]))})())),
+((clojure.namespace.apply(null,[parent_3]))?(null):((function __throw(){throw clojure.lang.RT.makeException(clojure.str.apply(null,["Assert failed: ",clojure.pr_str.apply(null,[clojure.JS.lit_list([clojure.symbol("namespace"),clojure.symbol("parent")])])]))})())),
 ((tp_4=clojure.keyword("","parents").apply(null,[h_1])),
 (td_5=clojure.keyword("","descendants").apply(null,[h_1])),
 (ta_6=clojure.keyword("","ancestors").apply(null,[h_1])),
-(tf_7=(function __clojure_fn_5596_derive_5598_tf_5601(m_1,source_2,sources_3,target_4,targets_5){
-return (clojure.reduce.apply(null,[(function __clojure_fn_5596_derive_5598_tf_5601_fn_5603(ret_1,k_2){
+(tf_7=(function __clojure_fn_5543_derive_5545_tf_5548(m_1,source_2,sources_3,target_4,targets_5){
+return (clojure.reduce.apply(null,[(function __clojure_fn_5543_derive_5545_tf_5548_fn_5550(ret_1,k_2){
 return (clojure.assoc.apply(null,[ret_1,k_2,clojure.reduce.apply(null,[clojure.conj,clojure.get.apply(null,[targets_5,k_2,clojure.lang.PersistentHashSet.EMPTY]),clojure.cons.apply(null,[target_4,targets_5.apply(null,[target_4])])])]))}),m_1,clojure.cons.apply(null,[source_2,sources_3.apply(null,[source_2])])]))})),
 ((or__202_8=((clojure.contains_QMARK_.apply(null,[tp_4.apply(null,[tag_2]),parent_3]))?(null):(((clojure.contains_QMARK_.apply(null,[ta_6.apply(null,[tag_2]),parent_3]))?((function __throw(){throw clojure.lang.RT.makeException(clojure.print_str.apply(null,[tag_2,"already has",parent_3,"as ancestor"]))})()):(null)),
 ((clojure.contains_QMARK_.apply(null,[ta_6.apply(null,[parent_3]),tag_2]))?((function __throw(){throw clojure.lang.RT.makeException(clojure.print_str.apply(null,["Cyclic derivation:",parent_3,"has",tag_2,"as ancestor"]))})()):(null)),
-clojure.hash_map(clojure.keyword("","parents"),clojure.assoc.apply(null,[clojure.keyword("","parents").apply(null,[h_1]),tag_2,clojure.conj.apply(null,[clojure.get.apply(null,[tp_4,tag_2,clojure.lang.PersistentHashSet.EMPTY]),parent_3])]),clojure.keyword("","descendants"),tf_7.apply(null,[clojure.keyword("","descendants").apply(null,[h_1]),parent_3,ta_6,tag_2,td_5]),clojure.keyword("","ancestors"),tf_7.apply(null,[clojure.keyword("","ancestors").apply(null,[h_1]),tag_2,td_5,parent_3,ta_6]))))),
+clojure.hash_map(clojure.keyword("","descendants"),tf_7.apply(null,[clojure.keyword("","descendants").apply(null,[h_1]),parent_3,ta_6,tag_2,td_5]),clojure.keyword("","parents"),clojure.assoc.apply(null,[clojure.keyword("","parents").apply(null,[h_1]),tag_2,clojure.conj.apply(null,[clojure.get.apply(null,[tp_4,tag_2,clojure.lang.PersistentHashSet.EMPTY]),parent_3])]),clojure.keyword("","ancestors"),tf_7.apply(null,[clojure.keyword("","ancestors").apply(null,[h_1]),tag_2,td_5,parent_3,ta_6]))))),
 ((or__202_8)?(or__202_8):(h_1)))))})))}).apply(null,[]);
 
 //======
 //(defn underive "Removes a parent/child relationship between parent and\n  tag. h must be a hierarchy obtained from make-hierarchy, if not\n  supplied defaults to, and modifies, the global hierarchy." ([tag parent] (alter-var-root (var global-hierarchy) underive tag parent) nil) ([h tag parent] (let [tp (:parents h) td (:descendants h) ta (:ancestors h) tf (fn [m source sources target targets] (reduce (fn [ret k] (assoc ret k (reduce disj (get targets k) (cons target (targets target))))) m (cons source (sources source))))] (if (contains? (tp tag) parent) {:descendants (tf (:descendants h) parent ta tag td), :ancestors (tf (:ancestors h) tag td parent ta), :parent (assoc (:parents h) tag (disj (get tp tag) parent))} h))))
 //---
-(function __clojure_fn_5609(){
-return (clojure.JS.def(clojure,"underive",(function __clojure_fn_5609_underive_5611(h_1,tag_2,parent_3){switch(arguments.length){
+(function __clojure_fn_5556(){
+return (clojure.JS.def(clojure,"underive",(function __clojure_fn_5556_underive_5558(h_1,tag_2,parent_3){switch(arguments.length){
 case 2:var tag_1=arguments[0],parent_2=arguments[1];
 return (clojure.alter_var_root.apply(null,[clojure._var_global_hierarchy,clojure.underive,tag_1,parent_2]),
 null)}
@@ -2453,64 +2405,64 @@ var ta_6,tf_7,tp_4,td_5;
 return (((tp_4=clojure.keyword("","parents").apply(null,[h_1])),
 (td_5=clojure.keyword("","descendants").apply(null,[h_1])),
 (ta_6=clojure.keyword("","ancestors").apply(null,[h_1])),
-(tf_7=(function __clojure_fn_5609_underive_5611_tf_5614(m_1,source_2,sources_3,target_4,targets_5){
-return (clojure.reduce.apply(null,[(function __clojure_fn_5609_underive_5611_tf_5614_fn_5616(ret_1,k_2){
+(tf_7=(function __clojure_fn_5556_underive_5558_tf_5561(m_1,source_2,sources_3,target_4,targets_5){
+return (clojure.reduce.apply(null,[(function __clojure_fn_5556_underive_5558_tf_5561_fn_5563(ret_1,k_2){
 return (clojure.assoc.apply(null,[ret_1,k_2,clojure.reduce.apply(null,[clojure.disj,clojure.get.apply(null,[targets_5,k_2]),clojure.cons.apply(null,[target_4,targets_5.apply(null,[target_4])])])]))}),m_1,clojure.cons.apply(null,[source_2,sources_3.apply(null,[source_2])])]))})),
 ((clojure.contains_QMARK_.apply(null,[tp_4.apply(null,[tag_2]),parent_3]))?(clojure.hash_map(clojure.keyword("","descendants"),tf_7.apply(null,[clojure.keyword("","descendants").apply(null,[h_1]),parent_3,ta_6,tag_2,td_5]),clojure.keyword("","ancestors"),tf_7.apply(null,[clojure.keyword("","ancestors").apply(null,[h_1]),tag_2,td_5,parent_3,ta_6]),clojure.keyword("","parent"),clojure.assoc.apply(null,[clojure.keyword("","parents").apply(null,[h_1]),tag_2,clojure.disj.apply(null,[clojure.get.apply(null,[tp_4,tag_2]),parent_3])]))):(h_1))))})))}).apply(null,[]);
 
 //======
 //(defn distinct? "Returns true if no two of the arguments are equal" {:tag Boolean} ([x] true) ([x y] (not (= x y))) ([x y & more] (if (not= x y) (loop [s #{y x} [x & etc :as xs] more] (if xs (if (contains? s x) false (recur (conj s x) etc)) true)) false)))
 //---
-(function __clojure_fn_5622(){
-return (clojure.JS.def(clojure,"distinct_QMARK_",clojure.JS.variadic(2,(function __clojure_fn_5622_distinct_QMARK_5624(x_1,y_2){switch(arguments.length){
+(function __clojure_fn_5569(){
+return (clojure.JS.def(clojure,"distinct_QMARK_",clojure.JS.variadic(2,(function __clojure_fn_5569_distinct_QMARK_5571(x_1,y_2){switch(arguments.length){
 case 1:return (true)
 case 2:return (clojure.not.apply(null,[clojure.lang.Util.equal(x_1,y_2)]))}
-var s_10,etc_15,x_14,s_12,x_7,vec__5631_13,vec__5630_6,etc_8,G__5629_5,xs_16,s_4,xs_9,G__5629_11,more_3=clojure.JS.rest_args(this,arguments,2);
+var x_14,vec__5577_6,etc_15,vec__5578_13,etc_8,G__5576_11,G__5576_5,xs_9,x_7,xs_16,s_4,s_12,s_10,more_3=clojure.JS.rest_args(this,arguments,2);
 return (((clojure.not_EQ_.apply(null,[x_1,y_2]))?(((s_4=clojure.hash_set(y_2,x_1)),
-(G__5629_5=more_3),
-(vec__5630_6=G__5629_5),
-(x_7=clojure.nth.apply(null,[vec__5630_6,(0),null])),
-(etc_8=clojure.nthrest.apply(null,[vec__5630_6,(1)])),
-(xs_9=vec__5630_6),
+(G__5576_5=more_3),
+(vec__5577_6=G__5576_5),
+(x_7=clojure.nth.apply(null,[vec__5577_6,(0),null])),
+(etc_8=clojure.nthrest.apply(null,[vec__5577_6,(1)])),
+(xs_9=vec__5577_6),
 ((function __loop(){var _rtn,_cnt;(s_10=s_4),
-(G__5629_11=G__5629_5);do{_cnt=0;
+(G__5576_11=G__5576_5);do{_cnt=0;
 _rtn=((s_12=s_10),
-(vec__5631_13=G__5629_11),
-(x_14=clojure.nth.apply(null,[vec__5631_13,(0),null])),
-(etc_15=clojure.nthrest.apply(null,[vec__5631_13,(1)])),
-(xs_16=vec__5631_13),
-((xs_16)?(((clojure.contains_QMARK_.apply(null,[s_12,x_14]))?(false):((_cnt=1,_rtn=[clojure.conj.apply(null,[s_12,x_14]),etc_15],s_10=_rtn[0],G__5629_11=_rtn[1])))):(true)))}while(_cnt);return _rtn;})()))):(false)))}))))}).apply(null,[]);
+(vec__5578_13=G__5576_11),
+(x_14=clojure.nth.apply(null,[vec__5578_13,(0),null])),
+(etc_15=clojure.nthrest.apply(null,[vec__5578_13,(1)])),
+(xs_16=vec__5578_13),
+((xs_16)?(((clojure.contains_QMARK_.apply(null,[s_12,x_14]))?(false):((_cnt=1,_rtn=[clojure.conj.apply(null,[s_12,x_14]),etc_15],s_10=_rtn[0],G__5576_11=_rtn[1])))):(true)))}while(_cnt);return _rtn;})()))):(false)))}))))}).apply(null,[]);
 
 //======
 //(defn iterator-seq "Returns a seq on a java.util.Iterator. Note that most collections\n  providing iterators implement Iterable and thus support seq directly." [iter] (clojure.lang.IteratorSeq/create iter))
 //---
-(function __clojure_fn_5634(){
-return (clojure.JS.def(clojure,"iterator_seq",(function __clojure_fn_5634_iterator_seq_5636(iter_1){
+(function __clojure_fn_5581(){
+return (clojure.JS.def(clojure,"iterator_seq",(function __clojure_fn_5581_iterator_seq_5583(iter_1){
 return (clojure.lang.IteratorSeq.create(iter_1))})))}).apply(null,[]);
 
 //======
 //(defn enumeration-seq "Returns a seq on a java.lang.Enumeration" [e] (clojure.lang.EnumerationSeq/create e))
 //---
-(function __clojure_fn_5640(){
-return (clojure.JS.def(clojure,"enumeration_seq",(function __clojure_fn_5640_enumeration_seq_5642(e_1){
+(function __clojure_fn_5587(){
+return (clojure.JS.def(clojure,"enumeration_seq",(function __clojure_fn_5587_enumeration_seq_5589(e_1){
 return (clojure.lang.EnumerationSeq.create(e_1))})))}).apply(null,[]);
 // Skipping: (defn format "Formats a string using java.lang.String.format, see java.util.Formatter for format\n  string syntax" [fmt & args] (String/format fmt (to-array args)))
 
 //======
 //(defn printf "Prints formatted output, as per format" [fmt & args] (print (apply format fmt args)))
 //---
-(function __clojure_fn_5652(){
-return (clojure.JS.def(clojure,"printf",clojure.JS.variadic(1,(function __clojure_fn_5652_printf_5654(fmt_1){
+(function __clojure_fn_5599(){
+return (clojure.JS.def(clojure,"printf",clojure.JS.variadic(1,(function __clojure_fn_5599_printf_5601(fmt_1){
 var args_2=clojure.JS.rest_args(this,arguments,1);
 return (clojure.print.apply(null,[clojure.apply.apply(null,[clojure.format,fmt_1,args_2])]))}))))}).apply(null,[]);
-// Skipping: (defmacro ns "Sets *ns* to the namespace named by name (unevaluated), creating it\n  if needed.  references can be zero or more of: (:refer-clojure ...)\n  (:require ...) (:use ...) (:import ...) (:load ...) with the syntax\n  of refer-clojure/require/use/import/load respectively, except the\n  arguments are unevaluated and need not be quoted.  If :refer-clojure\n  is not used, a default (refer 'clojure) is used. Use of ns is preferred\n  to individual calls to in-ns/require/use/import:\n\n  (ns foo\n    (:refer-clojure :exclude [ancestors printf])\n    (:require (clojure.contrib sql sql.tests))\n    (:use (my.lib this that))\n    (:import (java.util Date Timer Random)\n              (java.sql Connection Statement))\n    (:load \"/mystuff/foo.clj\"))" [name & references] (let [process-reference (fn [[kname & args]] (clojure/concat (clojure/list (symbol "clojure" (clojure/name kname))) (map (fn* [p1__5658] (list (quote quote) p1__5658)) args)))] (clojure/concat (clojure/list (quote do)) (clojure/list (clojure/concat (clojure/list (quote clojure/in-ns)) (clojure/list (clojure/concat (clojure/list (quote quote)) (clojure/list name))))) (when (not-any? (fn* [p1__5659] (= :refer-clojure (first p1__5659))) references) (clojure/concat (clojure/list (clojure/concat (clojure/list (quote clojure/refer)) (clojure/list (clojure/concat (clojure/list (quote quote)) (clojure/list (quote clojure)))))))) (map process-reference references))))
+// Skipping: (defmacro ns "Sets *ns* to the namespace named by name (unevaluated), creating it\n  if needed.  references can be zero or more of: (:refer-clojure ...)\n  (:require ...) (:use ...) (:import ...) (:load ...) with the syntax\n  of refer-clojure/require/use/import/load respectively, except the\n  arguments are unevaluated and need not be quoted.  If :refer-clojure\n  is not used, a default (refer 'clojure) is used. Use of ns is preferred\n  to individual calls to in-ns/require/use/import:\n\n  (ns foo\n    (:refer-clojure :exclude [ancestors printf])\n    (:require (clojure.contrib sql sql.tests))\n    (:use (my.lib this that))\n    (:import (java.util Date Timer Random)\n              (java.sql Connection Statement))\n    (:load \"/mystuff/foo.clj\"))" [name & references] (let [process-reference (fn [[kname & args]] (clojure/concat (clojure/list (symbol "clojure" (clojure/name kname))) (map (fn* [p1__5605] (list (quote quote) p1__5605)) args)))] (clojure/concat (clojure/list (quote do)) (clojure/list (clojure/concat (clojure/list (quote clojure/in-ns)) (clojure/list (clojure/concat (clojure/list (quote quote)) (clojure/list name))))) (when (not-any? (fn* [p1__5606] (= :refer-clojure (first p1__5606))) references) (clojure/concat (clojure/list (clojure/concat (clojure/list (quote clojure/refer)) (clojure/list (clojure/concat (clojure/list (quote quote)) (clojure/list (quote clojure)))))))) (map process-reference references))))
 // Skipping: (defmacro refer-clojure "Same as (refer 'clojure <filters>)" [& filters] (clojure/concat (clojure/list (quote clojure/refer)) (clojure/list (clojure/concat (clojure/list (quote quote)) (clojure/list (quote clojure)))) filters))
-// Skipping: (defmacro defonce "defs name to have the root value of the expr iff the named var has no root value, \n  else expr is unevaluated" [name expr] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote v__5683)) (clojure/list (clojure/concat (clojure/list (quote def)) (clojure/list name)))))) (clojure/list (clojure/concat (clojure/list (quote clojure/when-not)) (clojure/list (clojure/concat (clojure/list (quote clojure/.hasRoot)) (clojure/list (quote v__5683)))) (clojure/list (clojure/concat (clojure/list (quote def)) (clojure/list name) (clojure/list expr)))))))
+// Skipping: (defmacro defonce "defs name to have the root value of the expr iff the named var has no root value, \n  else expr is unevaluated" [name expr] (clojure/concat (clojure/list (quote clojure/let)) (clojure/list (clojure/apply clojure/vector (clojure/concat (clojure/list (quote v__5630)) (clojure/list (clojure/concat (clojure/list (quote def)) (clojure/list name)))))) (clojure/list (clojure/concat (clojure/list (quote clojure/when-not)) (clojure/list (clojure/concat (clojure/list (quote clojure/.hasRoot)) (clojure/list (quote v__5630)))) (clojure/list (clojure/concat (clojure/list (quote def)) (clojure/list name) (clojure/list expr)))))))
 
 //======
 //(defonce *loaded-libs* (ref (sorted-set)))
 //---
-(function __clojure_fn_5690(){
+(function __clojure_fn_5637(){
 var v__1728_1;
 return (((v__1728_1=clojure.JS.def(clojure,"_STAR_loaded_libs_STAR_",null)),
 (((v__1728_1).hasRoot())?(null):(clojure.JS.def(clojure,"_STAR_loaded_libs_STAR_",clojure.ref.apply(null,[clojure.sorted_set.apply(null,[])]))))))}).apply(null,[]);
@@ -2518,7 +2470,7 @@ return (((v__1728_1=clojure.JS.def(clojure,"_STAR_loaded_libs_STAR_",null)),
 //======
 //(defonce *pending-paths* #{})
 //---
-(function __clojure_fn_5693(){
+(function __clojure_fn_5640(){
 var v__1728_1;
 return (((v__1728_1=clojure.JS.def(clojure,"_STAR_pending_paths_STAR_",null)),
 (((v__1728_1).hasRoot())?(null):(clojure.JS.def(clojure,"_STAR_pending_paths_STAR_",clojure.lang.PersistentHashSet.EMPTY)))))}).apply(null,[]);
@@ -2526,22 +2478,22 @@ return (((v__1728_1=clojure.JS.def(clojure,"_STAR_pending_paths_STAR_",null)),
 //======
 //(defonce *loading-verbosely* false)
 //---
-(function __clojure_fn_5696(){
+(function __clojure_fn_5643(){
 var v__1728_1;
 return (((v__1728_1=clojure.JS.def(clojure,"_STAR_loading_verbosely_STAR_",null)),
 (((v__1728_1).hasRoot())?(null):(clojure.JS.def(clojure,"_STAR_loading_verbosely_STAR_",false)))))}).apply(null,[]);
 
 //======
-//(defn- throw-if "Throws an exception with a message if pred is true" [pred fmt & args] (when pred (let [message (apply format fmt args) exception (RT/makeException message) raw-trace (.getStackTrace exception) boring? (fn* [p1__5699] (not= (.getMethodName p1__5699) "doInvoke")) trace (into-array (drop 2 (drop-while boring? raw-trace)))] (.setStackTrace exception trace) (throw exception))))
+//(defn- throw-if "Throws an exception with a message if pred is true" [pred fmt & args] (when pred (let [message (apply format fmt args) exception (RT/makeException message) raw-trace (.getStackTrace exception) boring? (fn* [p1__5646] (not= (.getMethodName p1__5646) "doInvoke")) trace (into-array (drop 2 (drop-while boring? raw-trace)))] (.setStackTrace exception trace) (throw exception))))
 //---
-(function __clojure_fn_5700(){
-return (clojure.JS.def(clojure,"throw_if",clojure.JS.variadic(2,(function __clojure_fn_5700_throw_if_5702(pred_1,fmt_2){
-var boring_QMARK__7,trace_8,exception_5,raw_trace_6,message_4,args_3=clojure.JS.rest_args(this,arguments,2);
+(function __clojure_fn_5647(){
+return (clojure.JS.def(clojure,"throw_if",clojure.JS.variadic(2,(function __clojure_fn_5647_throw_if_5649(pred_1,fmt_2){
+var raw_trace_6,exception_5,message_4,boring_QMARK__7,trace_8,args_3=clojure.JS.rest_args(this,arguments,2);
 return (((pred_1)?(((message_4=clojure.apply.apply(null,[clojure.format,fmt_2,args_3])),
 (exception_5=clojure.lang.RT.makeException(message_4)),
 (raw_trace_6=(exception_5).getStackTrace()),
-(boring_QMARK__7=(function __clojure_fn_5700_throw_if_5702_boring_QMARK_5704(p1__5699_1){
-return (clojure.not_EQ_.apply(null,[clojure.JS.getOrRun(p1__5699_1,"getMethodName"),"doInvoke"]))})),
+(boring_QMARK__7=(function __clojure_fn_5647_throw_if_5649_boring_QMARK_5651(p1__5646_1){
+return (clojure.not_EQ_.apply(null,[clojure.JS.getOrRun(p1__5646_1,"getMethodName"),"doInvoke"]))})),
 (trace_8=clojure.into_array.apply(null,[clojure.drop.apply(null,[(2),clojure.drop_while.apply(null,[boring_QMARK__7,raw_trace_6])])])),
 (exception_5).setStackTrace(trace_8),
 (function __throw(){throw exception_5})())):(null)))}))))}).apply(null,[]);
@@ -2549,9 +2501,9 @@ return (clojure.not_EQ_.apply(null,[clojure.JS.getOrRun(p1__5699_1,"getMethodNam
 //======
 //(defn- libspec? "Returns true if x is a libspec" [x] (or (symbol? x) (and (vector? x) (or (nil? (second x)) (keyword? (second x))))))
 //---
-(function __clojure_fn_5709(){
-return (clojure.JS.def(clojure,"libspec_QMARK_",(function __clojure_fn_5709_libspec_QMARK_5711(x_1){
-var or__202_4,or__202_2,and__196_3;
+(function __clojure_fn_5656(){
+return (clojure.JS.def(clojure,"libspec_QMARK_",(function __clojure_fn_5656_libspec_QMARK_5658(x_1){
+var or__202_2,or__202_4,and__196_3;
 return (((or__202_2=clojure.symbol_QMARK_.apply(null,[x_1])),
 ((or__202_2)?(or__202_2):(((and__196_3=clojure.vector_QMARK_.apply(null,[x_1])),
 ((and__196_3)?(((or__202_4=clojure.nil_QMARK_.apply(null,[clojure.second.apply(null,[x_1])])),
@@ -2560,23 +2512,23 @@ return (((or__202_2=clojure.symbol_QMARK_.apply(null,[x_1])),
 //======
 //(defn- prependss "Prepends a symbol or a seq to coll" [x coll] (if (symbol? x) (cons x coll) (concat x coll)))
 //---
-(function __clojure_fn_5715(){
-return (clojure.JS.def(clojure,"prependss",(function __clojure_fn_5715_prependss_5717(x_1,coll_2){
+(function __clojure_fn_5662(){
+return (clojure.JS.def(clojure,"prependss",(function __clojure_fn_5662_prependss_5664(x_1,coll_2){
 return (((clojure.symbol_QMARK_.apply(null,[x_1]))?(clojure.cons.apply(null,[x_1,coll_2])):(clojure.concat.apply(null,[x_1,coll_2]))))})))}).apply(null,[]);
 
 //======
 //(defn- root-directory "Returns the root directory path for a lib" [lib] (str \/ (.. (name lib) (replace \- \_) (replace \. \/))))
 //---
-(function __clojure_fn_5721(){
-return (clojure.JS.def(clojure,"root_directory",(function __clojure_fn_5721_root_directory_5723(lib_1){
+(function __clojure_fn_5668(){
+return (clojure.JS.def(clojure,"root_directory",(function __clojure_fn_5668_root_directory_5670(lib_1){
 return (clojure.str.apply(null,["/",((clojure.name.apply(null,[lib_1])).replace("-","_")).replace(".","/")]))})))}).apply(null,[]);
 
 //======
 //(defn- root-resource "Returns the root resource path for a lib" [lib] (let [d (root-directory lib) i (inc (.lastIndexOf d (int \/))) leaf (.substring d i)] (str d \/ leaf ".clj")))
 //---
-(function __clojure_fn_5727(){
-return (clojure.JS.def(clojure,"root_resource",(function __clojure_fn_5727_root_resource_5729(lib_1){
-var leaf_4,i_3,d_2;
+(function __clojure_fn_5674(){
+return (clojure.JS.def(clojure,"root_resource",(function __clojure_fn_5674_root_resource_5676(lib_1){
+var i_3,leaf_4,d_2;
 return (((d_2=clojure.root_directory.apply(null,[lib_1])),
 (i_3=clojure.lang.Numbers.inc((d_2).lastIndexOf(clojure.lang.RT.intCast("/")))),
 (leaf_4=(d_2).substring(i_3)),
@@ -2585,30 +2537,30 @@ clojure.str.apply(null,[d_2,"/",leaf_4,".clj"])))})))}).apply(null,[]);
 //======
 //(def load)
 //---
-(function __clojure_fn_5733(){
+(function __clojure_fn_5680(){
 return (clojure.JS.def(clojure,"load",null))}).apply(null,[]);
 
 //======
 //(defn- load-one "Loads a lib given its name. If need-ns, ensures that the associated\n  namespace exists after loading. If require, records the load so any\n  duplicate loads can be skipped." [lib need-ns require] (load (root-resource lib)) (throw-if (and need-ns (not (find-ns lib))) "namespace '%s' not found after loading '%s'" lib (root-resource lib)) (when require (dosync (commute *loaded-libs* conj lib))))
 //---
-(function __clojure_fn_5736(){
-return (clojure.JS.def(clojure,"load_one",(function __clojure_fn_5736_load_one_5738(lib_1,need_ns_2,require_3){
+(function __clojure_fn_5683(){
+return (clojure.JS.def(clojure,"load_one",(function __clojure_fn_5683_load_one_5685(lib_1,need_ns_2,require_3){
 var and__196_4;
 return (clojure.load.apply(null,[clojure.root_resource.apply(null,[lib_1])]),
 clojure.throw_if.apply(null,[((and__196_4=need_ns_2),
 ((and__196_4)?(clojure.not.apply(null,[clojure.find_ns.apply(null,[lib_1])])):(and__196_4))),"namespace '%s' not found after loading '%s'",lib_1,clojure.root_resource.apply(null,[lib_1])]),
-((require_3)?(clojure.lang.LockingTransaction.runInTransaction((function __clojure_fn_5736_load_one_5738_fn_5740(){
+((require_3)?(clojure.lang.LockingTransaction.runInTransaction((function __clojure_fn_5683_load_one_5685_fn_5687(){
 return (clojure.commute.apply(null,[clojure._STAR_loaded_libs_STAR_,clojure.conj,lib_1]))}))):(null)))})))}).apply(null,[]);
 
 //======
-//(defn- load-all "Loads a lib given its name and forces a load of any libs it directly or\n  indirectly loads. If need-ns, ensures that the associated namespace\n  exists after loading. If require, records the load so any duplicate loads\n  can be skipped." [lib need-ns require] (dosync (commute *loaded-libs* (fn* [p1__5745 p2__5746] (reduce conj p1__5745 p2__5746)) (binding [*loaded-libs* (ref (sorted-set))] (load-one lib need-ns require) (clojure/deref *loaded-libs*)))))
+//(defn- load-all "Loads a lib given its name and forces a load of any libs it directly or\n  indirectly loads. If need-ns, ensures that the associated namespace\n  exists after loading. If require, records the load so any duplicate loads\n  can be skipped." [lib need-ns require] (dosync (commute *loaded-libs* (fn* [p1__5692 p2__5693] (reduce conj p1__5692 p2__5693)) (binding [*loaded-libs* (ref (sorted-set))] (load-one lib need-ns require) (clojure/deref *loaded-libs*)))))
 //---
-(function __clojure_fn_5747(){
-return (clojure.JS.def(clojure,"load_all",(function __clojure_fn_5747_load_all_5749(lib_1,need_ns_2,require_3){
-return (clojure.lang.LockingTransaction.runInTransaction((function __clojure_fn_5747_load_all_5749_fn_5751(){
-return (clojure.commute.apply(null,[clojure._STAR_loaded_libs_STAR_,(function __clojure_fn_5747_load_all_5749_fn_5751_fn_5753(p1__5745_1,p2__5746_2){
-return (clojure.reduce.apply(null,[clojure.conj,p1__5745_1,p2__5746_2]))}),clojure.lang.Var.pushThreadBindings(clojure.hash_map.apply(null,[clojure._var__STAR_loaded_libs_STAR_,clojure.ref.apply(null,[clojure.sorted_set.apply(null,[])])])),
-(function __clojure_fn_5747_load_all_5749_fn_5751_fn_5756(){
+(function __clojure_fn_5694(){
+return (clojure.JS.def(clojure,"load_all",(function __clojure_fn_5694_load_all_5696(lib_1,need_ns_2,require_3){
+return (clojure.lang.LockingTransaction.runInTransaction((function __clojure_fn_5694_load_all_5696_fn_5698(){
+return (clojure.commute.apply(null,[clojure._STAR_loaded_libs_STAR_,(function __clojure_fn_5694_load_all_5696_fn_5698_fn_5700(p1__5692_1,p2__5693_2){
+return (clojure.reduce.apply(null,[clojure.conj,p1__5692_1,p2__5693_2]))}),clojure.lang.Var.pushThreadBindings(clojure.hash_map.apply(null,[clojure._var__STAR_loaded_libs_STAR_,clojure.ref.apply(null,[clojure.sorted_set.apply(null,[])])])),
+(function __clojure_fn_5694_load_all_5696_fn_5698_fn_5703(){
 return ((function __try(){try{var _rtn=(clojure.load_one.apply(null,[lib_1,need_ns_2,require_3]),
 clojure.deref.apply(null,[clojure._STAR_loaded_libs_STAR_]))}
 finally{clojure.lang.Var.popThreadBindings()}return _rtn})())}).apply(null,[])]))})))})))}).apply(null,[]);
@@ -2616,20 +2568,20 @@ finally{clojure.lang.Var.popThreadBindings()}return _rtn})())}).apply(null,[])])
 //======
 //(defn- load-lib "Loads a lib with options" [prefix lib & options] (throw-if (and prefix (pos? (.indexOf (name lib) (int \.)))) "lib names inside prefix lists must not contain periods") (let [lib (if prefix (symbol (str prefix \. lib)) lib) opts (apply hash-map options) {:keys [as reload reload-all require use verbose]} opts loaded (contains? (clojure/deref *loaded-libs*) lib) load (cond reload-all load-all (or reload (not require) (not loaded)) load-one) need-ns (or as use) filter-opts (select-keys opts (quote (:exclude :only :rename)))] (binding [*loading-verbosely* (or *loading-verbosely* verbose)] (if load (load lib need-ns require) (throw-if (and need-ns (not (find-ns lib))) "namespace '%s' not found" lib)) (when (and need-ns *loading-verbosely*) (printf "(clojure/in-ns '%s)\n" (ns-name *ns*))) (when as (when *loading-verbosely* (printf "(clojure/alias '%s '%s)\n" as lib)) (alias as lib)) (when use (when *loading-verbosely* (printf "(clojure/refer '%s" lib) (doseq opt filter-opts (printf " %s '%s" (key opt) (print-str (val opt)))) (printf ")\n")) (apply refer lib (mapcat seq filter-opts))))))
 //---
-(function __clojure_fn_5762(){
-return (clojure.JS.def(clojure,"load_lib",clojure.JS.variadic(2,(function __clojure_fn_5762_load_lib_5764(prefix_1,lib_2){
-var and__196_19,lib_4,and__196_19,map__5766_6,reload_7,filter_opts_16,or__202_15,or__202_15,reload_all_10,require_9,load_14,loaded_13,or__202_14,opt_20,use_12,as_8,verbose_11,need_ns_15,and__196_4,opts_5,or__202_17,list__794_19,options_3=clojure.JS.rest_args(this,arguments,2);
+(function __clojure_fn_5709(){
+return (clojure.JS.def(clojure,"load_lib",clojure.JS.variadic(2,(function __clojure_fn_5709_load_lib_5711(prefix_1,lib_2){
+var loaded_13,or__202_15,map__5713_6,and__196_19,reload_7,load_14,and__196_19,require_9,as_8,verbose_11,lib_4,opts_5,use_12,list__794_19,opt_20,filter_opts_16,reload_all_10,or__202_14,or__202_17,or__202_15,and__196_4,need_ns_15,options_3=clojure.JS.rest_args(this,arguments,2);
 return (clojure.throw_if.apply(null,[((and__196_4=prefix_1),
 ((and__196_4)?(clojure.lang.Numbers.isPos((clojure.name.apply(null,[lib_2])).indexOf(clojure.lang.RT.intCast(".")))):(and__196_4))),"lib names inside prefix lists must not contain periods"]),
 ((lib_4=((prefix_1)?(clojure.symbol.apply(null,[clojure.str.apply(null,[prefix_1,".",lib_2])])):(lib_2))),
 (opts_5=clojure.apply.apply(null,[clojure.hash_map,options_3])),
-(map__5766_6=opts_5),
-(reload_7=clojure.get.apply(null,[map__5766_6,clojure.keyword("","reload")])),
-(as_8=clojure.get.apply(null,[map__5766_6,clojure.keyword("","as")])),
-(require_9=clojure.get.apply(null,[map__5766_6,clojure.keyword("","require")])),
-(reload_all_10=clojure.get.apply(null,[map__5766_6,clojure.keyword("","reload-all")])),
-(verbose_11=clojure.get.apply(null,[map__5766_6,clojure.keyword("","verbose")])),
-(use_12=clojure.get.apply(null,[map__5766_6,clojure.keyword("","use")])),
+(map__5713_6=opts_5),
+(reload_7=clojure.get.apply(null,[map__5713_6,clojure.keyword("","reload")])),
+(as_8=clojure.get.apply(null,[map__5713_6,clojure.keyword("","as")])),
+(require_9=clojure.get.apply(null,[map__5713_6,clojure.keyword("","require")])),
+(reload_all_10=clojure.get.apply(null,[map__5713_6,clojure.keyword("","reload-all")])),
+(verbose_11=clojure.get.apply(null,[map__5713_6,clojure.keyword("","verbose")])),
+(use_12=clojure.get.apply(null,[map__5713_6,clojure.keyword("","use")])),
 (loaded_13=clojure.contains_QMARK_.apply(null,[clojure.deref.apply(null,[clojure._STAR_loaded_libs_STAR_]),lib_4])),
 (load_14=((reload_all_10)?(clojure.load_all):(((((or__202_14=reload_7),
 ((or__202_14)?(or__202_14):(((or__202_15=clojure.not.apply(null,[require_9])),
@@ -2657,17 +2609,17 @@ finally{clojure.lang.Var.popThreadBindings()}return _rtn})()))}))))}).apply(null
 //======
 //(defn- load-libs "Loads libs, interpreting libspecs, prefix lists, and flags for\n  forwarding to load-lib" [& args] (let [flags (filter keyword? args) opts (interleave flags (repeat true)) args (filter (complement keyword?) args)] (doseq arg args (if (libspec? arg) (apply load-lib nil (prependss arg opts)) (let [[prefix & args] arg] (throw-if (nil? prefix) "prefix cannot be nil") (doseq arg args (apply load-lib prefix (prependss arg opts))))))))
 //---
-(function __clojure_fn_5769(){
-return (clojure.JS.def(clojure,"load_libs",clojure.JS.variadic(0,(function __clojure_fn_5769_load_libs_5771(){
-var vec__5773_7,args_9,arg_6,opts_3,arg_11,prefix_8,args_4,list__794_5,flags_2,list__794_10,args_1=clojure.JS.rest_args(this,arguments,0);
+(function __clojure_fn_5716(){
+return (clojure.JS.def(clojure,"load_libs",clojure.JS.variadic(0,(function __clojure_fn_5716_load_libs_5718(){
+var flags_2,arg_6,arg_11,opts_3,args_9,args_4,list__794_10,vec__5720_7,prefix_8,list__794_5,args_1=clojure.JS.rest_args(this,arguments,0);
 return (((flags_2=clojure.filter.apply(null,[clojure.keyword_QMARK_,args_1])),
 (opts_3=clojure.interleave.apply(null,[flags_2,clojure.repeat.apply(null,[true])])),
 (args_4=clojure.filter.apply(null,[clojure.complement.apply(null,[clojure.keyword_QMARK_]),args_1])),
 ((function __loop(){var _rtn,_cnt;(list__794_5=clojure.seq.apply(null,[args_4]));do{_cnt=0;
 _rtn=((list__794_5)?(((arg_6=clojure.first.apply(null,[list__794_5])),
-((clojure.libspec_QMARK_.apply(null,[arg_6]))?(clojure.apply.apply(null,[clojure.load_lib,null,clojure.prependss.apply(null,[arg_6,opts_3])])):(((vec__5773_7=arg_6),
-(prefix_8=clojure.nth.apply(null,[vec__5773_7,(0),null])),
-(args_9=clojure.nthrest.apply(null,[vec__5773_7,(1)])),
+((clojure.libspec_QMARK_.apply(null,[arg_6]))?(clojure.apply.apply(null,[clojure.load_lib,null,clojure.prependss.apply(null,[arg_6,opts_3])])):(((vec__5720_7=arg_6),
+(prefix_8=clojure.nth.apply(null,[vec__5720_7,(0),null])),
+(args_9=clojure.nthrest.apply(null,[vec__5720_7,(1)])),
 clojure.throw_if.apply(null,[clojure.nil_QMARK_.apply(null,[prefix_8]),"prefix cannot be nil"]),
 ((function __loop(){var _rtn,_cnt;(list__794_10=clojure.seq.apply(null,[args_9]));do{_cnt=0;
 _rtn=((list__794_10)?(((arg_11=clojure.first.apply(null,[list__794_10])),
@@ -2678,32 +2630,32 @@ clojure.apply.apply(null,[clojure.load_lib,prefix_8,clojure.prependss.apply(null
 //======
 //(defn require "Loads libs, skipping any that are already loaded. Each argument is\n  either a libspec that identifies a lib, a prefix list that identifies\n  multiple libs whose names share a common prefix, or a flag that modifies\n  how all the identified libs are loaded. Use :require in the ns macro \n  in preference to calling this directly.\n\n  Libs\n\n  A 'lib' is a named set of resources in classpath whose contents define a\n  library of Clojure code. Lib names are symbols and each lib is associated\n  with a Clojure namespace and a Java package that share its name. A lib's\n  name also locates its root directory within classpath using Java's\n  package name to classpath-relative path mapping. All resources in a lib\n  should be contained in the directory structure under its root directory.\n  All definitions a lib makes should be in its associated namespace.\n\n  'require loads a lib by loading its root resource. The root resource path\n  is derived from the root directory path by repeating its last component\n  and appending '.clj'. For example, the lib 'x.y.z has root directory\n  <classpath>/x/y/z; root resource <classpath>/x/y/z/z.clj. The root\n  resource should contain code to create the lib's namespace and load any\n  additional lib resources.\n\n  Libspecs\n\n  A libspec is a lib name or a vector containing a lib name followed by\n  options expressed as sequential keywords and arguments.\n\n  Recognized options: :as\n  :as takes a symbol as its argument and makes that symbol an alias to the\n    lib's namespace in the current namespace.\n\n  Prefix Lists\n\n  It's common for Clojure code to depend on several libs whose names have\n  the same prefix. When specifying libs, prefix lists can be used to reduce\n  repetition. A prefix list contains the shared prefix followed by libspecs\n  with the shared prefix removed from the lib names. After removing the\n  prefix, the names that remain must not contain any periods.\n\n  Flags\n\n  A flag is a keyword.\n  Recognized flags: :reload, :reload-all, :verbose\n  :reload forces loading of all the identified libs even if they are\n    already loaded\n  :reload-all implies :reload and also forces loading of all libs that the\n    identified libs directly or indirectly load via require or use\n  :verbose triggers printing information about each load, alias, and refer" [& args] (apply load-libs :require args))
 //---
-(function __clojure_fn_5776(){
-return (clojure.JS.def(clojure,"require",clojure.JS.variadic(0,(function __clojure_fn_5776_require_5778(){
+(function __clojure_fn_5723(){
+return (clojure.JS.def(clojure,"require",clojure.JS.variadic(0,(function __clojure_fn_5723_require_5725(){
 var args_1=clojure.JS.rest_args(this,arguments,0);
 return (clojure.apply.apply(null,[clojure.load_libs,clojure.keyword("","require"),args_1]))}))))}).apply(null,[]);
 
 //======
 //(defn use "Like 'require, but also refers to each lib's namespace using\n  clojure/refer. Use :use in the ns macro in preference to calling\n  this directly.\n\n  'use accepts additional options in libspecs: :exclude, :only, :rename.\n  The arguments and semantics for :exclude, :only, and :rename are the same\n  as those documented for clojure/refer." [& args] (apply load-libs :require :use args))
 //---
-(function __clojure_fn_5782(){
-return (clojure.JS.def(clojure,"use",clojure.JS.variadic(0,(function __clojure_fn_5782_use_5784(){
+(function __clojure_fn_5729(){
+return (clojure.JS.def(clojure,"use",clojure.JS.variadic(0,(function __clojure_fn_5729_use_5731(){
 var args_1=clojure.JS.rest_args(this,arguments,0);
 return (clojure.apply.apply(null,[clojure.load_libs,clojure.keyword("","require"),clojure.keyword("","use"),args_1]))}))))}).apply(null,[]);
 
 //======
 //(defn loaded-libs "Returns a sorted set of symbols naming the currently loaded libs" [] (clojure/deref *loaded-libs*))
 //---
-(function __clojure_fn_5788(){
-return (clojure.JS.def(clojure,"loaded_libs",(function __clojure_fn_5788_loaded_libs_5790(){
+(function __clojure_fn_5735(){
+return (clojure.JS.def(clojure,"loaded_libs",(function __clojure_fn_5735_loaded_libs_5737(){
 return (clojure.deref.apply(null,[clojure._STAR_loaded_libs_STAR_]))})))}).apply(null,[]);
 
 //======
 //(defn load "Loads Clojure code from resources in classpath. A path is interpreted as\n  classpath-relative if it begins with a slash or relative to the root\n  directory for the current namespace otherwise." [& paths] (doseq path paths (let [path (if (.startsWith path "/") path (str (root-directory (ns-name *ns*)) \/ path))] (when *loading-verbosely* (printf "(clojure/load \"%s\")\n" path) (flush)) (throw-if (*pending-paths* path) "cannot load '%s' again while it is loading" path) (binding [*pending-paths* (conj *pending-paths* path)] (.loadResourceScript clojure.lang.RT (.substring path 1))))))
 //---
-(function __clojure_fn_5794(){
-return (clojure.JS.def(clojure,"load",clojure.JS.variadic(0,(function __clojure_fn_5794_load_5796(){
-var path_4,list__794_2,path_3,paths_1=clojure.JS.rest_args(this,arguments,0);
+(function __clojure_fn_5741(){
+return (clojure.JS.def(clojure,"load",clojure.JS.variadic(0,(function __clojure_fn_5741_load_5743(){
+var list__794_2,path_4,path_3,paths_1=clojure.JS.rest_args(this,arguments,0);
 return (((function __loop(){var _rtn,_cnt;(list__794_2=clojure.seq.apply(null,[paths_1]));do{_cnt=0;
 _rtn=((list__794_2)?(((path_3=clojure.first.apply(null,[list__794_2])),
 ((path_4=(((path_3).startsWith("/"))?(path_3):(clojure.str.apply(null,[clojure.root_directory.apply(null,[clojure.ns_name.apply(null,[clojure._STAR_ns_STAR_])]),"/",path_3])))),
@@ -2711,7 +2663,7 @@ _rtn=((list__794_2)?(((path_3=clojure.first.apply(null,[list__794_2])),
 clojure.flush.apply(null,[])):(null)),
 clojure.throw_if.apply(null,[clojure._STAR_pending_paths_STAR_.apply(null,[path_4]),"cannot load '%s' again while it is loading",path_4]),
 clojure.lang.Var.pushThreadBindings(clojure.hash_map.apply(null,[clojure._var__STAR_pending_paths_STAR_,clojure.conj.apply(null,[clojure._STAR_pending_paths_STAR_,path_4])])),
-(function __clojure_fn_5794_load_5796_fn_5798(){
+(function __clojure_fn_5741_load_5743_fn_5745(){
 return ((function __try(){try{var _rtn=(clojure.lang.RT.loadResourceScript((path_4).substring((1))))}
 finally{clojure.lang.Var.popThreadBindings()}return _rtn})())}).apply(null,[]))),
 (_cnt=1,_rtn=[clojure.rest.apply(null,[list__794_2])],list__794_2=_rtn[0])):(null))}while(_cnt);return _rtn;})()))}))))}).apply(null,[]);
@@ -2719,74 +2671,74 @@ finally{clojure.lang.Var.popThreadBindings()}return _rtn})())}).apply(null,[])))
 //======
 //(defn get-in "returns the value in a nested associative structure, where ks is a sequence of keys" [m ks] (reduce get m ks))
 //---
-(function __clojure_fn_5803(){
-return (clojure.JS.def(clojure,"get_in",(function __clojure_fn_5803_get_in_5805(m_1,ks_2){
+(function __clojure_fn_5750(){
+return (clojure.JS.def(clojure,"get_in",(function __clojure_fn_5750_get_in_5752(m_1,ks_2){
 return (clojure.reduce.apply(null,[clojure.get,m_1,ks_2]))})))}).apply(null,[]);
 
 //======
 //(defn assoc-in "Associates a value in a nested associative structure, where ks is a\n  sequence of keys and v is the new value and returns a new nested structure.  \n  If any levels do not exist, hash-maps will be created." [m [k & ks] v] (if ks (assoc m k (assoc-in (get m k) ks v)) (assoc m k v)))
 //---
-(function __clojure_fn_5809(){
-return (clojure.JS.def(clojure,"assoc_in",(function __clojure_fn_5809_assoc_in_5812(m_1,p__5811_2,v_3){
-var ks_6,k_5,vec__5814_4;
-return (((vec__5814_4=p__5811_2),
-(k_5=clojure.nth.apply(null,[vec__5814_4,(0),null])),
-(ks_6=clojure.nthrest.apply(null,[vec__5814_4,(1)])),
+(function __clojure_fn_5756(){
+return (clojure.JS.def(clojure,"assoc_in",(function __clojure_fn_5756_assoc_in_5759(m_1,p__5758_2,v_3){
+var k_5,vec__5761_4,ks_6;
+return (((vec__5761_4=p__5758_2),
+(k_5=clojure.nth.apply(null,[vec__5761_4,(0),null])),
+(ks_6=clojure.nthrest.apply(null,[vec__5761_4,(1)])),
 ((ks_6)?(clojure.assoc.apply(null,[m_1,k_5,clojure.assoc_in.apply(null,[clojure.get.apply(null,[m_1,k_5]),ks_6,v_3])])):(clojure.assoc.apply(null,[m_1,k_5,v_3])))))})))}).apply(null,[]);
 
 //======
 //(defn update-in "'Updates' a value in a nested associative structure, where ks is a\n  sequence of keys and f is a function that will take the old value\n  and any supplied args and return the new value, and returns a new\n  nested structure.  If any levels do not exist, hash-maps will be\n  created." ([m [k & ks] f & args] (if ks (assoc m k (apply update-in (get m k) ks f args)) (assoc m k (apply f (get m k) args)))))
 //---
-(function __clojure_fn_5817(){
-return (clojure.JS.def(clojure,"update_in",clojure.JS.variadic(3,(function __clojure_fn_5817_update_in_5820(m_1,p__5819_2,f_3){
-var vec__5822_5,ks_7,k_6,args_4=clojure.JS.rest_args(this,arguments,3);
-return (((vec__5822_5=p__5819_2),
-(k_6=clojure.nth.apply(null,[vec__5822_5,(0),null])),
-(ks_7=clojure.nthrest.apply(null,[vec__5822_5,(1)])),
+(function __clojure_fn_5764(){
+return (clojure.JS.def(clojure,"update_in",clojure.JS.variadic(3,(function __clojure_fn_5764_update_in_5767(m_1,p__5766_2,f_3){
+var k_6,vec__5769_5,ks_7,args_4=clojure.JS.rest_args(this,arguments,3);
+return (((vec__5769_5=p__5766_2),
+(k_6=clojure.nth.apply(null,[vec__5769_5,(0),null])),
+(ks_7=clojure.nthrest.apply(null,[vec__5769_5,(1)])),
 ((ks_7)?(clojure.assoc.apply(null,[m_1,k_6,clojure.apply.apply(null,[clojure.update_in,clojure.get.apply(null,[m_1,k_6]),ks_7,f_3,args_4])])):(clojure.assoc.apply(null,[m_1,k_6,clojure.apply.apply(null,[f_3,clojure.get.apply(null,[m_1,k_6]),args_4])])))))}))))}).apply(null,[]);
 
 //======
 //(defn empty? "Returns true if coll has no items - same as (not (seq coll)). \n  Please use the idiom (seq x) rather than (not (empty? x))" [coll] (not (seq coll)))
 //---
-(function __clojure_fn_5825(){
-return (clojure.JS.def(clojure,"empty_QMARK_",(function __clojure_fn_5825_empty_QMARK_5827(coll_1){
+(function __clojure_fn_5772(){
+return (clojure.JS.def(clojure,"empty_QMARK_",(function __clojure_fn_5772_empty_QMARK_5774(coll_1){
 return (clojure.not.apply(null,[clojure.seq.apply(null,[coll_1])]))})))}).apply(null,[]);
 
 //======
 //(defn coll? "Returns true if x implements IPersistentCollection" [x] (instance? clojure.lang.IPersistentCollection x))
 //---
-(function __clojure_fn_5831(){
-return (clojure.JS.def(clojure,"coll_QMARK_",(function __clojure_fn_5831_coll_QMARK_5833(x_1){
+(function __clojure_fn_5778(){
+return (clojure.JS.def(clojure,"coll_QMARK_",(function __clojure_fn_5778_coll_QMARK_5780(x_1){
 return (clojure.instance_QMARK_.apply(null,[clojure.lang.IPersistentCollection,x_1]))})))}).apply(null,[]);
 
 //======
 //(defn list? "Returns true if x implements IPersistentList" [x] (instance? clojure.lang.IPersistentList x))
 //---
-(function __clojure_fn_5837(){
-return (clojure.JS.def(clojure,"list_QMARK_",(function __clojure_fn_5837_list_QMARK_5839(x_1){
+(function __clojure_fn_5784(){
+return (clojure.JS.def(clojure,"list_QMARK_",(function __clojure_fn_5784_list_QMARK_5786(x_1){
 return (clojure.instance_QMARK_.apply(null,[clojure.lang.IPersistentList,x_1]))})))}).apply(null,[]);
 
 //======
 //(defn set? "Returns true if x implements IPersistentSet" [x] (instance? clojure.lang.IPersistentSet x))
 //---
-(function __clojure_fn_5843(){
-return (clojure.JS.def(clojure,"set_QMARK_",(function __clojure_fn_5843_set_QMARK_5845(x_1){
+(function __clojure_fn_5790(){
+return (clojure.JS.def(clojure,"set_QMARK_",(function __clojure_fn_5790_set_QMARK_5792(x_1){
 return (clojure.instance_QMARK_.apply(null,[clojure.lang.IPersistentSet,x_1]))})))}).apply(null,[]);
 // Skipping: (defn number? "Returns true if x is a Number" [x] (instance? Number x))
 
 //======
 //(defn fn? "Returns true if x implements IFn. Note that many data structures \n  (e.g. sets and maps) implement IFn" [x] (instance? clojure.lang.IFn x))
 //---
-(function __clojure_fn_5855(){
-return (clojure.JS.def(clojure,"fn_QMARK_",(function __clojure_fn_5855_fn_QMARK_5857(x_1){
+(function __clojure_fn_5802(){
+return (clojure.JS.def(clojure,"fn_QMARK_",(function __clojure_fn_5802_fn_QMARK_5804(x_1){
 return (clojure.instance_QMARK_.apply(null,[clojure.lang.IFn,x_1]))})))}).apply(null,[]);
 // Skipping: (defn integer? "Returns true if n is an integer" [n] (or (instance? Integer n) (instance? Long n) (instance? BigInteger n)))
 
 //======
 //(defn ratio? "Returns true if n is a Ratio" [n] (instance? clojure.lang.Ratio n))
 //---
-(function __clojure_fn_5867(){
-return (clojure.JS.def(clojure,"ratio_QMARK_",(function __clojure_fn_5867_ratio_QMARK_5869(n_1){
+(function __clojure_fn_5814(){
+return (clojure.JS.def(clojure,"ratio_QMARK_",(function __clojure_fn_5814_ratio_QMARK_5816(n_1){
 return (clojure.instance_QMARK_.apply(null,[clojure.lang.Ratio,n_1]))})))}).apply(null,[]);
 // Skipping: (defn decimal? "Returns true if n is a BigDecimal" [n] (instance? BigDecimal n))
 // Skipping: (defn float? "Returns true if n is a floating point number" [n] (or (instance? Double n) (instance? Float n)))
@@ -2794,9 +2746,9 @@ return (clojure.instance_QMARK_.apply(null,[clojure.lang.Ratio,n_1]))})))}).appl
 //======
 //(defn rational? [n] "Returns true if n is a rational number" (or (integer? n) (ratio? n) (decimal? n)))
 //---
-(function __clojure_fn_5885(){
-return (clojure.JS.def(clojure,"rational_QMARK_",(function __clojure_fn_5885_rational_QMARK_5887(n_1){
-var or__202_2,or__202_3;
+(function __clojure_fn_5832(){
+return (clojure.JS.def(clojure,"rational_QMARK_",(function __clojure_fn_5832_rational_QMARK_5834(n_1){
+var or__202_3,or__202_2;
 return ("Returns true if n is a rational number",
 ((or__202_2=clojure.integer_QMARK_.apply(null,[n_1])),
 ((or__202_2)?(or__202_2):(((or__202_3=clojure.ratio_QMARK_.apply(null,[n_1])),
@@ -2805,119 +2757,119 @@ return ("Returns true if n is a rational number",
 //======
 //(defn associative? "Returns true if coll implements Associative" [coll] (instance? clojure.lang.Associative coll))
 //---
-(function __clojure_fn_5891(){
-return (clojure.JS.def(clojure,"associative_QMARK_",(function __clojure_fn_5891_associative_QMARK_5893(coll_1){
+(function __clojure_fn_5838(){
+return (clojure.JS.def(clojure,"associative_QMARK_",(function __clojure_fn_5838_associative_QMARK_5840(coll_1){
 return (clojure.instance_QMARK_.apply(null,[clojure.lang.Associative,coll_1]))})))}).apply(null,[]);
 
 //======
 //(defn sequential? "Returns true if coll implements Sequential" [coll] (instance? clojure.lang.Sequential coll))
 //---
-(function __clojure_fn_5897(){
-return (clojure.JS.def(clojure,"sequential_QMARK_",(function __clojure_fn_5897_sequential_QMARK_5899(coll_1){
+(function __clojure_fn_5844(){
+return (clojure.JS.def(clojure,"sequential_QMARK_",(function __clojure_fn_5844_sequential_QMARK_5846(coll_1){
 return (clojure.instance_QMARK_.apply(null,[clojure.lang.Sequential,coll_1]))})))}).apply(null,[]);
 
 //======
 //(defn sorted? "Returns true if coll implements Sorted" [coll] (instance? clojure.lang.Sorted coll))
 //---
-(function __clojure_fn_5903(){
-return (clojure.JS.def(clojure,"sorted_QMARK_",(function __clojure_fn_5903_sorted_QMARK_5905(coll_1){
+(function __clojure_fn_5850(){
+return (clojure.JS.def(clojure,"sorted_QMARK_",(function __clojure_fn_5850_sorted_QMARK_5852(coll_1){
 return (clojure.instance_QMARK_.apply(null,[clojure.lang.Sorted,coll_1]))})))}).apply(null,[]);
 
 //======
 //(defn reversible? "Returns true if coll implements Reversible" [coll] (instance? clojure.lang.Reversible coll))
 //---
-(function __clojure_fn_5909(){
-return (clojure.JS.def(clojure,"reversible_QMARK_",(function __clojure_fn_5909_reversible_QMARK_5911(coll_1){
+(function __clojure_fn_5856(){
+return (clojure.JS.def(clojure,"reversible_QMARK_",(function __clojure_fn_5856_reversible_QMARK_5858(coll_1){
 return (clojure.instance_QMARK_.apply(null,[clojure.lang.Reversible,coll_1]))})))}).apply(null,[]);
-// Skipping: (defn pmap "Like map, except f is applied in parallel. Semi-lazy in that the\n  parallel computation stays ahead of the consumption, but doesn't\n  realize the entire result unless required. Only useful for\n  computationally intensive functions where the time of f dominates\n  the coordination overhead." ([f coll] (let [n (inc (.. Runtime getRuntime availableProcessors)) agents (doall (map (fn* [p1__5915] (agent (f p1__5915))) (take n coll))) wget (fn [a] (await1 a) (clojure/deref a)) step (fn step [[x & xs :as s] [a & as :as acycle]] (if s (let [v (wget a)] (send a (fn [_] (f x))) (lazy-cons v (step xs as))) (map wget (take (count agents) acycle))))] (step (drop n coll) (cycle agents)))) ([f coll & colls] (let [step (fn step [cs] (when (every? seq cs) (lazy-cons (map first cs) (step (map rest cs)))))] (pmap (fn* [p1__5916] (apply f p1__5916)) (step (cons coll colls))))))
+// Skipping: (defn pmap "Like map, except f is applied in parallel. Semi-lazy in that the\n  parallel computation stays ahead of the consumption, but doesn't\n  realize the entire result unless required. Only useful for\n  computationally intensive functions where the time of f dominates\n  the coordination overhead." ([f coll] (let [n (inc (.. Runtime getRuntime availableProcessors)) agents (doall (map (fn* [p1__5862] (agent (f p1__5862))) (take n coll))) wget (fn [a] (await1 a) (clojure/deref a)) step (fn step [[x & xs :as s] [a & as :as acycle]] (if s (let [v (wget a)] (send a (fn [_] (f x))) (lazy-cons v (step xs as))) (map wget (take (count agents) acycle))))] (step (drop n coll) (cycle agents)))) ([f coll & colls] (let [step (fn step [cs] (when (every? seq cs) (lazy-cons (map first cs) (step (map rest cs)))))] (pmap (fn* [p1__5863] (apply f p1__5863)) (step (cons coll colls))))))
 
 //======
 //(def *1)
 //---
-(function __clojure_fn_5954(){
+(function __clojure_fn_5901(){
 return (clojure.JS.def(clojure,"_STAR_1",null))}).apply(null,[]);
 
 //======
 //(def *2)
 //---
-(function __clojure_fn_5957(){
+(function __clojure_fn_5904(){
 return (clojure.JS.def(clojure,"_STAR_2",null))}).apply(null,[]);
 
 //======
 //(def *3)
 //---
-(function __clojure_fn_5960(){
+(function __clojure_fn_5907(){
 return (clojure.JS.def(clojure,"_STAR_3",null))}).apply(null,[]);
 
 //======
 //(def *e)
 //---
-(function __clojure_fn_5963(){
+(function __clojure_fn_5910(){
 return (clojure.JS.def(clojure,"_STAR_e",null))}).apply(null,[]);
 
 //======
 //(import (quote (java.io Writer)))
 //---
-(function __clojure_fn_5966(){
-return (clojure.import_.apply(null,[clojure.JS.lit_list(["'java.io","'Writer"])]))}).apply(null,[]);
+(function __clojure_fn_5913(){
+return (clojure.import_.apply(null,[clojure.JS.lit_list([clojure.symbol("java.io"),clojure.symbol("Writer")])]))}).apply(null,[]);
 
 //======
 //(def *print-length* nil)
 //---
-(function __clojure_fn_5969(){
+(function __clojure_fn_5916(){
 return (clojure.JS.def(clojure,"_STAR_print_length_STAR_",null))}).apply(null,[]);
 
 //======
 //(def *print-level* nil)
 //---
-(function __clojure_fn_5972(){
+(function __clojure_fn_5919(){
 return (clojure.JS.def(clojure,"_STAR_print_level_STAR_",null))}).apply(null,[]);
 
 //======
 //(defn- print-sequential [begin print-one sep end sequence w] (binding [*print-level* (and *print-level* (dec *print-level*))] (if (and *print-level* (neg? *print-level*)) (.write w "#") (do (.write w begin) (when-let xs (seq sequence) (if *print-length* (loop [[x & xs] xs print-length *print-length*] (if (zero? print-length) (.write w "...") (do (print-one x w) (when xs (.write w sep) (recur xs (dec print-length)))))) (loop [[x & xs] xs] (print-one x w) (when xs (.write w sep) (recur xs))))) (.write w end)))))
 //---
-(function __clojure_fn_5975(){
-return (clojure.JS.def(clojure,"print_sequential",(function __clojure_fn_5975_print_sequential_5977(begin_1,print_one_2,sep_3,end_4,sequence_5,w_6){
-var and__196_7,xs_10,vec__5981_12,x_13,temp__1455_9,xs_18,x_13,x_19,vec__5982_18,G__5984_15,G__5984_11,xs_14,print_length_15,and__196_9,G__5980_16,print_length_21,G__5980_11,print_length_17,vec__5986_16,xs_14,vec__5985_12,x_17,xs_20;
+(function __clojure_fn_5922(){
+return (clojure.JS.def(clojure,"print_sequential",(function __clojure_fn_5922_print_sequential_5924(begin_1,print_one_2,sep_3,end_4,sequence_5,w_6){
+var xs_18,G__5931_11,vec__5929_18,print_length_17,x_13,xs_14,and__196_9,vec__5933_16,G__5927_11,xs_20,print_length_15,vec__5928_12,and__196_7,x_19,x_13,xs_14,vec__5932_12,G__5927_16,xs_10,print_length_21,x_17,temp__1455_9,G__5931_15;
 return (clojure.lang.Var.pushThreadBindings(clojure.hash_map.apply(null,[clojure._var__STAR_print_level_STAR_,((and__196_7=clojure._STAR_print_level_STAR_),
 ((and__196_7)?(clojure.lang.Numbers.dec(clojure._STAR_print_level_STAR_)):(and__196_7)))])),
 (function __try(){try{var _rtn=(((((and__196_9=clojure._STAR_print_level_STAR_),
 ((and__196_9)?(clojure.lang.Numbers.isNeg(clojure._STAR_print_level_STAR_)):(and__196_9))))?((w_6).write("#")):((w_6).write(begin_1),
 ((temp__1455_9=clojure.seq.apply(null,[sequence_5])),
 ((temp__1455_9)?(((xs_10=temp__1455_9),
-((clojure._STAR_print_length_STAR_)?(((G__5980_11=xs_10),
-(vec__5981_12=G__5980_11),
-(x_13=clojure.nth.apply(null,[vec__5981_12,(0),null])),
-(xs_14=clojure.nthrest.apply(null,[vec__5981_12,(1)])),
+((clojure._STAR_print_length_STAR_)?(((G__5927_11=xs_10),
+(vec__5928_12=G__5927_11),
+(x_13=clojure.nth.apply(null,[vec__5928_12,(0),null])),
+(xs_14=clojure.nthrest.apply(null,[vec__5928_12,(1)])),
 (print_length_15=clojure._STAR_print_length_STAR_),
-((function __loop(){var _rtn,_cnt;(G__5980_16=G__5980_11),
+((function __loop(){var _rtn,_cnt;(G__5927_16=G__5927_11),
 (print_length_17=print_length_15);do{_cnt=0;
-_rtn=((vec__5982_18=G__5980_16),
-(x_19=clojure.nth.apply(null,[vec__5982_18,(0),null])),
-(xs_20=clojure.nthrest.apply(null,[vec__5982_18,(1)])),
+_rtn=((vec__5929_18=G__5927_16),
+(x_19=clojure.nth.apply(null,[vec__5929_18,(0),null])),
+(xs_20=clojure.nthrest.apply(null,[vec__5929_18,(1)])),
 (print_length_21=print_length_17),
 ((clojure.lang.Numbers.isZero(print_length_21))?((w_6).write("...")):(print_one_2.apply(null,[x_19,w_6]),
 ((xs_20)?((w_6).write(sep_3),
-(_cnt=1,_rtn=[xs_20,clojure.lang.Numbers.dec(print_length_21)],G__5980_16=_rtn[0],print_length_17=_rtn[1])):(null)))))}while(_cnt);return _rtn;})()))):(((G__5984_11=xs_10),
-(vec__5985_12=G__5984_11),
-(x_13=clojure.nth.apply(null,[vec__5985_12,(0),null])),
-(xs_14=clojure.nthrest.apply(null,[vec__5985_12,(1)])),
-((function __loop(){var _rtn,_cnt;(G__5984_15=G__5984_11);do{_cnt=0;
-_rtn=((vec__5986_16=G__5984_15),
-(x_17=clojure.nth.apply(null,[vec__5986_16,(0),null])),
-(xs_18=clojure.nthrest.apply(null,[vec__5986_16,(1)])),
+(_cnt=1,_rtn=[xs_20,clojure.lang.Numbers.dec(print_length_21)],G__5927_16=_rtn[0],print_length_17=_rtn[1])):(null)))))}while(_cnt);return _rtn;})()))):(((G__5931_11=xs_10),
+(vec__5932_12=G__5931_11),
+(x_13=clojure.nth.apply(null,[vec__5932_12,(0),null])),
+(xs_14=clojure.nthrest.apply(null,[vec__5932_12,(1)])),
+((function __loop(){var _rtn,_cnt;(G__5931_15=G__5931_11);do{_cnt=0;
+_rtn=((vec__5933_16=G__5931_15),
+(x_17=clojure.nth.apply(null,[vec__5933_16,(0),null])),
+(xs_18=clojure.nthrest.apply(null,[vec__5933_16,(1)])),
 print_one_2.apply(null,[x_17,w_6]),
 ((xs_18)?((w_6).write(sep_3),
-(_cnt=1,_rtn=[xs_18],G__5984_15=_rtn[0])):(null)))}while(_cnt);return _rtn;})())))))):(null))),
+(_cnt=1,_rtn=[xs_18],G__5931_15=_rtn[0])):(null)))}while(_cnt);return _rtn;})())))))):(null))),
 (w_6).write(end_4))))}
 finally{clojure.lang.Var.popThreadBindings()}return _rtn})())})))}).apply(null,[]);
 
 //======
 //(defn- print-meta [o w] (when-let m (meta o) (when (and *print-meta* *print-readably* (pos? (count m))) (.write w "#^") (if (and (= (count m) 1) (:tag m)) (print-method (:tag m) w) (print-method m w)) (.write w " "))))
 //---
-(function __clojure_fn_5989(){
-return (clojure.JS.def(clojure,"print_meta",(function __clojure_fn_5989_print_meta_5991(o_1,w_2){
-var and__196_5,temp__1455_3,m_4,and__196_5,and__196_6;
+(function __clojure_fn_5936(){
+return (clojure.JS.def(clojure,"print_meta",(function __clojure_fn_5936_print_meta_5938(o_1,w_2){
+var temp__1455_3,and__196_5,and__196_6,m_4,and__196_5;
 return (((temp__1455_3=clojure.meta.apply(null,[o_1])),
 ((temp__1455_3)?(((m_4=temp__1455_3),
 ((((and__196_5=clojure._STAR_print_meta_STAR_),
@@ -2930,15 +2882,15 @@ return (((temp__1455_3=clojure.meta.apply(null,[o_1])),
 //======
 //(defmethod print-method nil [o w] (.write w "nil"))
 //---
-(function __clojure_fn_5995(){
-return ((clojure.print_method).addMethod(null,(function __clojure_fn_5995_fn_5997(o_1,w_2){
+(function __clojure_fn_5942(){
+return ((clojure.print_method).addMethod(null,(function __clojure_fn_5942_fn_5944(o_1,w_2){
 return ((w_2).write("nil"))})))}).apply(null,[]);
 
 //======
 //(defn print-ctor [o print-args w] (.write w "#=(") (.write w (RT/className (class o))) (.write w ". ") (print-args o w) (.write w ")"))
 //---
-(function __clojure_fn_6001(){
-return (clojure.JS.def(clojure,"print_ctor",(function __clojure_fn_6001_print_ctor_6003(o_1,print_args_2,w_3){
+(function __clojure_fn_5948(){
+return (clojure.JS.def(clojure,"print_ctor",(function __clojure_fn_5948_print_ctor_5950(o_1,print_args_2,w_3){
 return ((w_3).write("#=("),
 (w_3).write(clojure.lang.RT.className(clojure.class_.apply(null,[o_1]))),
 (w_3).write(". "),
@@ -2946,104 +2898,105 @@ print_args_2.apply(null,[o_1,w_3]),
 (w_3).write(")"))})))}).apply(null,[]);
 
 //======
-//(defmethod print-method :default [o w] (print-ctor o (fn* [p1__6007 p2__6008] (print-method (str p1__6007) p2__6008)) w))
+//(defmethod print-method :default [o w] (.write w "#<") (.write w (str o)) (.write w ">"))
 //---
-(function __clojure_fn_6009(){
-return ((clojure.print_method).addMethod(clojure.keyword("","default"),(function __clojure_fn_6009_fn_6011(o_1,w_2){
-return (clojure.print_ctor.apply(null,[o_1,(function __clojure_fn_6009_fn_6011_fn_6013(p1__6007_1,p2__6008_2){
-return (clojure.print_method.apply(null,[clojure.str.apply(null,[p1__6007_1]),p2__6008_2]))}),w_2]))})))}).apply(null,[]);
+(function __clojure_fn_5954(){
+return ((clojure.print_method).addMethod(clojure.keyword("","default"),(function __clojure_fn_5954_fn_5956(o_1,w_2){
+return ((w_2).write("#<"),
+(w_2).write(clojure.str.apply(null,[o_1])),
+(w_2).write(">"))})))}).apply(null,[]);
 
 //======
 //(defmethod print-method clojure.lang.Keyword [o w] (.write w (str o)))
 //---
-(function __clojure_fn_6018(){
-return ((clojure.print_method).addMethod(clojure.lang.Keyword,(function __clojure_fn_6018_fn_6020(o_1,w_2){
+(function __clojure_fn_5960(){
+return ((clojure.print_method).addMethod(clojure.lang.Keyword,(function __clojure_fn_5960_fn_5962(o_1,w_2){
 return ((w_2).write(clojure.str.apply(null,[o_1])))})))}).apply(null,[]);
 
 //======
 //(defmethod print-method Number [o w] (.write w (str o)))
 //---
-(function __clojure_fn_6024(){
-return ((clojure.print_method).addMethod(java.lang.Number,(function __clojure_fn_6024_fn_6026(o_1,w_2){
+(function __clojure_fn_5966(){
+return ((clojure.print_method).addMethod(java.lang.Number,(function __clojure_fn_5966_fn_5968(o_1,w_2){
 return ((w_2).write(clojure.str.apply(null,[o_1])))})))}).apply(null,[]);
 
 //======
 //(defmethod print-method Boolean [o w] (.write w (str o)))
 //---
-(function __clojure_fn_6030(){
-return ((clojure.print_method).addMethod(java.lang.Boolean,(function __clojure_fn_6030_fn_6032(o_1,w_2){
+(function __clojure_fn_5972(){
+return ((clojure.print_method).addMethod(java.lang.Boolean,(function __clojure_fn_5972_fn_5974(o_1,w_2){
 return ((w_2).write(clojure.str.apply(null,[o_1])))})))}).apply(null,[]);
 
 //======
 //(defn print-simple [o w] (print-meta o w) (.write w (str o)))
 //---
-(function __clojure_fn_6036(){
-return (clojure.JS.def(clojure,"print_simple",(function __clojure_fn_6036_print_simple_6038(o_1,w_2){
+(function __clojure_fn_5978(){
+return (clojure.JS.def(clojure,"print_simple",(function __clojure_fn_5978_print_simple_5980(o_1,w_2){
 return (clojure.print_meta.apply(null,[o_1,w_2]),
 (w_2).write(clojure.str.apply(null,[o_1])))})))}).apply(null,[]);
 
 //======
 //(defmethod print-method clojure.lang.Symbol [o w] (print-simple o w))
 //---
-(function __clojure_fn_6042(){
-return ((clojure.print_method).addMethod(clojure.lang.Symbol,(function __clojure_fn_6042_fn_6044(o_1,w_2){
+(function __clojure_fn_5984(){
+return ((clojure.print_method).addMethod(clojure.lang.Symbol,(function __clojure_fn_5984_fn_5986(o_1,w_2){
 return (clojure.print_simple.apply(null,[o_1,w_2]))})))}).apply(null,[]);
 
 //======
 //(defmethod print-method clojure.lang.Var [o w] (print-simple o w))
 //---
-(function __clojure_fn_6048(){
-return ((clojure.print_method).addMethod(clojure.lang.Var,(function __clojure_fn_6048_fn_6050(o_1,w_2){
+(function __clojure_fn_5990(){
+return ((clojure.print_method).addMethod(clojure.lang.Var,(function __clojure_fn_5990_fn_5992(o_1,w_2){
 return (clojure.print_simple.apply(null,[o_1,w_2]))})))}).apply(null,[]);
 
 //======
 //(defmethod print-method clojure.lang.ISeq [o w] (print-meta o w) (print-sequential "(" print-method " " ")" o w))
 //---
-(function __clojure_fn_6054(){
-return ((clojure.print_method).addMethod(clojure.lang.ISeq,(function __clojure_fn_6054_fn_6056(o_1,w_2){
+(function __clojure_fn_5996(){
+return ((clojure.print_method).addMethod(clojure.lang.ISeq,(function __clojure_fn_5996_fn_5998(o_1,w_2){
 return (clojure.print_meta.apply(null,[o_1,w_2]),
 clojure.print_sequential.apply(null,["(",clojure.print_method," ",")",o_1,w_2]))})))}).apply(null,[]);
 
 //======
 //(defmethod print-method clojure.lang.IPersistentList [o w] (print-meta o w) (print-sequential "(" print-method " " ")" o w))
 //---
-(function __clojure_fn_6060(){
-return ((clojure.print_method).addMethod(clojure.lang.IPersistentList,(function __clojure_fn_6060_fn_6062(o_1,w_2){
+(function __clojure_fn_6002(){
+return ((clojure.print_method).addMethod(clojure.lang.IPersistentList,(function __clojure_fn_6002_fn_6004(o_1,w_2){
 return (clojure.print_meta.apply(null,[o_1,w_2]),
 clojure.print_sequential.apply(null,["(",clojure.print_method," ",")",o_1,w_2]))})))}).apply(null,[]);
 
 //======
 //(prefer-method print-method clojure.lang.IPersistentList clojure.lang.ISeq)
 //---
-(function __clojure_fn_6066(){
+(function __clojure_fn_6008(){
 return ((clojure.print_method).preferMethod(clojure.lang.IPersistentList,clojure.lang.ISeq))}).apply(null,[]);
 
 //======
-//(defmethod print-method java.util.Collection [o w] (print-ctor o (fn* [p1__6069 p2__6070] (print-sequential "[" print-method " " "]" p1__6069 p2__6070)) w))
+//(defmethod print-method java.util.Collection [o w] (print-ctor o (fn* [p1__6011 p2__6012] (print-sequential "[" print-method " " "]" p1__6011 p2__6012)) w))
 //---
-(function __clojure_fn_6071(){
-return ((clojure.print_method).addMethod(java.util.Collection,(function __clojure_fn_6071_fn_6073(o_1,w_2){
-return (clojure.print_ctor.apply(null,[o_1,(function __clojure_fn_6071_fn_6073_fn_6075(p1__6069_1,p2__6070_2){
-return (clojure.print_sequential.apply(null,["[",clojure.print_method," ","]",p1__6069_1,p2__6070_2]))}),w_2]))})))}).apply(null,[]);
+(function __clojure_fn_6013(){
+return ((clojure.print_method).addMethod(java.util.Collection,(function __clojure_fn_6013_fn_6015(o_1,w_2){
+return (clojure.print_ctor.apply(null,[o_1,(function __clojure_fn_6013_fn_6015_fn_6017(p1__6011_1,p2__6012_2){
+return (clojure.print_sequential.apply(null,["[",clojure.print_method," ","]",p1__6011_1,p2__6012_2]))}),w_2]))})))}).apply(null,[]);
 
 //======
 //(prefer-method print-method clojure.lang.IPersistentCollection java.util.Collection)
 //---
-(function __clojure_fn_6080(){
+(function __clojure_fn_6022(){
 return ((clojure.print_method).preferMethod(clojure.lang.IPersistentCollection,java.util.Collection))}).apply(null,[]);
 
 //======
 //(def char-escape-string {\" "\\\"", \backspace "\\b", \tab "\\t", \newline "\\n", \formfeed "\\f", \return "\\r", \\ "\\\\"})
 //---
-(function __clojure_fn_6083(){
+(function __clojure_fn_6025(){
 return (clojure.JS.def(clojure,"char_escape_string",clojure.hash_map("\"","\\\"","\b","\\b","\t","\\t","\n","\\n","\f","\\f","\r","\\r","\\","\\\\")))}).apply(null,[]);
 
 //======
 //(defmethod print-method String [s w] (if *print-readably* (do (.append w \") (dotimes n (count s) (let [c (.charAt s n) e (char-escape-string c)] (if e (.write w e) (.append w c)))) (.append w \")) (.write w s)) nil)
 //---
-(function __clojure_fn_6086(){
-return ((clojure.print_method).addMethod(java.lang.String,(function __clojure_fn_6086_fn_6088(s_1,w_2){
-var n_4,n__827_3,c_5,e_6;
+(function __clojure_fn_6028(){
+return ((clojure.print_method).addMethod(java.lang.String,(function __clojure_fn_6028_fn_6030(s_1,w_2){
+var e_6,n__827_3,c_5,n_4;
 return (((clojure._STAR_print_readably_STAR_)?((w_2).append("\""),
 ((n__827_3=clojure.lang.RT.intCast(clojure.count.apply(null,[s_1]))),
 ((function __loop(){var _rtn,_cnt;(n_4=clojure.lang.RT.intCast((0)));do{_cnt=0;
@@ -3057,66 +3010,66 @@ null)})))}).apply(null,[]);
 //======
 //(defmethod print-method clojure.lang.IPersistentVector [v w] (print-meta v w) (print-sequential "[" print-method " " "]" v w))
 //---
-(function __clojure_fn_6092(){
-return ((clojure.print_method).addMethod(clojure.lang.IPersistentVector,(function __clojure_fn_6092_fn_6094(v_1,w_2){
+(function __clojure_fn_6034(){
+return ((clojure.print_method).addMethod(clojure.lang.IPersistentVector,(function __clojure_fn_6034_fn_6036(v_1,w_2){
 return (clojure.print_meta.apply(null,[v_1,w_2]),
 clojure.print_sequential.apply(null,["[",clojure.print_method," ","]",v_1,w_2]))})))}).apply(null,[]);
 
 //======
 //(defmethod print-method clojure.lang.IPersistentMap [m w] (print-meta m w) (print-sequential "{" (fn [e w] (do (print-method (key e) w) (.append w \space) (print-method (val e) w))) ", " "}" (seq m) w))
 //---
-(function __clojure_fn_6098(){
-return ((clojure.print_method).addMethod(clojure.lang.IPersistentMap,(function __clojure_fn_6098_fn_6100(m_1,w_2){
+(function __clojure_fn_6040(){
+return ((clojure.print_method).addMethod(clojure.lang.IPersistentMap,(function __clojure_fn_6040_fn_6042(m_1,w_2){
 return (clojure.print_meta.apply(null,[m_1,w_2]),
-clojure.print_sequential.apply(null,["{",(function __clojure_fn_6098_fn_6100_fn_6102(e_1,w_2){
+clojure.print_sequential.apply(null,["{",(function __clojure_fn_6040_fn_6042_fn_6044(e_1,w_2){
 return (clojure.print_method.apply(null,[clojure.key.apply(null,[e_1]),w_2]),
 (w_2).append(" "),
 clojure.print_method.apply(null,[clojure.val.apply(null,[e_1]),w_2]))}),", ","}",clojure.seq.apply(null,[m_1]),w_2]))})))}).apply(null,[]);
 
 //======
-//(defmethod print-method java.util.Map [m w] (print-ctor m (fn* [p1__6107 p2__6108] (print-sequential "{" (fn [e w] (do (print-method (key e) w) (.append w \space) (print-method (val e) w))) ", " "}" (seq p1__6107) p2__6108)) w))
+//(defmethod print-method java.util.Map [m w] (print-ctor m (fn* [p1__6049 p2__6050] (print-sequential "{" (fn [e w] (do (print-method (key e) w) (.append w \space) (print-method (val e) w))) ", " "}" (seq p1__6049) p2__6050)) w))
 //---
-(function __clojure_fn_6109(){
-return ((clojure.print_method).addMethod(java.util.Map,(function __clojure_fn_6109_fn_6111(m_1,w_2){
-return (clojure.print_ctor.apply(null,[m_1,(function __clojure_fn_6109_fn_6111_fn_6113(p1__6107_1,p2__6108_2){
-return (clojure.print_sequential.apply(null,["{",(function __clojure_fn_6109_fn_6111_fn_6113_fn_6115(e_1,w_2){
+(function __clojure_fn_6051(){
+return ((clojure.print_method).addMethod(java.util.Map,(function __clojure_fn_6051_fn_6053(m_1,w_2){
+return (clojure.print_ctor.apply(null,[m_1,(function __clojure_fn_6051_fn_6053_fn_6055(p1__6049_1,p2__6050_2){
+return (clojure.print_sequential.apply(null,["{",(function __clojure_fn_6051_fn_6053_fn_6055_fn_6057(e_1,w_2){
 return (clojure.print_method.apply(null,[clojure.key.apply(null,[e_1]),w_2]),
 (w_2).append(" "),
-clojure.print_method.apply(null,[clojure.val.apply(null,[e_1]),w_2]))}),", ","}",clojure.seq.apply(null,[p1__6107_1]),p2__6108_2]))}),w_2]))})))}).apply(null,[]);
+clojure.print_method.apply(null,[clojure.val.apply(null,[e_1]),w_2]))}),", ","}",clojure.seq.apply(null,[p1__6049_1]),p2__6050_2]))}),w_2]))})))}).apply(null,[]);
 
 //======
 //(prefer-method print-method clojure.lang.IPersistentMap java.util.Map)
 //---
-(function __clojure_fn_6121(){
+(function __clojure_fn_6063(){
 return ((clojure.print_method).preferMethod(clojure.lang.IPersistentMap,java.util.Map))}).apply(null,[]);
 
 //======
 //(defmethod print-method clojure.lang.IPersistentSet [s w] (print-meta s w) (print-sequential "#{" print-method " " "}" (seq s) w))
 //---
-(function __clojure_fn_6124(){
-return ((clojure.print_method).addMethod(clojure.lang.IPersistentSet,(function __clojure_fn_6124_fn_6126(s_1,w_2){
+(function __clojure_fn_6066(){
+return ((clojure.print_method).addMethod(clojure.lang.IPersistentSet,(function __clojure_fn_6066_fn_6068(s_1,w_2){
 return (clojure.print_meta.apply(null,[s_1,w_2]),
 clojure.print_sequential.apply(null,["#{",clojure.print_method," ","}",clojure.seq.apply(null,[s_1]),w_2]))})))}).apply(null,[]);
 
 //======
-//(defmethod print-method java.util.Set [s w] (print-ctor s (fn* [p1__6130 p2__6131] (print-sequential "#{" print-method " " "}" (seq p1__6130) p2__6131)) w))
+//(defmethod print-method java.util.Set [s w] (print-ctor s (fn* [p1__6072 p2__6073] (print-sequential "#{" print-method " " "}" (seq p1__6072) p2__6073)) w))
 //---
-(function __clojure_fn_6132(){
-return ((clojure.print_method).addMethod(java.util.Set,(function __clojure_fn_6132_fn_6134(s_1,w_2){
-return (clojure.print_ctor.apply(null,[s_1,(function __clojure_fn_6132_fn_6134_fn_6136(p1__6130_1,p2__6131_2){
-return (clojure.print_sequential.apply(null,["#{",clojure.print_method," ","}",clojure.seq.apply(null,[p1__6130_1]),p2__6131_2]))}),w_2]))})))}).apply(null,[]);
+(function __clojure_fn_6074(){
+return ((clojure.print_method).addMethod(java.util.Set,(function __clojure_fn_6074_fn_6076(s_1,w_2){
+return (clojure.print_ctor.apply(null,[s_1,(function __clojure_fn_6074_fn_6076_fn_6078(p1__6072_1,p2__6073_2){
+return (clojure.print_sequential.apply(null,["#{",clojure.print_method," ","}",clojure.seq.apply(null,[p1__6072_1]),p2__6073_2]))}),w_2]))})))}).apply(null,[]);
 
 //======
 //(def char-name-string {\space "space", \backspace "backspace", \tab "tab", \newline "newline", \formfeed "formfeed", \return "return"})
 //---
-(function __clojure_fn_6141(){
+(function __clojure_fn_6083(){
 return (clojure.JS.def(clojure,"char_name_string",clojure.hash_map(" ","space","\b","backspace","\t","tab","\n","newline","\f","formfeed","\r","return")))}).apply(null,[]);
 
 //======
 //(defmethod print-method java.lang.Character [c w] (if *print-readably* (do (.append w \\) (let [n (char-name-string c)] (if n (.write w n) (.append w c)))) (.append w c)) nil)
 //---
-(function __clojure_fn_6144(){
-return ((clojure.print_method).addMethod(java.lang.Character,(function __clojure_fn_6144_fn_6146(c_1,w_2){
+(function __clojure_fn_6086(){
+return ((clojure.print_method).addMethod(java.lang.Character,(function __clojure_fn_6086_fn_6088(c_1,w_2){
 var n_3;
 return (((clojure._STAR_print_readably_STAR_)?((w_2).append("\\"),
 ((n_3=clojure.char_name_string.apply(null,[c_1])),
@@ -3128,46 +3081,46 @@ null)})))}).apply(null,[]);
 //======
 //(defmethod print-method java.math.BigDecimal [b w] (.write w (str b)) (.write w "M"))
 //---
-(function __clojure_fn_6159(){
-return ((clojure.print_method).addMethod(java.math.BigDecimal,(function __clojure_fn_6159_fn_6161(b_1,w_2){
+(function __clojure_fn_6101(){
+return ((clojure.print_method).addMethod(java.math.BigDecimal,(function __clojure_fn_6101_fn_6103(b_1,w_2){
 return ((w_2).write(clojure.str.apply(null,[b_1])),
 (w_2).write("M"))})))}).apply(null,[]);
 
 //======
 //(defmethod print-method java.util.regex.Pattern [p w] (.write w "#\"") (loop [[c & r :as s] (seq (.pattern p)) qmode false] (when s (cond (= c \\) (let [[c2 & r2] r] (.append w \\) (.append w c2) (if qmode (recur r2 (not= c2 \E)) (recur r2 (= c2 \Q)))) (= c \") (do (if qmode (.write w "\\E\\\"\\Q") (.write w "\\\"")) (recur r qmode)) :else (do (.append w c) (recur r qmode))))) (.append w \"))
 //---
-(function __clojure_fn_6165(){
-return ((clojure.print_method).addMethod(java.util.regex.Pattern,(function __clojure_fn_6165_fn_6167(p_1,w_2){
-var r_6,G__6170_9,c_5,qmode_15,s_7,c2_17,vec__6172_11,vec__6171_4,G__6170_3,r_13,s_14,r2_18,vec__6173_16,c_12,qmode_10,qmode_8;
+(function __clojure_fn_6107(){
+return ((clojure.print_method).addMethod(java.util.regex.Pattern,(function __clojure_fn_6107_fn_6109(p_1,w_2){
+var vec__6114_11,r_13,r_6,qmode_10,G__6112_9,G__6112_3,qmode_15,vec__6113_4,c2_17,vec__6115_16,r2_18,c_12,s_7,s_14,c_5,qmode_8;
 return ((w_2).write("#\""),
-((G__6170_3=clojure.seq.apply(null,[(p_1).pattern()])),
-(vec__6171_4=G__6170_3),
-(c_5=clojure.nth.apply(null,[vec__6171_4,(0),null])),
-(r_6=clojure.nthrest.apply(null,[vec__6171_4,(1)])),
-(s_7=vec__6171_4),
+((G__6112_3=clojure.seq.apply(null,[(p_1).pattern()])),
+(vec__6113_4=G__6112_3),
+(c_5=clojure.nth.apply(null,[vec__6113_4,(0),null])),
+(r_6=clojure.nthrest.apply(null,[vec__6113_4,(1)])),
+(s_7=vec__6113_4),
 (qmode_8=false),
-((function __loop(){var _rtn,_cnt;(G__6170_9=G__6170_3),
+((function __loop(){var _rtn,_cnt;(G__6112_9=G__6112_3),
 (qmode_10=qmode_8);do{_cnt=0;
-_rtn=((vec__6172_11=G__6170_9),
-(c_12=clojure.nth.apply(null,[vec__6172_11,(0),null])),
-(r_13=clojure.nthrest.apply(null,[vec__6172_11,(1)])),
-(s_14=vec__6172_11),
+_rtn=((vec__6114_11=G__6112_9),
+(c_12=clojure.nth.apply(null,[vec__6114_11,(0),null])),
+(r_13=clojure.nthrest.apply(null,[vec__6114_11,(1)])),
+(s_14=vec__6114_11),
 (qmode_15=qmode_10),
-((s_14)?(((clojure.lang.Util.equal(c_12,"\\"))?(((vec__6173_16=r_13),
-(c2_17=clojure.nth.apply(null,[vec__6173_16,(0),null])),
-(r2_18=clojure.nthrest.apply(null,[vec__6173_16,(1)])),
+((s_14)?(((clojure.lang.Util.equal(c_12,"\\"))?(((vec__6115_16=r_13),
+(c2_17=clojure.nth.apply(null,[vec__6115_16,(0),null])),
+(r2_18=clojure.nthrest.apply(null,[vec__6115_16,(1)])),
 (w_2).append("\\"),
 (w_2).append(c2_17),
-((qmode_15)?((_cnt=1,_rtn=[r2_18,clojure.not_EQ_.apply(null,[c2_17,"E"])],G__6170_9=_rtn[0],qmode_10=_rtn[1])):((_cnt=1,_rtn=[r2_18,clojure.lang.Util.equal(c2_17,"Q")],G__6170_9=_rtn[0],qmode_10=_rtn[1]))))):(((clojure.lang.Util.equal(c_12,"\""))?(((qmode_15)?((w_2).write("\\E\\\"\\Q")):((w_2).write("\\\""))),
-(_cnt=1,_rtn=[r_13,qmode_15],G__6170_9=_rtn[0],qmode_10=_rtn[1])):(((clojure.keyword("","else"))?((w_2).append(c_12),
-(_cnt=1,_rtn=[r_13,qmode_15],G__6170_9=_rtn[0],qmode_10=_rtn[1])):(null))))))):(null)))}while(_cnt);return _rtn;})())),
+((qmode_15)?((_cnt=1,_rtn=[r2_18,clojure.not_EQ_.apply(null,[c2_17,"E"])],G__6112_9=_rtn[0],qmode_10=_rtn[1])):((_cnt=1,_rtn=[r2_18,clojure.lang.Util.equal(c2_17,"Q")],G__6112_9=_rtn[0],qmode_10=_rtn[1]))))):(((clojure.lang.Util.equal(c_12,"\""))?(((qmode_15)?((w_2).write("\\E\\\"\\Q")):((w_2).write("\\\""))),
+(_cnt=1,_rtn=[r_13,qmode_15],G__6112_9=_rtn[0],qmode_10=_rtn[1])):(((clojure.keyword("","else"))?((w_2).append(c_12),
+(_cnt=1,_rtn=[r_13,qmode_15],G__6112_9=_rtn[0],qmode_10=_rtn[1])):(null))))))):(null)))}while(_cnt);return _rtn;})())),
 (w_2).append("\""))})))}).apply(null,[]);
 
 //======
 //(defmethod print-method clojure.lang.Namespace [n w] (.write w "#=(find-ns ") (print-method (.name n) w) (.write w ")"))
 //---
-(function __clojure_fn_6176(){
-return ((clojure.print_method).addMethod(clojure.lang.Namespace,(function __clojure_fn_6176_fn_6178(n_1,w_2){
+(function __clojure_fn_6118(){
+return ((clojure.print_method).addMethod(clojure.lang.Namespace,(function __clojure_fn_6118_fn_6120(n_1,w_2){
 return ((w_2).write("#=(find-ns "),
 clojure.print_method.apply(null,[clojure.JS.getOrRun(n_1,"name"),w_2]),
 (w_2).write(")"))})))}).apply(null,[]);
@@ -3175,6 +3128,6 @@ clojure.print_method.apply(null,[clojure.JS.getOrRun(n_1,"name"),w_2]),
 //======
 //(def print-initialized true)
 //---
-(function __clojure_fn_6182(){
+(function __clojure_fn_6124(){
 return (clojure.JS.def(clojure,"print_initialized",true))}).apply(null,[]);
-// Skipping: (defmacro declare "defs the supplied var names with no bindings, useful for making forward declarations." [& names] (clojure/concat (clojure/list (quote do)) (map (fn* [p1__6185] (list (quote def) p1__6185)) names)))
+// Skipping: (defmacro declare "defs the supplied var names with no bindings, useful for making forward declarations." [& names] (clojure/concat (clojure/list (quote do)) (map (fn* [p1__6127] (list (quote def) p1__6127)) names)))
diff --git a/clojurescript/clj.js b/clojurescript/clj.js
index 8f754a58..2c2b8fcb 100644
--- a/clojurescript/clj.js
+++ b/clojurescript/clj.js
@@ -27,7 +27,7 @@ clojure = {
   },
   lang: {
     Namespace: function( n, m ) {
-      this.name = n;
+      this.name = n; // FIXME: this pollutes the namespace
       clojure.JS.merge( this, m || {} );
     }
   }
@@ -45,7 +45,7 @@ if( ! clojure.JS.global["java"] ) {
 
 clojure = new clojure.lang.Namespace("clojure",{
   in_ns: function(s) {
-    var i, nsparts = s.substring(1).split('.'),
+    var i, nsparts = s.getName().split('.'),
         base = clojure.JS.global;
     for( i = 0; i < nsparts.length; ++i ) {
       if( ! base[nsparts[i]] ) {
@@ -211,9 +211,14 @@ clojure = new clojure.lang.Namespace("clojure",{
   },
   keyword: function(a,b) {
     if( b === undefined )
-      return clojure.lang.Keyword.intern( "", a );
+      return clojure.lang.Keyword.intern( null, a );
     return clojure.lang.Keyword.intern( a, b );
   },
+  symbol: function(a,b) {
+    if( b === undefined )
+      return clojure.lang.Symbol.intern( null, a );
+    return clojure.lang.Symbol.intern( a, b );
+  },
   assoc: function( coll, key, val ) {
     if( coll === null )
       return new clojure.lang.PersistentArrayMap([key, val]);
@@ -488,8 +493,6 @@ clojure.JS.defclass( clojure.JS, "String", {
   }
 });
 
-clojure.JS.defclass( clojure.lang, "Symbol", {});
-
 clojure.JS.definterface( clojure.lang, "IObj" );
 
 clojure.JS.defclass( clojure.lang, "Obj", {
@@ -721,7 +724,7 @@ clojure.JS.defclass( clojure.lang, "Keyword", {
   statics: {
     table: {},
     intern: function( ns, name ) {
-      var key = ns + "/" + name,
+      var key = (ns || "") + "/" + name,
           obj = clojure.lang.Keyword.table[ key ];
       if( obj )
         return obj;
@@ -756,6 +759,51 @@ clojure.JS.defclass( clojure.lang, "Keyword", {
   }
 });
 
+clojure.JS.defclass( clojure.lang, "Symbol", {
+  extend: clojure.lang.AFn,
+  implement: [clojure.lang.Named],
+  init: function( ns, name ) {
+    this._ns = ns;
+    this._name = name;
+  },
+  statics: {
+    table: {},
+    intern: function( ns, name ) {
+      var key = (ns || "") + "/" + name,
+          obj = clojure.lang.Symbol.table[ key ];
+      if( obj )
+        return obj;
+      return clojure.lang.Symbol.table[ key ] =
+        new clojure.lang.Symbol( ns, name );
+    }
+  },
+  methods: {
+    toString: function() {
+      return (this.ns ? this.ns+"/" : "") + this._name;
+    },
+    compareTo: function(o) {
+      if( this == o )
+        return 0;
+      if( this._ns === null && o._ns !== null )
+        return -1;
+      if( this._ns !== null ) {
+        if( o._ns === null )
+          return 1;
+        var nsc = clojure.JS.compare(this._ns, o._ns);
+        if( nsc !== 0 )
+          return nsc;
+      }
+      return clojure.JS.compare(this._name, o._name);
+    },
+    getNamespace: function() { return this._ns; },
+    getName: function() { return this._name; },
+    hashCode: function() {
+      return clojure.lang.Util.hash( this._ns + "/" + this._name );
+    },
+    invoke: function(coll, notFound) { return clojure.get( coll,this,notFound);}
+  }
+});
+
 
 clojure.JS.definterface( clojure.lang, "IPersistentList",
     [clojure.lang.Sequential, clojure.lang.IPersistentStack] );
@@ -1963,7 +2011,7 @@ clojure.JS.def(clojure,"_STAR_print_readably_STAR_",true);
 clojure.JS.implement( clojure.lang.Namespace, "Namespace" );
 
 clojure.lang.Namespace.find = function( s ) {
-  return clojure.JS.global[ s.substring(1) ];
+  return clojure.JS.global[ s.getName() ];
 };
 
 clojure.JS.merge( clojure.lang.Namespace.prototype, {
@@ -1971,7 +2019,7 @@ clojure.JS.merge( clojure.lang.Namespace.prototype, {
   hashCode: function() { return clojure.hash( this.name ); }
 });
 
-clojure.in_ns("'user");
+clojure.in_ns(clojure.symbol("user"));
 
 (function() {
   var buf = [];
diff --git a/clojurescript/repl.cljs b/clojurescript/repl.cljs
new file mode 100644
index 00000000..bb087015
--- /dev/null
+++ b/clojurescript/repl.cljs
@@ -0,0 +1,74 @@
+(ns jsrepl)
+
+(def append-dom)
+
+(defn dom [o]
+  (if (coll? o)
+    (let [[tag attrs & body] o]
+      (cond
+        (coll? tag) (mapcat dom o)
+        (keyword? tag)
+          (let [elem (.createElement document (name tag))]
+            (when (map? attrs)
+              (doseq [k v] attrs
+                (.setAttribute elem (name k) v)))
+            [(append-dom elem (if (map? attrs) body (cons attrs body)))])
+        :else (lazy-cons (.createTextNode document (str (first o)))
+                         (dom (rest o)))))
+    [(.createTextNode document (str o))]))
+
+(defn append-dom [parent v]
+  (doseq i (dom v)
+    (.appendChild parent i))
+  parent)
+
+(def elems)
+
+(defn repl-print [text]
+  (let [log (:log elems)]
+    (doseq line (.split text #"\n")
+      (append-dom log [:div {:class "cg"} line]))
+    (set! (.scrollTop log) (.scrollHeight log))))
+
+(defn postexpr []
+  (append-dom (:log elems)
+    [:table
+     [:tbody
+      [:tr
+       [:td {:class "cg"} "user=> "]
+       [:td (-> :input elems .value (.replace #"\n$" ""))]]]])
+  (set! (-> :scripts elems .innerHTML) "")
+  (set! (-> :input elems .value) ""))
+
+(defn state [status, msg]
+  (set! (.innerHTML (:status elems)) status)
+  (cond
+    (= status "error") (do (postexpr) (print msg))
+    (= status "compiled") (postexpr)))
+
+(defn err [e]
+  (println e)
+  (set! *e e))
+
+(set! *print-length* 103)
+
+(set! (.onload window) (fn []
+  ; no refs yet, so just re-def
+  (set! elems (into {} (for [n '(log input status scripts)]
+                      [(keyword n) (.getElementById document (str n))])))
+
+  (set! (.print window) repl-print)
+
+  (set! (.onkeypress (:input elems))
+        (fn [e]
+          (let [e (or e event)]
+            (when (== (.keyCode e) 13)
+              (let [s (.createElement document "script")]
+                (set! (.src s) (str "http://localhost:8081/"
+                                    (-> :input elems .value escape
+                                        (.replace #"\+" "%2b"))))
+                (.appendChild (:scripts elems) s))))))
+
+  (println "ClojureScript")
+
+  (.focus (:input elems))))
diff --git a/clojurescript/repl.html b/clojurescript/repl.html
index cae8a119..acad4daa 100644
--- a/clojurescript/repl.html
+++ b/clojurescript/repl.html
@@ -1,69 +1,54 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
+  "http://www.w3.org/TR/html4/strict.dtd">
 <html>
-  <body>
-    <textarea rows="24" cols="80" id="ta"></textarea><br />
-    <span style="font-family: monospace">user=&gt;</span>
-    <textarea id="text" rows="6" cols="80"
-      style="vertical-align: top"></textarea>
-    <div id="status"></div>
-    <!--
-    <form onsubmit="jsrepl.runtest(); return false">
-      <select id="t">
-        <option>t01.js</option>
-        <option>t02.js</option>
-        <option>t03.js</option>
-        <option>t04.js</option>
-        <option>t05.js</option>
-        <option>t06.js</option>
-      </select>
-      <input type="submit" value="Run test" />
-    </form>
-    -->
-    <script type="text/javascript">
-      jsrepl = {
-        ta: document.getElementById( 'ta' ),
-        t: document.getElementById( 't' ),
-        text: document.getElementById( 'text' ),
-        status: document.getElementById( 'status' ),
-        runtest: function() {
-          var s = document.createElement('script');
-          s.src = jsrepl.t.value;
-          document.body.appendChild( s );
-        },
-        posttext: function() {
-          var text = jsrepl.text.value.replace(/\n$/,"");
-          print( "user=> " + text.replace(/\n/g,"\n       "));
-          jsrepl.text.value = "";
-        },
-        err: function(e) {
-          print(e);
-          clojure._var__STAR_e.set(e);
-        },
-        state: function(s,m) {
-          jsrepl.status.innerHTML = s;
-          switch( s ) {
-            case 'error':
-              jsrepl.posttext();
-              print( m );
-              break;
-            case 'compiled':
-              jsrepl.posttext();
-              break;
-          }
-          jsrepl.ta.scrollTop = jsrepl.ta.scrollHeight;
-        }
-      };
-      jsrepl.text.onkeypress = function(e) {
-        e = e || event;
-        if( e.keyCode == 13 ) {
-          var s = document.createElement('script');
-          s.src = "http://localhost:8081/" +
-            escape(jsrepl.text.value).replace(/\+/,'%2b');
-          document.body.appendChild( s );
-        }
-      };
-      function print( x ) { jsrepl.ta.value += x + "\n"; }
-    </script>
+  <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
+  <head>
+    <title>ClojureScript REPL</title>
+    <style type="text/css">
+      body {
+        font-family: Monaco,monospace;
+        font-size: 10pt;
+      }
+      .pad {
+        height: 20em;
+      }
+      #log {
+        height: 20em;
+        overflow: auto;
+        white-space: pre-wrap;
+      }
+      #log table {
+        border-collapse: collapse;
+      }
+      #log td {
+        vertical-align: top;
+        padding: 0;
+      }
+      .ns {
+        float: left;
+      }
+      .cg {
+        color: #00b;
+      }
+      textarea#input {
+        padding: 0;
+        margin: 0;
+        border: none;
+        width: 90%;
+        height: 6em;
+      }
+    </style>
     <script type="text/javascript" src="clj.js"></script>
     <script type="text/javascript" src="boot.js"></script>
+    <script type="text/javascript" src="repl.js"></script>
+  </head>
+  <body>
+    <div id="log">
+      <div class="pad"></div>
+    </div>
+    <div class="ns cg">user=&gt;&nbsp;</div>
+    <textarea id="input"></textarea>
+    <div id="status"></div>
+    <div id="scripts"></div>
   </body>
 </html>
diff --git a/clojurescript/repl.js b/clojurescript/repl.js
new file mode 100644
index 00000000..d05f34d4
--- /dev/null
+++ b/clojurescript/repl.js
@@ -0,0 +1,121 @@
+
+//======
+//(ns jsrepl)
+//---
+(function __user_fn_2877(){
+return (clojure.in_ns.apply(null,[clojure.symbol("jsrepl")]),
+clojure.refer.apply(null,[clojure.symbol("clojure")]))}).apply(null,[]);
+
+//======
+//(def append-dom)
+//---
+(function __jsrepl_fn_2883(){
+return (clojure.JS.def(jsrepl,"append_dom",null))}).apply(null,[]);
+
+//======
+//(defn dom [o] (if (coll? o) (let [[tag attrs & body] o] (cond (coll? tag) (mapcat dom o) (keyword? tag) (let [elem (.createElement document (name tag))] (when (map? attrs) (doseq [k v] attrs (.setAttribute elem (name k) v))) [(append-dom elem (if (map? attrs) body (cons attrs body)))]) :else (lazy-cons (.createTextNode document (str (first o))) (dom (rest o))))) [(.createTextNode document (str o))]))
+//---
+(function __jsrepl_fn_2886(){
+return (clojure.JS.def(jsrepl,"dom",(function __jsrepl_fn_2886_dom_2888(o_1){
+var k_9,attrs_4,vec__2891_8,vec__2890_2,body_5,list__794_7,tag_3,elem_6,v_10;
+return (((clojure.coll_QMARK_.apply(null,[o_1]))?(((vec__2890_2=o_1),
+(tag_3=clojure.nth.apply(null,[vec__2890_2,(0),null])),
+(attrs_4=clojure.nth.apply(null,[vec__2890_2,(1),null])),
+(body_5=clojure.nthrest.apply(null,[vec__2890_2,(2)])),
+((clojure.coll_QMARK_.apply(null,[tag_3]))?(clojure.mapcat.apply(null,[jsrepl.dom,o_1])):(((clojure.keyword_QMARK_.apply(null,[tag_3]))?(((elem_6=(clojure.JS.resolveVar("document",jsrepl)).createElement(clojure.name.apply(null,[tag_3]))),
+((clojure.map_QMARK_.apply(null,[attrs_4]))?(((function __loop(){var _rtn,_cnt;(list__794_7=clojure.seq.apply(null,[attrs_4]));do{_cnt=0;
+_rtn=((list__794_7)?(((vec__2891_8=clojure.first.apply(null,[list__794_7])),
+(k_9=clojure.nth.apply(null,[vec__2891_8,(0),null])),
+(v_10=clojure.nth.apply(null,[vec__2891_8,(1),null])),
+(elem_6).setAttribute(clojure.name.apply(null,[k_9]),v_10)),
+(_cnt=1,_rtn=[clojure.rest.apply(null,[list__794_7])],list__794_7=_rtn[0])):(null))}while(_cnt);return _rtn;})())):(null)),
+clojure.JS.lit_vector([jsrepl.append_dom.apply(null,[elem_6,((clojure.map_QMARK_.apply(null,[attrs_4]))?(body_5):(clojure.cons.apply(null,[attrs_4,body_5])))])]))):(((clojure.keyword("","else"))?((new clojure.lang.LazyCons((function __jsrepl_fn_2886_dom_2888_fn_2893(G__2892_1){switch(arguments.length){
+case 0:return ((clojure.JS.resolveVar("document",jsrepl)).createTextNode(clojure.str.apply(null,[clojure.first.apply(null,[o_1])])))}
+return (jsrepl.dom.apply(null,[clojure.rest.apply(null,[o_1])]))})))):(null)))))))):(clojure.JS.lit_vector([(clojure.JS.resolveVar("document",jsrepl)).createTextNode(clojure.str.apply(null,[o_1]))]))))})))}).apply(null,[]);
+
+//======
+//(defn append-dom [parent v] (doseq i (dom v) (.appendChild parent i)) parent)
+//---
+(function __jsrepl_fn_2899(){
+return (clojure.JS.def(jsrepl,"append_dom",(function __jsrepl_fn_2899_append_dom_2901(parent_1,v_2){
+var i_4,list__794_3;
+return (((function __loop(){var _rtn,_cnt;(list__794_3=clojure.seq.apply(null,[jsrepl.dom.apply(null,[v_2])]));do{_cnt=0;
+_rtn=((list__794_3)?(((i_4=clojure.first.apply(null,[list__794_3])),
+(parent_1).appendChild(i_4)),
+(_cnt=1,_rtn=[clojure.rest.apply(null,[list__794_3])],list__794_3=_rtn[0])):(null))}while(_cnt);return _rtn;})()),
+parent_1)})))}).apply(null,[]);
+
+//======
+//(def elems)
+//---
+(function __jsrepl_fn_2905(){
+return (clojure.JS.def(jsrepl,"elems",null))}).apply(null,[]);
+
+//======
+//(defn repl-print [text] (let [log (:log elems)] (doseq line (.split text #"\n") (append-dom log [:div {:class "cg"} line])) (set! (.scrollTop log) (.scrollHeight log))))
+//---
+(function __jsrepl_fn_2908(){
+return (clojure.JS.def(jsrepl,"repl_print",(function __jsrepl_fn_2908_repl_print_2910(text_1){
+var list__794_3,log_2,line_4;
+return (((log_2=clojure.keyword("","log").apply(null,[jsrepl.elems])),
+((function __loop(){var _rtn,_cnt;(list__794_3=clojure.seq.apply(null,[(text_1).split((/\n/))]));do{_cnt=0;
+_rtn=((list__794_3)?(((line_4=clojure.first.apply(null,[list__794_3])),
+jsrepl.append_dom.apply(null,[log_2,clojure.JS.lit_vector([clojure.keyword("","div"),clojure.hash_map(clojure.keyword("","class"),"cg"),line_4])])),
+(_cnt=1,_rtn=[clojure.rest.apply(null,[list__794_3])],list__794_3=_rtn[0])):(null))}while(_cnt);return _rtn;})()),
+(log_2.scrollTop=clojure.JS.getOrRun(log_2,"scrollHeight"))))})))}).apply(null,[]);
+
+//======
+//(defn postexpr [] (append-dom (:log elems) [:table [:tbody [:tr [:td {:class "cg"} "user=> "] [:td (-> :input elems .value (.replace #"\n$" ""))]]]]) (set! (-> :scripts elems .innerHTML) "") (set! (-> :input elems .value) ""))
+//---
+(function __jsrepl_fn_2914(){
+return (clojure.JS.def(jsrepl,"postexpr",(function __jsrepl_fn_2914_postexpr_2916(){
+return (jsrepl.append_dom.apply(null,[clojure.keyword("","log").apply(null,[jsrepl.elems]),clojure.JS.lit_vector([clojure.keyword("","table"),clojure.JS.lit_vector([clojure.keyword("","tbody"),clojure.JS.lit_vector([clojure.keyword("","tr"),clojure.JS.lit_vector([clojure.keyword("","td"),clojure.hash_map(clojure.keyword("","class"),"cg"),"user=> "]),clojure.JS.lit_vector([clojure.keyword("","td"),(clojure.JS.getOrRun(jsrepl.elems.apply(null,[clojure.keyword("","input")]),"value")).replace((/\n$/),"")])])])])]),
+(jsrepl.elems.apply(null,[clojure.keyword("","scripts")]).innerHTML=""),
+(jsrepl.elems.apply(null,[clojure.keyword("","input")]).value=""))})))}).apply(null,[]);
+
+//======
+//(defn state [status msg] (set! (.innerHTML (:status elems)) status) (cond (= status "error") (do (postexpr) (print msg)) (= status "compiled") (postexpr)))
+//---
+(function __jsrepl_fn_2920(){
+return (clojure.JS.def(jsrepl,"state",(function __jsrepl_fn_2920_state_2922(status_1,msg_2){
+return ((clojure.keyword("","status").apply(null,[jsrepl.elems]).innerHTML=status_1),
+((clojure.lang.Util.equal(status_1,"error"))?(jsrepl.postexpr.apply(null,[]),
+clojure.print.apply(null,[msg_2])):(((clojure.lang.Util.equal(status_1,"compiled"))?(jsrepl.postexpr.apply(null,[])):(null)))))})))}).apply(null,[]);
+
+//======
+//(defn err [e] (println e) (set! *e e))
+//---
+(function __jsrepl_fn_2926(){
+return (clojure.JS.def(jsrepl,"err",(function __jsrepl_fn_2926_err_2928(e_1){
+return (clojure.println.apply(null,[e_1]),
+clojure._var__STAR_e.set(e_1))})))}).apply(null,[]);
+
+//======
+//(set! *print-length* 103)
+//---
+(function __jsrepl_fn_2932(){
+return (clojure._var__STAR_print_length_STAR_.set((103)))}).apply(null,[]);
+
+//======
+//(set! (.onload window) (fn [] (set! elems (into {} (for [n (quote (log input status scripts))] [(keyword n) (.getElementById document (str n))]))) (set! (.print window) repl-print) (set! (.onkeypress (:input elems)) (fn [e] (let [e (or e event)] (when (== (.keyCode e) 13) (let [s (.createElement document "script")] (set! (.src s) (str "http://localhost:8081/" (-> :input elems .value escape (.replace #"\+" "%2b")))) (.appendChild (:scripts elems) s)))))) (println "ClojureScript") (.focus (:input elems))))
+//---
+(function __jsrepl_fn_2935(){
+return ((clojure.JS.resolveVar("window",jsrepl).onload=(function __jsrepl_fn_2935_fn_2937(){
+var iter__1247_1;
+return (jsrepl._var_elems.set(clojure.into.apply(null,[clojure.lang.PersistentHashMap.EMPTY,((iter__1247_1=(function __jsrepl_fn_2935_fn_2937_iter_2939_2941(s__2940_1){
+var n_2,iter__2939_0=arguments.callee;
+return (((clojure.seq.apply(null,[s__2940_1]))?(((n_2=clojure.first.apply(null,[s__2940_1])),
+((true)?((new clojure.lang.LazyCons((function __jsrepl_fn_2935_fn_2937_iter_2939_2941_fn_2943(G__2942_1){switch(arguments.length){
+case 0:return (clojure.JS.lit_vector([clojure.keyword.apply(null,[n_2]),(clojure.JS.resolveVar("document",jsrepl)).getElementById(clojure.str.apply(null,[n_2]))]))}
+return (iter__2939_0.apply(null,[clojure.rest.apply(null,[s__2940_1])]))})))):(null)))):(null)))})),
+iter__1247_1.apply(null,[clojure.JS.lit_list([clojure.symbol("log"),clojure.symbol("input"),clojure.symbol("status"),clojure.symbol("scripts")])]))])),
+(clojure.JS.resolveVar("window",jsrepl).print=jsrepl.repl_print),
+(clojure.keyword("","input").apply(null,[jsrepl.elems]).onkeypress=(function __jsrepl_fn_2935_fn_2937_fn_2948(e_1){
+var or__202_2,e_2,s_3;
+return (((e_2=((or__202_2=e_1),
+((or__202_2)?(or__202_2):(clojure.JS.resolveVar("event",jsrepl))))),
+((clojure.lang.Numbers.equiv(clojure.JS.getOrRun(e_2,"keyCode"),(13)))?(((s_3=(clojure.JS.resolveVar("document",jsrepl)).createElement("script")),
+(s_3.src=clojure.str.apply(null,["http://localhost:8081/",(clojure.JS.resolveVar("escape",jsrepl).apply(null,[clojure.JS.getOrRun(jsrepl.elems.apply(null,[clojure.keyword("","input")]),"value")])).replace((/\+/),"%2b")])),
+(clojure.keyword("","scripts").apply(null,[jsrepl.elems])).appendChild(s_3))):(null))))})),
+clojure.println.apply(null,["ClojureScript"]),
+clojure.JS.getOrRun(clojure.keyword("","input").apply(null,[jsrepl.elems]),"focus"))})))}).apply(null,[]);
diff --git a/clojurescript/tojs.clj b/clojurescript/tojs.clj
index f362fb34..9f1d3957 100644
--- a/clojurescript/tojs.clj
+++ b/clojurescript/tojs.clj
@@ -127,12 +127,15 @@
     (or (instance? Character c)
         (string?  c)) (pr-str (str c))
     (keyword? c) (str "clojure.keyword(\"" (namespace c) "\",\"" (name c) "\")")
-    (symbol?  c) (str \" \' c \")
+    (symbol?  c) (str "clojure.symbol(\"" c "\")")
     (class?   c) (.getCanonicalName c)
     (list?    c) (vstr ["clojure.JS.lit_list(["
                         (vec (interpose "," (map const-str c)))
                         "])"])
     (fn?      c) (str \" c \")
+    (instance? java.util.regex.Pattern c) (str "(/"
+                                               (.replace (str c) "/" "\\/")
+                                               "/)")
     :else (str "(" c ")")))
 
 (defmethod tojs clojure.lang.Compiler$ConstantExpr [e ctx]
@@ -279,14 +282,15 @@
                  seq instance? assoc apply refer first rest import
                  hash-map count find keys vals get class contains?
                  print-method class? number? string? integer? nth
-                 to-array cons
+                 to-array cons keyword symbol
                  ;-- not supported yet
                  make-array to-array-2d re-pattern re-matcher re-groups
                  re-seq re-matches re-find format
                  ;-- will probably never be supported in clojurescript
                  eval resolve ns-resolve await await-for macroexpand
                  macroexpand-1 load-reader load-string special-symbol?
-                 bigint bigdec floats doubles ints longs aset-int
+                 bigint bigdec floats doubles ints longs float-array
+                 double-array int-array long-array aset-int
                  aset-long aset-boolean aset-float aset-double
                  aset-short aset-char aset-byte slurp seque
                  decimal? float? pmap primitives-classnames})
@@ -298,20 +302,21 @@
     (or (:macro m) (skip-set (:name m)))))
 
 (defn formtojs [f]
-  (binding [*allow-unresolved-vars* true]
-    (let [expr (Compiler/analyze Compiler$C/STATEMENT `((fn [] ~f)))
-          mainexpr (-> expr .fexpr .methods first .body .exprs first)]
-      (when-not (or (and (instance? Compiler$DefExpr mainexpr)
-                         (skip-defs mainexpr))
-                    (and (instance? Compiler$InstanceMethodExpr mainexpr)
-                         (or (= "setMacro" (.methodName mainexpr))
-                             (and (= "addMethod" (.methodName mainexpr))
-                                  (skip-method (tojs (first (.args mainexpr))
-                                                     nil)))))
-                    (and (instance? Compiler$BodyExpr mainexpr)
-                         (instance? Compiler$DefExpr (first (.exprs mainexpr)))
-                         (skip-defs (first (.exprs mainexpr)))))
-        (str (tojs expr {:localmap {}}) ";")))))
+  (when-not (= 'definline (first f))
+    (binding [*allow-unresolved-vars* true]
+      (let [expr (Compiler/analyze Compiler$C/STATEMENT `((fn [] ~f)))
+            mainexpr (-> expr .fexpr .methods first .body .exprs first)]
+        (when-not (or (and (instance? Compiler$DefExpr mainexpr)
+                           (skip-defs mainexpr))
+                      (and (instance? Compiler$InstanceMethodExpr mainexpr)
+                           (or (= "setMacro" (.methodName mainexpr))
+                               (and (= "addMethod" (.methodName mainexpr))
+                                    (skip-method (tojs (first (.args mainexpr))
+                                                       nil)))))
+                      (and (instance? Compiler$BodyExpr mainexpr)
+                           (instance? Compiler$DefExpr (first (.exprs mainexpr)))
+                           (skip-defs (first (.exprs mainexpr)))))
+          (str (tojs expr {:localmap {}}) ";"))))))
 
 (defn filetojs [filename]
   (let [reader (java.io.PushbackReader. (ds/reader filename))]