(dynvar req)

(mac with-req (request . body)
  `(dlet req ,request
     ,@body))

(mac rdefop (name . body)
  (w/uniq request
    `(defop ,name ,request
       (with-req ,request
         ,@body))))

(extend arg args (is len.args 1)
  (arg req car.args))