(defmacro infix [input]
  (let [expression (map reverse (partition-all 2 input))]
    (println expression)))

(infix (1 + 2 + 3 - 5))