main :: IO()
main = do
    [_,_,x,y] <- map read . words <$> getLine
    xls <- map read . words <$> getLine
    yls <- map read . words <$> getLine
    putStrLn $ if (judge x y xls yls) then "War" else "No War"

--戦争起こるならTrue 起こらないならFalse
judge :: Int -> Int -> [Int] -> [Int] -> Bool
judge x y xls yls
    | xmax >= ymin			= True
    | ymin <= x				= True
    | xmax >= y				= True
    | otherwise				= False
    where xmax = maximum xls
          ymin = minimum yls



