LIB "tst.lib"; tst_init();
  ring r=(complex,i),x,dp;
  repart(1+2*i);
tst_status(1);$