import Data.List

main = do
  [_,_,x,y] <- map read . words <$> getLine
  xs  <- sort . (:) x . map read . words <$> getLine :: IO [Int]
  ys  <- sort . (:) y . map read . words <$> getLine :: IO [Int]
  putStrLn $ if last xs < head ys then "No War" else "War" 