(mac mappair (x y expr args) (w/uniq arg `(map (fn (,arg) (let ,x ,(car ,arg) ,y ,(cadr ,arg) ) ,expr) ) (pair ,args) ) ) )
arc> ((fn ((x y)) (+ x y)) '(5 10)) 15
-----