<?
	for ($v = 1; $v <= 9; $v++) {	
		$flagnb='';$nb=0;
		for ($h = 1; $h <= 9; $h++) {		
			$case=$B[$h][$v];	
			$x=strlen($case);
			if($x==1){	
				$flagnb=$flagnb.$B[$h][$v];
				}
			else{
				$hs=$h;
				$vs=$v;
				}			
			}
		$l=	strlen(chop(trim($flagnb)));	
			if($l==8){
				$nb=0;	
				for($i = 0; $i <= 7; $i++){
					$z=substr($flagnb,$i,1);
					$nb=$nb+$z;				
				}
				$nb=45-$nb;
				if($nb>0){
					$B[$hs][$vs] = $nb;
				}					
			}
		}	
?>