;;;-*-Scheme-*-

;;;This gives the data base for the logic puzzle.
;;;This file should not be loaded into Scheme until after the query
;;;system has been loaded.

(define logic-puzzle-data-base '(

(member eric name)
(member hal name)
(member julie name)

(member zork game)
(member chess game)
(member scrabble game)

(member foie-gras food)
(member ring-dings food)
(member yogurt food)

(class-order name game)
(class-order name food)
(class-order game food)
))

(initialize-data-base logic-puzzle-data-base)
