2.53.scm

(define (main args)
  (print (list 'a 'b 'c))
  ;=> (a b c)

  (print (list (list 'george)))
  ;=> ((george))

  (print (cdr '((x1 x2) (y1 y2))))
  ;=> ((y1 y2))

  (print (cadr '((x1 x2) (y1 y2))))
  ;=> (x1 x2)

  (print (pair? (car '(a short list))))
  ;=> #f

  (print (memq 'red '((red shoes) (blue socks))))
  ;=> #f

  (print (memq 'red '(red shoes blue socks)))
  ;=> (red shoes blue socks)
  )