buk2 => sub {
        local $_;
        1+index $_[0], $_ or return while $_ = chop $_[1];
        1;
    },