Mathematica notebook for nontransitive dice