A Scheme implementation of CracklePop!

cracklepop.scm

(define (crackle-pop)
  (define (iter n)
    (let ((divisible-by-3 (= 0 (remainder n 3)))
          (divisible-by-5 (= 0 (remainder n 5))))
      (cond ((> n 100) "Done printing CracklePop :~)")
            (else
              (cond ((or divisible-by-3 divisible-by-5)
                       (if divisible-by-3 (display "Crackle"))
                       (if divisible-by-5 (display "Pop")))
                    (else (display n)))
              (newline)
              (iter (+ n 1))))))
  (iter 1))

(crackle-pop)