Here's a goofy little .lsp function. Might be fun to replace someone's line command with and see what happens < eg >

(defun c:fun (/ pta n ck)
  (setq pta (getpoint "Please Choose Start Point")
	n 1)
  (while (setq ck (cadr (grread t)))
	 (grdraw pta ck n)
	 (if (> n 16) 
             (setq n 1) 
             (setq n (1+ n))
         )
  )
)