Preventing unethical behavior of firms' managers through shame as a corporate culture