LIB "tst.lib"; tst_init(); ring r=(5,a),x,dp; minpoly=a2-2; LIB"ring.lib"; rootofUnity(6); tst_status(1);$