Flip the arguments of a function, Clojure style

flip.clj

(defn flip [function] 
  (fn 
    ([] (function))
    ([x] (function x)) 
    ([x y] (function y x)) 
    ([x y z] (function z y x)) 
    ([a b c d] (function d c b a)) 
    ([a b c d & rest]
        (->> rest
            (concat [a b c d])
            reverse
            (apply function)))))

; EXAMPLES
; ;one argument, doesn't change anything
; ((flip :foo) {:foo "bar"}) => "bar"
;
; ;two arguments, reverses order
; ((flip -) 1 2) => 1
;
; ;handles an arbitrary number of arguments
; (> 1 2 3 4 5) => false
; ((flip >) 1 2 3 4 5) => true