Impulsivity and drugs of abuse: a juice-reinforced operant procedure for determining within-session delay discounting functions in rhesus monkeys.