//
proc main;
	print  "'12' REGEX '2'";
	print REGEX('aBcDeF','C.E');
	print REGEX('aBcDeF','c.e');
	print "'abcDefg' iREGEX 'Cd'";
	print iREGEX('abcDefg','Cd');
	print REGEX('abc*D_efg','c\\*D');
	print REGEX('abc*D?efg','D\\?e');
	print REGEX('abcxD.efg','c\\*D');
	print REGEX('abcyD.efg','D\\?e');
	print REGEX('asd','');
	print REGEX('asd','()');
	print REGEX('','');
	print REGEX('','()');
	print REGEX('abcDefg','Cd','cde','bc?e');
	print REGEX('abcDefg',3,'Cd','cde','c.e');
	print REGEX('abcDefg',3,3,'Cd','cde','c.e');
	print REGEX('abcDefg',3..4,'Cd','cde','c.e');
	return ERROR;
end proc;
