checksamemolecules(Atoms1,Bonds1,Atoms2,Bonds2) :- 
	Bonds1 = [Bond | _Bonds], Bond = [Atom1, Atom2], 
	checksamemolecules(Atom1, Atoms1, Bonds1, Atoms2, Bonds2, Atoms1, Atoms2).
checksamemolecules2(Atom1, Atoms1, Bonds1, Atom2, Bonds2, Atoms2, Atoms4) :-