The following code copies a list

 (define (copy x)
       (cond((null? x) ‘())
               (else (cons (car x) (copy(cdr x)) ))))