Emacs fizzbuzz function

fizzbuzz.el

(defun fizzbuzz ()
 "For numbers 1 through 100: if the number is divisible by 3 and
5 print FizzBuzz; if the number is divisible by 3 print Fizz; if
the number is divisible by 5 print Buzz; else, print the number."
 (interactive)
 (let ((n 1))
   (while (<= n 100)
     (cond ((and (= (% n 3) 0)
                 (= (% n 5) 0))
            (insert "FizzBuzz" ?\n))
           ((= (% n 5) 0)
            (insert "Fizz" ?\n))
           ((= (% n 3) 0)
            (insert "Buzz" ?\n))
           ((insert (number-to-string n) ?\n)))
     (setq n (1+ n)))))

But what is the use case???