shayelkin

(defmacro -> (form &rest forms)
  (reduce 
   (lambda (acc next)
     (if (listp next)
         (list* (car next) acc (cdr next))
         (list next acc)))
   forms
   :initial-value form))