(run-with-timer 0 .01 (lambda () (message (make-string 1 0))))

(while t
  (let ((f (make-frame)))
    (sit-for .1)
    (delete-frame f)))