charac(i,k)
	int i,k;
	{int b;
	b = 100000;
	for (; i>0; i--)	b /= 10;
	return( (k%b) / (b/10) );
	};