* Example 10a

ftree ex1
basic ae exp(lam)
basic be exp(lam)
basic ac exp(lam)
basic bc exp(lam)
basic ad exp(lam)
basic bd exp(lam)
basic ce exp(lam)
basic de exp(lam)
basic ab exp(lam)
basic cd exp(lam)
or ab1 ae be
or ab2 ac bc
or ab3 ad bd
and AB ab ab1 ab2 ab3 
or cd1 ce de
and CD cd cd1
or top AB CD
end

bind lam 0.0005

* Example 10b

ftree ex2
repeat bc exp(lam)
basic ab exp(lam)
basic ac exp(lam)
basic bd exp(lam)
basic cd exp(lam)
or ab1 ac bc
or cd1 bc bd
and x ab ab1
and y cd1 cd
or top x y
end

loop i,0,100,10
bind t i
expr tvalue(t;ex1), tvalue(t;ex2)
end


pqcdf(ex2)

end

end