LIB "tst.lib"; tst_init();
LIB "atkins.lib";
ring R25 = (real,25),x,dp;
number ww=288469650108669535726081;
number r=sqr(ww,25);
r;
r*r-ww;
ww;
ring R30 = (real,30),x,dp;
number ww=288469650108669535726081;
number r=sqr(ww,30);
r;
r*r-ww;
ww;
ring R60 = (real,60),x,dp;
number ww=288469650108669535726081;
number r=sqr(ww,60);
r;
r*r-ww;
ww;
tst_status(1);$