buggy bayesian function is made to remember how to write Erlang.

testTurn() ->
    turn({0.5, 0.5}, [0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1], 0).

2> bayes:testTurn().
{ok,{1.1495421245421245,-0.0828754578754578},15}
3>

OMG! probability is larger than 1.