#!/usr/local/bin/sbcl --script
(COND (NIL (PRINT 1)) ((PRINT 2) (PRINT 3)) 
((PRINT 4) T) )