You can use Compress to reduce the amount of memory used to store an expression
Compressing an image reduces the amount of memory used to store it to a symbol:
Wolfram Language code: a = ExampleData[{"Text", "DonQuixoteIEnglish"}, "Words"]Wolfram Language code: ByteCount[a]Wolfram Language code: ByteCount[Compress[a]]