/* factorial de um n£mero int */

double fact(i)
int i;
{
	double r=1;

	while(i>1)
		r=r*i--;

	return(r);
}