import Data.List
import Data.Bool

readInt :: String -> Int
readInt = read

main = do
    [n,m,x,y] <- map readInt.words<$>getLine
    xs <- map readInt.words<$>getLine
    ys <- map readInt.words<$>getLine
    putStrLn $ bool "War" "No War" $ solve x y xs ys

solve :: Int -> Int -> [Int] -> [Int] -> Bool
solve x y xs ys = maximum (x:xs) < minimum (y:ys) 