Module Module1

  Sub Main(ByVal args() As String)
    Dim ok_cnt As integer
    Dim ng_cnt As integer
    Dim res As Boolean = False
    Dim ar As String() = Console.ReadLine().Split(" ")
    Dim tmp(ar.Length) As String
    	
    For i As Integer = 0 To ar.Length-1 Step 1
    	ok_cnt = 0
    	ng_cnt = 0
    	Array.Copy(ar, tmp, ar.Length)
    	tmp(i) = ""
    
    
    	For j As Integer = 0 To tmp.Length-1 Step 1
    		If tmp(j) IsNot Nothing AndAlso tmp(j).ToString.Trim.Length > 0 Then
              If (ar(i) = tmp(j)) Then
                ok_cnt += 1
              Else 
                ng_cnt += 1
              End If
          	End If
       Next

      If ok_cnt = 1 AndAlso ng_cnt = 1 Then
        res = True
        Exit For
      End If
    
	Next
    

  If res Then
    Console.WriteLine("Yes")
  Else
    Console.WriteLine("No")
  End If
    
    
  End Sub
  
End Module