sub colorme
{
	my $index = our $isSolv;
	our %wtpercentcolor;
	our $wtpercentcolor;
	our $numChem;
	for (0..$numChem){
		$wtpercentcolor{$_} = "white";
	};	
	$wtpercentcolor{$index} = "black";
	#$wtpercentcolor = "black"
};