(mac testlet (var expr . args) (letf ex (args) (if cdr.args `(if (,car.args ,var) ,cadr.args ,(args cddr.args)) car.xs) `(let ,var ,expr ,(ex args))))