Imports System

Module Program
    Sub Main(args As String())

        Dim StrS As String = Console.ReadLine()
        Dim LenS As Integer = Len(StrS)
        Dim StrX As String = ""

        Dim i As Integer = 1
        For i = 1 To LenS
            StrX = StrX & "x"
        Next

        Console.WriteLine(StrX)
    End Sub
End Module
