On the Evolutionary Function of Shame