#!/usr/local/bin/sbcl --script
((LAMBDA (S) (PRINT (LIST S (LIST 'QUOTE S))))
 '(LAMBDA (S) (PRINT (LIST S (LIST 'QUOTE S)))))