fizzbuzz with emacs lisp

fizzbuzz.el

#!/usr/bin/env emacs --script

(defun fizzbuzz (num)
  (princ (mapconcat
          #'(lambda (i)
              (cond
               ((= 0 (% i 3)
                   (% i 5)) "FizzBuzz")
               ((= 0 (% i 3)) "Fizz")
               ((= 0 (% i 5)) "Buzz")
               (t (number-to-string i))))
          (number-sequence 1 (1+ num)) "\n")))

(fizzbuzz 500000)