REM Animal knowledge base (animal.kb)
REM Author: Dave Reed
REM Date: 3/26/03

RULE [is it a penguin?]
If [animal order] = "bird" and
   [animal color] = "black and white" and
   [type of movement] ! "flies"
Then [animal identification] = "penguin"

RULE [is it an ostrich?]
If [animal order] = "bird" and
   [animal color] = "black and white" and
   [type of movement] ! "flies" and
   [type of neck] = "long"
Then [animal identification] = "ostrich"

RULE [is it an albatross?]
If [animal order] = "bird" and
   [type of movement] = "flies" 
Then [animal identification] = "albatross"

RULE [order is bird?]
If [type of surface] = "feathers"
Then [animal order] = "bird"

RULE [order is bird?]
If [type of movement] = "flies" and
   [type of reproduction] = "lays eggs"
Then [animal order] = "bird"


PROMPT [type of surface] MultChoice CF
"What kind of skin covering does the animal have?"
"hair"
"scales"
"feathers"
"smooth skin"

PROMPT [animal color] MultChoice CF
"What color is the animal?"
"tawny"
"black and white"
"none of the above"

PROMPT [type of movement] MultChoice CF
"How does the animal move around?"
"walks"
"swims"
"flies"

PROMPT [type of reproduction] MultChoice CF
"How does the animal reproduce?"
"lays eggs"
"gives birth"
"asexually"

PROMPT [type of neck] MultChoice CF
"How would you describe the animal's neck?"
"long"
"short"
"no neck"

GOAL [animal identification]

MINCF 70