buk4 => sub {
        ( -1 != index $_[0], chop $_[ 1 ] ) || return for 1 .. length $_[ 1 ];
        1;
    },