c234567
      program un
      character*72 piv1,piv2
      do 100 i=1,20000
      read(*,*,end=200)piv1
      read(*,*)piv2
      write(*,'(72A)')piv1
 100  continue
 200  continue
      end
