//
proc main;
	loop 2;
	print in('yy','yy','A');
	print iin('YY','yy','A');
	bexp a = 'AA' in 'yy' 'AA';
	bexp b = 'AA' iin 'yy' 'aa';
	print a b;
	print in('yy','xx','A');
	print iin('YY','XX','A');
	bexp a = 'AA' in 'yy' 'BB';
	bexp b = 'AA' iin 'yy' 'bb';
	print a b;
	end loop;
	return ERROR;
end proc;
