samples/probability.lisp : sample for using beamer