set excludes to {"-> ", "->> ", ".. ", "amap ", "and ", "areduce ", "alength ", "aclone ", "assert ", "binding ", "bound-fn ", "case ", "comment ", "cond ", "condp ", "declare ", "definline ", "definterface ", "defmethod ", "defmulti ", "defn ", "defn- ", "defonce ", "defprotocol ", "defrecord ", "defstruct ", "deftype ", "delay ", "destructure ", "doseq ", "dosync ", "dotimes ", "doto ", "extend-protocol ", "extend-type ", "fn ", "for ", "future ", "gen-class ", "gen-interface ", "if-let ", "if-not ", "import ", "io! ", "lazy-cat ", "lazy-seq ", "let ", "letfn ", "locking ", "loop ", "memfn ", "ns ", "or ", "proxy ", "proxy-super ", "pvalues ", "refer-clojure ", "reify ", "sync ", "time ", "when ", "when-first ", "when-let ", "when-not ", "while ", "with-bindings ", "with-in-str ", "with-loading-context ", "with-local-vars ", "with-open ", "with-out-str ", "with-precision ", "with-redefs ", "satisfies? ", "identical? ", "true? ", "false? ", "nil? ", "str ", "get ", "aget ", "aset ", "+ ", "- ", "* ", "/ ", "< ", "<= ", "> ", ">= ", "== ", "zero? ", "pos? ", "neg? ", "inc ", "dec ", "max ", "min ", "mod ", "bit-and ", "bit-and-not ", "bit-clear ", "bit-flip ", "bit-not ", "bit-or ", "bit-set ", "bit-test ", "bit-shift-left ", "bit-shift-right ", "bit-xor "} as text