main = do
  [_, _, x, y] <- map read . words <$> getLine  :: IO [Int]
  xs <- map  read . words <$> getLine :: IO [Int]
  ys <- map  read . words <$> getLine :: IO [Int] 
  putStrLn $ if not $ null [z | z<-[(x+1)..y], (all (<z) xs) && (all (>=z) ys)] then "No War" else "War"