Function s($a)
	
	Dim $,$d,$c
	
	$=' '
	For $d=1 to $a
		$=W+$+B
		$c=$c+$a+2
	Next
	ReDim $s[$c]
	For $a=0 to $c
		$s[$a]=$
		$=Split($)
		$c=$[1]
		$=$[0]
		$d=Right($,2) ;Right chrs of Left Half
		Select
			Case $d=WB
				$=Left($,-2)+' BW'+$c
			Case Left($c,2)=WB
				$=$+'BW '+Right($c,-2)
			Case $d<W & Left($c,1)=B
				$=$+'B '+Right($c,~)
			Case 1
				$=Left($,~)+' W'+$c	
EndFunction