Option Explicit On

Module Module1

    Sub Main()

        Dim K As Integer = Console.ReadLine()
        Dim S As String = Console.ReadLine()

        If Len(S) <= K Then
            Console.WriteLine(S)
        Else
            Console.WriteLine(Left(S, K) & "...")
        End If

        Console.ReadLine()

    End Sub

End Module
