Gravar-mail: The effects of shock as a punisher for cigarette smoking