/*
s([a],P).
Variables: [(1,[]),(2,[]),(3,[])]
P = 0.1719 ? ;

*/

a:0.1:-p(X).

p(1):0.9.

p(2):0.9.