Imports System
Public Class A100
Dim S As String, myDic
Dim i, key1, ans
Dim Flgs(1 To 3)


Public Shared Sub Main()
    S = Console.ReadLine()

    For i = 1 To 3
        Flgs(i) = "0"
    Next
    
    For i = 1 To 3
        key1 = Mid(S, i, 1)
        Select Case key1
        Case "a"
            Flgs(1) = "1"
        Case "b"
            Flgs(2) = "1"
        Case "c"
            Flgs(3) = "1"
        End Select
    Next

    ans = "Yes"
    For i = 1 To 3
        If Flgs(i) = "0" Then ans = "No"
    Next

    Console.WriteLine (ans)
    

End Sub
End Class
