(define (crackle-pop n upto)
  (display-value n)
  (if (not (= n upto))
      (crackle-pop (+ n 1) upto)))

(define (get-num n)
  (cond ((and
          (divisible-by n 3)
          (divisible-by n 5))
                            "CracklePop")
        ((divisible-by n 3) "Crackle")
        ((divisible-by n 5) "Pop")
        (else               n)))

(define (display-value n)
  (display (get-num n))
  (display "\n"))

(define (divisible-by n m)
  (= (modulo n m) 0))

(crackle-pop 1 100)