my $f = <DATA>;
my $dest = compress($f);
#print $dest;
__DATA__
big big string
ssssssssssssssssssssssss
mmmmmmmmmmmmmmmmmmmmmmmmm
as long as possible...