; your code goes here

(let ((op 'car)) (defmacro pseudocar (lst) `(,op ,@lst)))

(format t "~a" (macroexpand-1 '(pseudocar (a b))))