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



(let ((foo 42))
  (set' foo (1+ 42))
  foo)

(set `a 345)

(setf `a 567)



 (format t "~{~a~%~a~}" (list 123 a))