Bressoud's Algorithm Implemented in Mathematica