Factorial in Clojure without using alphanumeric characters

gistfile1.clj

(#(% [% (+ (*)(*)(*)(*)(*)(*)(*))])
 #(if (= (% (*)) (+))
    (*)
    (* ((% (+))
        [(% (+)) (- (% (*)) (*))])
       (% (*)))))
;; => 5040
;; Almost there, just an "if" to get rid of...

(#((% (+(*))) %) ;; call arg 1 with all args
 [;; data
  (+ (*)(*)(*)(*)(*)(*)(*))
  ;; main fn -- simulate 'if' with map lookup and closures
  #(({(+) (% (+(*)(*)))} ;; if zero return 'then' clause
     (% (+)) ;; dispatch on first arg
     (% (+(*)(*)(*)))) ;; call 'else' clause (n not found in map)
    %)
  ;; These clauses are given the same args as main fn.
  ;; base case ('then')
  #({} % (+(*))) ;; constant fn of 1
  ;; recursive case ('else')
  #(* ((% (+(*)))
       [(- (% (+)) (+(*)))
        (% (+(*)))
        (% (+(*)(*)))
        (% (+(*)(*)(*)))])
      (% (+)))])
;; => 5040
;; That does it!