contain_only(to_big, to_find)
{
	local tmp;

	tmp = to_big;
	loop
	{
		if ([tmp] == 0)
			return 1;
		if (strchr(to_find, [tmp]) == 0)
			return 0;
		tmp++;
	}
}