sub bits_needed {
    my ( $unsigned, $resolution ) = @_;
    my $bits_needed = floor( log2( $unsigned ) ) + 1;
    $bits_needed += $resolution - $bits_needed % $resolution
        if defined $resolution;
    return $bits_needed;
}