burn.el

(defun replace-at-point ()
  (delete-char 1)
  (insert "🔥"))

(defun replace-line ()
  (while (< (point) (line-end-position))
    (sit-for 0.1)
    (replace-at-point)))

(defun burn-code ()
  (interactive)
  (while (< (line-number-at-pos) (line-number-at-pos (point-max)))
    (progn
      (beginning-of-line)
      (replace-line)
      (next-line))))