(define format _format)

(let ((my-pair (cons (cons 'a 'b) (cons 'c 'd))))
  (set! (car (car my-pair)) 'e)
  (set! (car (cdr my-pair)) 'f)
  (set! (cdr (car my-pair)) 'g)
  (set! (cdr (cdr my-pair)) 'h)
  (format #t "~A~A~A~A~%" (car (car my-pair)) (car (cdr my-pair)) (cdr (car my-pair)) (cdr (cdr my-pair)))
  (format #t "~A~%" my-pair)
  )
  0