#!/usr/local/bin/sbcl --script

(set 'x '(1 2 3 4 5 6))
(format t (apply '+ x))