while(stable &&(individual != wife))
{
individualsmate = mate(individual,
wpairs);
if(prefers(individual,man,
individualsmate,wpriority))
stable = FALSE;
else
index++;
individual = nextpreferred(man,
index,mpref);
}