N = gets.to_i
MOD = 10 ** 9 + 7
S = gets.chomp 


ans = 1
if S[0] == 'W' || S[2 * N - 1] == 'W'
	puts '0'
	exit
end
1.upto(N) do |i|
	ans *= i
	ans %= MOD
end

check = true
cnt = 1
1.upto(2 * N - 1) do |i|
	if S[i] == S[i - 1] 
		check = !check
	end
	if check
		cnt += 1
	else
		ans *= cnt
		ans %= MOD
		cnt -= 1
	end
end
if cnt == 0
	puts ans
else
	puts '0'
end