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

list = S.map.with_index { |s, i|
  ch = if i.even?
         s == 'W' ? 'B' : 'W'
       else
         s
       end

  ch == 'B' ? 'R' : 'L'
}
 
l_cnt = 0
ans = 1

list.each do |c|
  if c == 'L'
    l_cnt += 1
  else
    if l_cnt == 0
      puts 0
      exit
    end

    ans = (ans * l_cnt) % MOD
    l_cnt -= 1
  end
end

if l_cnt > 0
  puts 0
  exit
end

(1..N).each do |i|
  ans = (ans * i) % MOD
end

puts ans
