import BayesNet data Event = C | T1 | T2 deriving (Eq, Ord, Show) bn = fromList [(C, [], [0.01]), (T1, [C], [0.9,0.2]), (T2, [C], [0.9,0.2])] p_3_20 = prob bn C [(T1,True),(T2,True)] p_3_21 = prob bn C [(T1,True),(T2,False)]