The Burglary Bayes net is a simple network that illustrates nodes with multiple incoming and outgoing causal links. Burglary and earthquake both cause the alarm to go off. The alarm can cause either or both of Mary and John to call.
(define burglary-dist
(enumeration-query
(define burglary (flip .1))
(define earthquake (flip .2))
(define alarm (flip (if burglary
(if earthquake .95 .94)
(if earthquake .29 .001))))
(define john-calls (flip (if alarm .9 .05)))
(define mary-calls (flip (if alarm .7 .01)))
(if burglary 'burglary 'no-burglary)
john-calls))
(barplot burglary-dist)