crypto.lib
LIB "crypto.lib"; ring r = 0,x,lp; find_first_primitive_root(7); ==> 3 find_first_primitive_root(557); ==> 2