main :: IO ()
main = do
  [numberOfA, numberOfB, positionOfA, positionOfB] <- map read . words <$> getLine
  positionOfAs <- map read . words <$> getLine
  positionOfBs <- map read . words <$> getLine
  let maxOfAs = maximum (positionOfAs ++ [positionOfA] :: [Int])
  let minOfBs = minimum (positionOfBs ++ [positionOfB] :: [Int])
  putStrLn $ if maxOfAs < minOfBs then "No War" else "War"