Imports System

Module Program
	Sub Main()
		Dim msg1, msg2 As String
		Dim s As String
		s = Console.ReadLine()

		msg1 = s.Substring(0, 4)
		msg2 = s.Substring(4, 8)

		Console.WriteLine(msg1 + " " + msg2)
	End Sub
End Module
