#!/usr/local/bin/sbcl --script
(print (mapcar (lambda (x) (* x 3)) '(1 2)))