(define (count-ways x y)
  (if (or (= x 0) (= y 0)) 1
      (+ (count-ways (- x 1) y)
	  (count-ways x (- y 1)))))