An Experimental Investigation of the Functional Relationship between Social Phobia and Cigarette Smoking