Select Code to Download

sub shrink {
    my $dbit = 0;
...
        vec($_[0], $dbit, 1) = $dbit % 8 == 7 ? 0 : vec($_[0], $sbit--
+, 1);
    }
}