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


(list 1 2 3)
(list :a 1 :b 2 :c 3)
(getf (list :a 1 :b 2 :c 3) :a)