#!/usr/local/bin/sbcl --script
(print (mapcar (lambda (x) (* x 3)) (list 2 3 5 6)))