program sample
implicit none
character(len=13) :: x,y
integer(8) :: i,j
real(8),allocatable :: a(:),b(:)

read(*,*) x

do i=13,6,-1
x(i:i)=x(i-1:i-1)
end do

x(5:5)=''

write(*,*) trim(x)
!write(*,*) a

end program sample