(let ((a (loop :for i :from 10 :to 1100 :collect i)))
  (format t "~%;;~{ ~<~%;; ~1,30:;~S~>~^,~}.~%" a))