(display "Enter your name: ")
(define name (read-line))
(display "Hello, ")
(display name)
(newline)