(define (check li copy)

      (cond ((null? li)  copy  )
           ((not (PAIR? li))
                              (cons copy (li) ) )
           (else

                      (display "\n")
       (display (null? li))
      (display li)
      (display copy)
      (display "\n")
      (check (cdr li  ) (cons (car li) copy ) )

            )
       )

 )