(define (make-bartend-rules)
  (clear-assertions)
  (clear-rules)
  (remember-rules
   '(r1 if
	(beverage should be wine)
	(wine should be expensive)
	(it is a holiday)
	then
	(serve champagne))
   '(r2 if
	(beverage should be wine)
	(wine should be expensive)
	(entree is steak)
	then
	(serve chateau-red))
   '(r3 if	
	(beverage should be wine)
	(wine should be cheap)
	(entree is chicken)
	(guest is not well liked)
	then
	(serve apple-wine))
   '(r4 if
	(beverage should be wine)
	(wine should be cheap)
	(entree is unknown)
	then
	(serve rose))
   '(r5 if
	(beverage should be beer)
	(entree is mexican)
	then
	(serve dos-equis))
   '(r6 if
	(beverage should be beer)
	then
	(serve coors))
   '(r7 if
	(guest is a health nut)
	then
	(serve glop))
   '(r8 if
	(guest is a health nut)
	(carrots are not served)
	then
	(serve carrot-juice))
   '(r9 if
	(beverage should be wine)
	(guest must be impressed)
	then
	(wine should be expensive))
   '(r10 if
	 (guest is sophisticated)
	 then
	 (beverage should be wine))
   '(r11 if
	 (entree is mexican)
	 then
	 (beverage should be beer))
   '(r12 if
	 (guest is not well liked)
	 (entree is from lean cuisine)
	 then
	 (beverage should be beer))
   '(r13 if
	 (guest is sophisticated)
	 then
	 (guest must be impressed))
   '(r14 if
	 (guest is a health-nut)
	 then
	 (guest must be impressed))
   '(r15 if
	 (beverage should be wine)
	 then
	 (guest is well liked))
   '(r16 if
	 (wine should be expensive)
	 then
	 (guest is well liked))
   ))