Module _20190425

    Sub Main()

        Dim sRead As String = Console.ReadLine()
        Dim iACityCount As Integer = sRead.Split(" ")(0)
        Dim iBCityCount As Integer = sRead.Split(" ")(1)
        Dim iX As Integer = sRead.Split(" ")(2)
        Dim iY As Integer = sRead.Split(" ")(3)

        Dim iAMax As Integer = -100
        Dim sAList() As String = Console.ReadLine().Split

        For i As Integer = 0 To iACityCount - 1

            If sAList(i) > iAMax Then

                iAMax = sAList(i)

            End If

        Next

        If iX > iAMax Then

            iAMax = iX

        End If

        Dim iBMin As Integer = 100
        Dim sBList() As String = Console.ReadLine().Split

        For j As Integer = 0 To iBCityCount - 1

            If sBList(j) < iBMin Then

                iBMin = sBList(j)

            End If

        Next

        If iY < iBMin Then

            iBMin = iY

        End If

        If iBMin > iAMax Then

            Console.WriteLine("No War")

        Else

            Console.WriteLine("War")

        End If

    End Sub

End Module