(define x (list '(a b) '(c d)))
(define y (cons x (cdr x)))