Test Examples Test programs that run on Mathematica 13.1 Equal length if segments Angle trisection Regular heptagon Yacht