main = do
  s <- getLine
  [x, y] <- map read . words <$> getLine
  putStr $ solve s x y

solve s x y = judge $ move x y s

move x y [] = [(0, 0, x, y)]
move x y (c:cs) = move x y cs >>= step  c

step 'F' (x0, y0, x1, y1) = [(x0 + 1, y0, x1, y1)]
step 'T' (x0, y0, x1, y1) = [(x0, y0, -y1, x0), (x0, y0, y1, -x0)]

judge zs
  | any goal zs = "Yes"
  | otherwise = "No"

goal (x0, y0, x1, y1) = (x0, y0) == (x1, y1)