long
_absl(i)
	long i;
{
	return i >= 0 ? i : -i;
}