
p xs ys z = all (<z) xs && all (z<=) ys

bta True = "No War"
bta False = "War"

main = do
  [n,m,x,y] <- map read . words <$> getLine :: IO [Int]
  xs <- map read . words <$> getLine :: IO [Int]
  ys <- map read . words <$> getLine :: IO [Int]
  putStrLn . bta . any (p xs ys) $ [x+1..y]
