sub id2path_new {
    my $id   = shift or return q();
    my( $pat, @d ) = length $id > 6 ? ('%09d',6,3) : ('%06d',4,2);
    $id = sprintf $pat, $id;
    substr $id, -$_, 0, '/' for @d;
    return $id;
}