sub id2path {
    my $id = shift;
    return q() unless $id;

    my $path;
    if ($id > 999_999) {
        $path = sprintf '%03d/%03d/%03d', $id / 1_000_000,
                                          ($id / 1_000) % 1_000,
                                          $id % 1_000;
    } else {
        $path = sprintf '%02d/%02d/%02d', $id / 10_000,
                                          ($id / 100) % 100,
                                          $id % 100;
    }
    return $path;
}