sub compress {pack'b*',join'',map{sprintf'%07b',ord}split//,pop}