``` lisp
(defun cut-at-ten ()
  (while (re-search-forward "," (save-excursion (end-of-line) (point)) t 10)
    (newline-and-indent)))
```