2:- use_module(library(pita)).    3
    4:- if(current_predicate(use_rendering/1)).    5:- use_rendering(graphviz).    6:- endif.    7
    8:- pita.    9
   10:- begin_lpad.   11:- action drug/0.
   12
   13female:0.5.
   14
   15recovery:0.6:- drug,\+ female.
   16recovery:0.7:- \+ drug,\+ female.
   17
   18recovery:0.2:- drug,female.
   19recovery:0.3:- \+ drug,female.
   20
   21drug:30/40:- \+ female.
   22drug:10/40:-female.
   23
   24
   25:-end_lpad.

?-prob(recovery,drug,P). ?-prob(recovery,\+ drug,P). ?-prob(recovery,(drug,female),P). ?-prob(recovery,(\+drug,female),P). ?-prob(recovery,(drug,\+female),P). ?-prob(recovery,(\+ drug,\+female),P). ?-prob(recovery,do(drug),P). ?-prob(recovery,do(\+ drug),P). ?-prob(recovery,(do(drug),female),P). ?-prob(recovery,(do(\+drug),female),P). ?-prob(recovery,(do(drug),\+ female),P). ?-prob(recovery,(do(\+ drug),\+ female),P). */