;; fizzbuzz.el
;; ターミナルで「emacs --batch --script fizzbuzz.el」を実行
(defun fizzbuzz (num)
  (let
      ((fizz (= (% num 3) 0))
       (buzz (= (% num 5) 0)))
    (cond
     ((and fizz buzz) "FizzBuzz")
     (fizz "Fizz")
     (buzz "Buzz")
     (t num))))

(let
    (i (min 1) (max 100))
  (setq i min)
  (while (<= i max)
    (princ (fizzbuzz i))
    (princ "\n")
    (setq i (1+ i))))