program sample
    implicit none
    character(19)::s
    integer(8) :: i,j,m,n
    integer(8),allocatable :: x(:),y(:)
  
    read(*,'(a)') s
    
    write(*,'(a,x,a,x,a)') s(1:5),s(7:13),s(15:19)
  
    stop
end program sample
  

