sub buk2{
	my $s = shift;
	substr $s, $_-1, 1 eq substr $s, $_, 1 and return for @_;
	return 1;
}