(begin (define *test-begin-a* '*test-begin-a*))

(display "defined? *test-begin-a*: ")
(display (defined? '*test-begin-a*))
(newline)
(display *test-begin-a*)
(newline)

(let () (define *test-let-a* '*test-let-a*) #f)
(display "defined? *test-let-a*: ")
(display (defined? '*test-let-a*))
(newline)