;;(define dom3
;;  (make-domain
;;   '(
;;     (a s1 s2 s5)
;;     (b s1 s2 s4)
;;     (c s1 s3 s4 s5)
;;     (d s1 s5)
;;     (e s2 s3 s4)
;;     (f s5)
;;     (g s3 s4)
;;     (h s3 s5)
;;     )))

(define dom3b
  (define-bnet 'dom3b
    '((a () (.9 .1))
      (b () (.98 .02))
      (c () (.95 .05))
      (d () (.85 .15))
      (e () (.95 .1))
      (f () (.8 .2))
      (g () (.9 .1))
      (h () (.99 .01))
      (s1 (a b c d) (noisy-or .05 .8 .8 .7 .9))
      (s2 (a b e) (noisy-or .05 .7 .8 .9))
      (s3 (c e g h) (noisy-or .05 .85 .9 .7 .8))
      (s4 (b c e g) (noisy-or .05 .7 .7 .7 .7))
      (s5 (a c d f h) (noisy-or .05 .8 .8 .8 .8 .8)))))