(defun run ()
  (sdl2-draw-init)
  (setq beg  (float-time))
  (setq frames (expt 2 7))
  (setq slp    (/ 1 16.0))
  (dotimes (n frames) (insert (number-to-string n) 32 10) (sdl2-draw-draw) (sleep-for slp) (erase-buffer))
  (message (format \"%.1f fps\" (/ 1 (/ (- (float-time) beg) frames))))
  (sdl2-draw-quit))