#!/usr/local/bin/sbcl --script
(print (subseq '(0 1 2 3 4 5 6) 3))