bayesian network sampler in common lisp