Modulation of the copulatory sequence of the male rat by a schedule of reinforcement.