;;; Problem 3

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

(define (sum-cube-and-square-num-ints a b)
  (+ (square (count-ints a b))
     (cube (count-ints a b))))

;;; now to demonstrate its effectiveness

(newline)
(display "sum-cube-and-square-num-ints of 3 to 5 should return 12: " )
(display (sum-cube-and-square-num-ints 3 5))

(newline)
(display "sum-cube-and-square-num-ints of 2 to 7 should return 150: " )
(display (sum-cube-and-square-num-ints 2 7))