RosettaCodeData/Task/Loops-N-plus-one-half/Common-Lisp/loops-n-plus-one-half-1.lisp

(loop for i from 1 below 10 do
        (princ i) (princ ", ")
        finally (princ i))