sub new_dump_buf_3 {
    my $buf = shift;
    sprintf q{%3d } x (length($buf) - 1) . q{%3d}, unpack 'C*', $buf;
}