(format t "~{~a~^, ~}" list)
(format t "~{~<~%~1,40:;~A~> ~}" '("these" "words" "will" "be" "wrapped" "to" "40" "characters"))