// xcos.hpc -- Calculate the cosine -*- C -*-

declare xcos(x) : s(0), n(0) {
	for (; n < 20; ++n)
		s += (-1)**n * x**(2*n) / (2*n)!;
	s;		// Return value
}