LIB "tst.lib"; tst_init();
LIB "atkins.lib";
ring R = (real,60),x,dp;
number ww=288469650108669535726081;
sqr(ww,60);
tst_status(1);$