(defparameter *in* nil)

(defmacro model (name inputs actor)
  (setf *in* nil)
  (let (params plisting)
    (dolist (p inputs)
      (setf *in* (append *in* (list (second p)))))
    (progn
      `(defun ,name (,*in*)
         1))))