a=ExampleData[{"Text","DonQuixoteIEnglish"},"Words"]

ByteCount[a]

ByteCount[Compress[a]]