/*                                              */
/*     phi--compute euler phi(n)                */
/*                                              */
long phi(n)
long n;
{
	long i,p;
	p = 1L;
	i = 2L;
	while (n > 1L)
	{
		if (n % i == 0L)
		{
			p *= (i-1L);
			n /= i;
			while (n % i == 0L)
			{
				p *= i;
				n /= i;
			}
		}
		i += 1L;
	}
	return(p);
}