An experimental investigation of the functional relationship between social phobia and cigarette smoking.