Consort bonding and operant behavior by female rhesus monkeys.