// delete water
oDestroy (Atoms[] | aClassRLS Atoms[] == 'sol');

// delete empty residues
oDestroy (Residues[] | oChildCount Residues[] == 0);

// delete empty chains
oDestroy (Chains[] | oChildCount Chains[] == 0);

result = Chains[];