(mac parameter (x y) (w/uniq (var body) `(do (var ,x ,y) (mac ,(sym:string "w/" x) (,var . ,body) `(w/ ,',x ,,var ,@,body)) ,x)))