Module Module1

    Sub Main()
        Dim str As String = Console.ReadLine()
        Console.WriteLine(Left(str, 4) & " " & Right(str, 8))
        'If c2 > c1 Then Console.WriteLine(c1.ToString()) Else Console.WriteLine(c2.ToString())


        Dim yyyyy As Integer = 0
    End Sub

End Module




