(defun f756 (s)
  (loop for c across s
		for i upfrom 0
		if (evenp i)
		collect c into even
		else
		collect c into odd
		finally (format t "~{~c ~}~%~{ ~c~}~%" even odd)))

(f756 "123456789")
(f756 "The earth turns around the sun.")