implicit none
integer(8) :: a,b,c,d
character(12) :: s
read(*,*) s
write(*,*) s(1:4)//" "//s(5:12)

!if ( len_trim(s)>=a .and. len_trim(s)<=b ) then
!    write(*,*)  "YES"
!else
!    write(*,*) "NO"
!endif

end