(deftemplate emergency
    (slot type)
    )

(defrule emergency-occurs
    =>
    (assert (emergency (type fire)))
    (assert (emergency (type flood)))
    (assert (emergency (type earthquake)))
    )

(defrule operator-alert
    (emergency)
    =>
    (printout t "<p>Emergency: Operator Alert!<br>" crlf)
    )