module Main where

import           Control.Monad
import           Data.List

readInt :: String -> Int
readInt = read

main :: IO()
main = do
  [n,m,x,y] <- map readInt . words <$> getLine
  xs <- map readInt . words <$> getLine
  ys <- map readInt . words <$> getLine
  if solve x y xs ys
    then print "No War"
    else print "War"

solve :: Int -> Int -> [Int] -> [Int] -> Bool
solve x y xs ys =
  let
    overXtoY = [x+1..y]
    maxXs = maximum xs
    minYs = minimum ys
  in
    any (\z -> z > maxXs && z <= minYs) overXtoY
