WMA link
Uncompress
Compress
Compress["Mathics is cool"]
Uncompress[%]
a = x ^ 2 + y Sin[x] + 10 Log[15];
b = Compress[a];
Uncompress[b]