import Data.List
  
main = do
 [_,_,x,y] <- map read . words <$> getLine  :: IO [Int]
 xs <- sort . (x:).map read .words <$> getLine
 ys <- sort . (y:).map read .words <$> getLine
 putStrLn $ if ((xs++ys)) == (sort (xs++ys)) && ((xs++ys))==(nub(xs++ys)) then "No War" else "War"