main :: IO ()
main = do
  [n, m, x, y] <- getInts
  xs <- getInts
  ys <- getInts
  let
    mx = max x $ maximum xs
    my = min y $ minimum ys
    in
    putStrLn $ if mx < my
               then "No War"
               else "War"

getInts :: IO [Int]
getInts = map read . words <$> getLine
