Option Explicit On
Option Strict On

Module Module1

    Sub Main()

        Dim S As String = Console.ReadLine()

        Dim out As String = ""
        Dim i As Integer

        For i = 1 To Len(S)
            out += "x"
        Next

        Console.WriteLine(out)

    End Sub

End Module
