Macro for polish notation (prefix, i.e. not postfix RPN) in Clojure

polishnotation.clj

(defmacro pln [& args]
  (let [operator-count (dec (/ (count args) 2))
        operators (take operator-count args)
        values (drop operator-count args)
        op-vals (map vector operators (next values))]

    (loop [form (first values)
           op-vals op-vals]
      
      (if (not-empty op-vals)
        (let [[op val] (first op-vals)]
          (recur
            (list op form val)
            (rest op-vals)))
        form))))