; helper function
(defun fb (n)
  (terpri)  ; (terpri) prints a newline
  (princ n) ; (princ e) just prints e, no newline
            ; (print e) prints e and then a newline
  (cond
    ((and (eq (mod n 3) 0) (eq (mod n 5) 0))
      (princ " fizzbuzz")
    )
    ((eq (mod n 3) 0)
      (princ " fizz")
    )
    ((eq (mod n 5) 0)
      (princ " buzz")
    )
  )
  (if (eq n 100)
    nil
    (fb (+ n 1))
  )
)

; top-level function
(defun fizzbuzz ()
  (fb 1)
)

; call fizzbuzz
(fizzbuzz)

(quit)