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