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



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

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