Chances are slight that Bernhard is a swan. It is unlikely that Fred put down the apple. It is almost certain that Lily is green. There is almost no chance that if 'Fred put down the apple and Lily is green' then Greg is yellow. Chances are about even that if 'Lily is green' or 'Bernhard is a swan' or both then Mary went to the bedroom. There is little chance that if 'Bernhard is a swan and Fred put down the apple' then Brian is a rhino.
It is almost certain that 'Mary went to the bedroom' or 'Lily is green' or both.
It is almost certain that 'Mary went to the bedroom' or 'Lily is green' or both.
It is unlikely that 'Mary went to the bedroom' or 'Lily is green' or both.

  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.1::factA.
  0.2::factB.
  0.95::factC.
  %hop1
  0.02::factX:-and(factB,factC).
  0.5::factY:-or(factC,factA).
  0.1::factZ:-and(factA,factB).

  %hop2
  conclusion:-or(factY,factC).

  query(conclusion).
  
'Mary went to the bedroom' or 'Lily is green' or both.