$compressed.= varbyte($x);
print "$x: ",length($x)," compressed ",length($compressed), "\n";