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

accS=0
ans=1
S.each_char do |c|
  if (accS.even? && c=="B") || (accS.odd? && c=="W")
    accS+=1
    #print "["
  else
    ans*=accS
    ans%=MOD
    accS-=1
    #print "]"
  end
end
if accS!=0
  p 0
  exit
end

N.times do |i|
  ans*=(i+1)
  ans%=MOD
end
p ans
