import Data.List

exist :: Int -> Int -> [Int] -> [Int] -> Bool
exist x' y' xs ys =
  case find (\z -> and (map (< z) xs) && and (map (>= z) ys)) zs of
    Just _  -> True
    Nothing -> False
 where zs = [(x'+1)..y']

main = do
  [_, _, x', y'] <- map read.words <$> getLine
  xs <- map read.words <$> getLine
  ys <- map read.words <$> getLine
  if exist x' y' xs ys then putStrLn "No War" else putStrLn "War"
