main :: IO ()
main = do
  (n:a:b:c:d:_) <- map read . words <$> getLine :: IO [Int]
  s <- getLine
  putStrLn $ if solve a b c d s then "Yes" else "No"

solve a b c d s 
  | c < d = simple
  | otherwise = simple && passable
  where
    simple = reachable a c && reachable b d
    reachable x y = proceedable . drop (x-1) . take y $ s
    proceedable (s:[]) = True
    proceedable (s:ss:sss)
      | s == '#' && ss == '#' = False
      | otherwise = proceedable (ss:sss)

    passable = go . drop (b-2) . take d $ s
      where
        go (s:ss:[]) = False
        go (s:ss:sss:ssss)
          | s == '.' && ss == '.' && sss == '.' = True
          | otherwise = go (ss:sss:ssss)

