func main()
	var n: int :: cui@inputInt()
	var m: int :: cui@inputInt()
	var s: []char :: cui@input()
	
	var w: int :: 0
	var a: int :: 0
	var c: int :: 0
	
	var ans: bool :: true
	for i(0, ^s - 1)
		switch(s[i])
		case 'W'
			do w :+ 1
		case 'A'
			do a :+ 1
		case 'C'
			do c :+ 1
			if(a < c)
				do ans :: false
				break i
			end if
			do a :- 1
		end switch
	end for
	do cui@print((ans ?("Yes", "No")) ~ "\n")
end func