Module Program
    Sub Main(args As String())
        Dim iInputK As Integer = Console.ReadLine()
        Dim sInputS As String = Console.ReadLine()

        If sInputS.Length <= iInputK Then
            Console.WriteLine(sInputS)
        ElseIf sInputS.Length > iInputK Then
            Console.WriteLine(Left(sInputS, iInputK) + "...")
        End If
    End Sub
End Module