fun find([],[]) =
		1
 |	find([],_) =
		0
 |	find(_, []) =
		0
 |	find(hd1::listOrd, hd2::nine) =
		if (hd1 = hd2) then
			find(listOrd, nine)
		else
			find(hd1::listOrd,nine)
;