LIB "tst.lib"; tst_init();
LIB "atkins.lib";
ring r = (real,30),x,dp;
number z=40.35;
expo(z,1000);
tst_status(1);$