
inFile<-'http://canisius.edu/~yany/doc/obama2008.txt'
a<- readLines(inFile)




