arc> (with (x '(x-expr) y '(y-expr)) (once-only (x y) `(+ ,x ,y ,y))) (with (g1838 (x-expr) g1839 (y-expr)) (+ g1838 g1839 g1839))
arc> (with (x '(x-expr) y '(y-expr)) (w/uniq (gx gy) `(with (,gx ,x ,gy ,y) (+ ,gx ,gy ,gy)))) (with (g1840 (x-expr) g1841 (y-expr)) (+ g1840 g1841 g1841))