The effects of electric shock on responding maintained by cocaine in rhesus monkeys