import Data.List

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