It is highly likely that Mary moved to the office. It is almost certain that Greg is a swan. It is highly unlikely that Brian is a swan. There is almost no chance that if 'Mary moved to the office and Greg is a swan' then Lily is a lion. It is almost certain that if 'Brian is a swan' or 'Mary moved to the office' or both then Bernhard is gray. It is unlikely that if 'Greg is a swan' or 'Mary moved to the office' or both then John got the apple.
There is a better than even chance that 'Lily is a lion and Brian is a swan'.
It is impossible that 'Lily is a lion and Brian is a swan'.
There is a better than even chance that 'Lily is a lion and Brian is a swan'.

  and(A,B) :- A,B.
  or(A,B) :- A;B.
  nand(A,B) :- not(and(A,B)).
  nor(A,B) :- not(or(A,B)).
  xor(A,B) :- or(A,B), nand(A,B).

  %hop0
  0.9::factA.
  0.95::factB.
  0.05::factC.
  %hop1
  0.02::factX:-and(factA,factB).
  0.95::factY:-or(factC,factA).
  0.2::factZ:-or(factB,factA).

  %hop2
  conclusion:-and(factX,factC).

  query(conclusion).
  
'Lily is a lion and Brian is a swan'.