findifs.lib
LIB "findifs.lib"; ring r = (0,dh,dt,theta,A),t,dp; npar(dh); ==> 1 number T = theta; npar(T); ==> 3 npar(dh^2); ==> Incorrect parameter ==> 0