0. #lang racket
1.  
2. (display "Hello, World!") ; Outputs the string
3. (newline) ; Moves to the next line
4.  
5. (define q1 (list 1 (list (list 2) 3) 4))
6. (define q2 (cons 1 (cons (cons (cons 2 empty) (cons 3 empty)) (cons 4 empty))))
7.  
8. (write q1) ; Displays q1 in a readable list format
9. (newline) ; Moves to the next line
10. (write q2) ; Displays q2 in a readable list format
11. (newline) ; Moves to the next line
12.  
13. (define q3 (cons q1 q1))
14. (write q3)

=>

Hello, World!

(1 ((2) 3) 4)

(1 ((2) 3) 4)

((1 ((2) 3) 4) 1 ((2) 3) 4)