Imports System

Module Program
    Sub Main(args As String())
        Dim S = Console.ReadLine()

        If S.Last() = "s" Then
            Console.WriteLine(S + "es")
        Else
            Console.WriteLine(S + "s")
        End If
    End Sub
End Module
