arc> (mac blah (n x y) `((,n ,x) ,y)) #3(tagged mac #<procedure>) arc> (macex1 '(blah twodimlist 0 3)) ((twodimlist 0) 3) ?
(mac drill (lst . xs) (if (no xs) `,lst (no (cdr xs)) `(,lst ,(car xs)) `((drill ,lst ,@(rev (cdr (rev xs)))) ,(last xs))))
-----
