(define settoone (lambda (x) (eval (list 'set! x 1))))
(define y 23)
(settoone 'y)
y