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