import Data.List
import Data.Ord
import Data.Char
import Data.Ratio
import Data.Maybe

main = do
  [_,_,x,y] <- map (read::String->Int) . words <$> getLine
  xmax <- maximum . map (read::String->Int) . words <$> getLine
  ymin <- minimum . map (read::String->Int) . words <$> getLine
  putStrLn $ war [z|z<-[x..y], xmax<z, z<=ymin]
  
war l
  |length l/=0 = "No War"
  |otherwise   = "War"