/*
 * Filename:  mc1.pro  (marriage counsellor 1)
 *
 * Programmer:  Br. David Carlson
 *
 * Date of creation:  September 4, 1993
 *
 * Modified:  December 11, 1999 to run under yap.
 *
 * Description:
 *
 *      This program is used to predict whether or not two people have
 * (or will have) marriage problems.  Use the goal:  marriage_problems.
 */

marriage_problems :- financial_problems.
marriage_problems :- sexual_problems.
marriage_problems :- communications_problems.
marriage_problems :- psychological_problems.
   
/* Data on the couple: */
communications_problems.  /* a fact: true */
financial_problems. 
sexual_problems :- fail.   /* a way to return the value of false */
psychological_problems :- fail.