(define count-reflexive-pairs
  (lambda (rel)
    (cond [(null? rel) 0]
	  [(eq? (caar rel)  (cadar rel))
	   (+ 1 (count-reflexive-pairs (cdr rel)))]
	  [else (count-reflexive-pairs (cdr rel))])))

(define count-reflexive-pairs
  (lambda (rel)
    (if (null? rel)
	0
	(let ([cdr-refl-count (count-reflexive-pairs (cdr rel))])
	  (if (eq? (caar rel)  (cadar rel))
	      (+ 1 cdr-refl-count)
	      cdr-refl-count)))))

(define count-reflexive-pairs
  (lambda (rel)
    (if (null? rel)
	0
	(+ (count-reflexive-pairs (cdr rel))
	   (if (eq? (caar rel)  (cadar rel))
	       1
	       0)))))