;; another test case
(IN-PACKAGE 'toolset)
 
 (DEFINE-RECOGNITION-AGENT WORK-TOOMUCH-RA MATCH-1-RECOGNITION-AGENT 
   (SPECIFIC-FUNCTION= "Recognize when someone is working too much.")
   (FEATURES= (JUDGE SOCIAL-LIFE)
         (JUDGE FAMILY)
         (JUDGE OTHER-COMMITMENTS)
         (JUDGE THINKING-ABOUT-WORK))
   (PATTERNS= ((YES YES YES YES) 3  => CONFIRMED)
              ((? YES ? ?)          => CONFIRMED)
		    ((YES YES YES YES) 1  => VERY-LIKELY)
              ((NEUTRAL NEUTRAL NEUTRAL NEUTRAL)   => SOMEWHAT-LIKELY)
              ((NEUTRAL NEUTRAL NEUTRAL NEUTRAL) 2 => VERY-UNLIKELY))
   (NO-MATCH-CONFIDENCE= RULED-OUT)
   (SPECIFIC-FUNCTION= "Overall evidence for working too much.")
   (RATIONALE= "If any answers are yes, then subject is probably working too
                much.")
   (CREATION-DATE= "15 January 1988")
   (LAST-MODIFICATION-DATE= "15 January 1988")
   (OUTPUT-CONFIDENCE-VOCABULARY= USUAL-9-VAL)
   (EXPERT= "Bob Manson")
   (AUTHOR= "Bob Manson"))

  (DEFINE-RECOGNITION-AGENT SOCIAL-LIFE MATCH-1-RECOGNITION-AGENT 
    (FEATURES=(ASK-USER "Do you have a social life?")
              (ASK-USER "Does work prevent you from having a social life?")
              (ASK-USER "Does work interfere with engagements, or prevent you
                         from going on social outings?")
              (JUDGE EFFECT-ON-FRIENDS))
     (PATTERNS= ((NO YES ? ?)  => YES)
                ((NO NO ? ?) => NO)
                ((YES ? YES YES) 3 => YES)
                ((YES ? NO NO) => NO))
     (NO-MATCH-CONFIDENCE= NEUTRAL)
     (SPECIFIC-FUNCTION= "Judges effect of work on social life")
     (RATIONALE= "If work prevents one from having a social life, or interferes with it, one is probably working too much")
     (CREATION-DATE= "15 January 1988")
     (LAST-MODIFICATION-DATE= "15 January 1988")
     (OUTPUT-CONFIDENCE-VOCABULARY= USUAL-3-VAL)
     (EXPERT="Bob Manson")
	(AUTHOR="Bob Manson"))

  (DEFINE-RECOGNITION-AGENT EFFECT-ON-FRIENDS MATCH-1-RECOGNITION-AGENT 
      (FEATURES=(ASK-USER "Do you often miss engagements with friends due to work, and are unable to tell them ahead of time?")
                (ASK-USER "Do your friends mention that you are hard to get
ahold of or that they always seem to have to call you at work?")
                (ASK-USER "Do your friends say that you work too much?")
                (ASK-USER "Do you often discuss work with your friends?"))
      (PATTERNS=((YES ? ? ?) => YES)
                ((? YES ? YES) => YES)
                ((? ? YES ?) => YES))
      (NO-MATCH-CONFIDENCE= NO)
      (SPECIFIC-FUNCTION= "Judges effect of work on friends and their relationship with subject")
      (CREATION-DATE= "15 January 1988")
      (LAST-MODIFICATION-DATE= "15 January 1988")
      (OUTPUT-CONFIDENCE-VOCABULARY= USUAL-3-VAL)
      (EXPERT="Bob Manson")
      (AUTHOR="Bob Manson"))
  
  (DEFINE-RECOGNITION-AGENT FAMILY MATCH-1-RECOGNITION-AGENT 
      (FEATURES=(ASK-USER "Do you have a family?")
                (ASK-USER "Do you often break engagements with family members?")
                (ASK-USER "Do you have a husband/wife?")
                (ASK-USER "Does your husband/wife often notice that you are very tired when you come home?")
                (ASK-USER "Do you feel you are spending enough time with your family?"))
       (PATTERNS=((NO ? ? ? ?) => NO)
                 ((YES YES YES YES YES) 1 => YES))
       (NO-MATCH-CONFIDENCE= NEUTRAL)
       (SPECIFIC-FUNCTION= "Judges effect of work on family")
       (CREATION-DATE= "15 January 1988")
       (LAST-MODIFICATION-DATE= "15 January 1988")
       (OUTPUT-CONFIDENCE-VOCABULARY= USUAL-3-VAL)
       (EXPERT="Bob Manson")
       (AUTHOR="Bob Manson"))

  (DEFINE-RECOGNITION-AGENT OTHER-COMMITMENTS MATCH-1-RECOGNITION-AGENT 
       (FEATURES=(ASK-USER "Do you often have to forego doing other things because of work?"))
       (PATTERNS=((YES) => YES))
       (NO-MATCH-CONFIDENCE= NO)
       (SPECIFIC-FUNCTION= "Judges effect of work on other commitments")
       (CREATION-DATE= "15 January 1988")
       (LAST-MODIFICATION-DATE= "15 January 1988")
       (OUTPUT-CONFIDENCE-VOCABULARY= USUAL-3-VAL)
       (EXPERT= "Bob Manson")
       (AUTHOR= "Bob Manson"))

  (DEFINE-RECOGNITION-AGENT THINKING-ABOUT-WORK MATCH-1-RECOGNITION-AGENT 
       (FEATURES=(ASK-USER "Do you think about work often?")
                 (ASK-USER "Do you ever feel guilty about doing something else besides work when you are not supposed to be working?")
                 (ASK-USER "Do you dream about work?")
                 (ASK-USER "Has work become an obsession to you?")
                 (ASK-USER "Does thinking about work interfere with conversations or make it difficult to relax?"))
        (PATTERNS=((NO NO NO ? ?) => NO)
                  ((? YES ? ? ?) => YES)
                  ((? ? YES ? ?) => YES)
                  ((YES ? ? YES YES) 4 => YES))
        (NO-MATCH-CONFIDENCE= NO)
        (SPECIFIC-FUNCTION= "Judges effect of work on thoughts")
        (CREATION-DATE= "15 January 1988")
        (LAST-MODIFICATION-DATE= "15 January 1988")
        (OUTPUT-CONFIDENCE-VOCABULARY= USUAL-3-VAL)
        (EXPERT= "Bob Manson")
        (AUTHOR= "Bob Manson"))