;;; Problem 2

;;; write a procedure to square the number
;;; of integers from a to b.

(define (square-num-ints a b)
  (square (count-ints a b)))

;;; now to demonstrate its effectiveness

(newline)
(display "square-num-ints of 3 to 5 should return 4: " )
(display (square-num-ints 3 5))

(newline)
(display "square-num-ints of 2 to 7 should return 25: " )
(display (square-num-ints 2 7))