import Control.Arrow
import Data.List
import qualified Data.ByteString.Char8 as B
import Control.Monad 

main :: IO ()
main = breads >>= main'
    where
        main' [_, _, x, y] = replicateM 2 breads >>= putStr . solve x y >> putStrLn "War"

solve :: Int -> Int -> [[Int]] -> String 
solve x y [xs, ys]
    | maximum (x : xs) < minimum (y : ys) = "No "
    | otherwise = ""

breads :: IO [Int]
breads = unfoldr (\s -> second (maybe B.empty snd . B.uncons) <$> B.readInt s) <$> B.getLine