buk => sub {
        my( $s, $w ) = @_;
        1+index $s, $_ or return while $_ = chop $w;
        1;
    },