<-?->

gistfile1.clj

(defmacro <-?->
  [& forms]
  (let [forms (shuffle forms)]
    (reduce (fn [a f]
              (let [f (if (seq? f) f (list f))
                    i (rand-int (inc (count f)))]
                (concat (take i f) [a] (drop i f))))
            (first forms)
            (rest forms))))

adhoc.core=> (macroexpand-1 '(<-?-> 5 inc list count))
((inc (count list)) 5)