(write-char #\C)
(write-char #\B)
(newline)
(newline)

(write-char #\D) (newline)
(write-char #\A) (newline)

(write #\p) (newline)
(write "hello") (newline)
(write '(34 "sss" p q)) (newline)

(display #\p) (newline)
(display "hello") (newline)
(display '(34 "sss" p q)) (newline)

(char-ready?)