(eval `(begin))
(write (eval `(begin)))
(define (ac-set x env) (if (null? x) (list 'quote 'nil) `(begin ,@(ac-setn x env))))
-----