import Data.List
main = do
       as<-getLine
       xs<-getLine
       ys<-getLine
       let (n:m:x:y:[])=(map read . words) as::[Int]
           xs2=(map read . words) xs::[Int]
           xs3=x:xs2
           ys2=(map read . words) ys::[Int]
           ys3=y:ys2
           x2=(maximum xs3)+1
       putStrLn $ if length (filter (>=x2) ys3)==length ys3 then "No War" else "War"
       -- your code goes here