sub gender # 1 - woman; 0 - man
{
	my ($name) = @_;

	return 1 if $name=~"я\$";
	return 1 if $name=~"а\$";
	return 1 if $name=~"о\$";
	return 1 if $name=~"ы\$";
	return 1 if $name=~"э\$";
	return 1 if $name=~"е\$";
	
	return 1 if $name=~"a\$";
	return 1 if $name=~"o\$";
	return 1 if $name=~"i\$";
	return 1 if $name=~"e\$";
	
	return 1 if $name=~"Я\$";  # shit
	return 1 if $name=~"А\$";
	return 1 if $name=~"О\$";
	return 1 if $name=~"Ы\$";
	return 1 if $name=~"Э\$";
	return 1 if $name=~"Е\$";
	
	return 1 if $name=~"A\$";
	return 1 if $name=~"E\$";
	return 1 if $name=~"O\$";
	return 1 if $name=~"I\$";

	return 0;
}