#!/usr/local/bin/sbcl --script
(mapcar sqrt '(1 2 3 4))