sub next_power_of_two {
    my %s;
    @s{1..shift} = ();
    local $_ = %s;
    return m{/(.*)};
}