;;; Problem 1

;;; write a procedure to count the integers from
;;; a and b, where a is less than b.  Include a
;;; but not b.

(define (count-ints a b)
  (if (>= a b)
      0
      (inc (count-ints (inc a) b))))

;;; now to demonstrate its effectiveness

(newline)
(display "count-ints of 3 to 5 should return 2: " )
(display (count-ints 3 5))

(newline)
(display "count-ints of 2 to 7 should return 5: " )
(display (count-ints 2 7))