sub log2 {
    my $n = shift;
    return log($n)/log(2);
}