(mod (blob)
  (include *standard-cl-23*)
  
  (defun test-f (blob)
    (let*
      ((first (list 1 2 3))
       (copies (list (r first) (r first))))
       (c (r first) copies)
      )
    )
  (test-f blob)
)