program main
  implicit none
  integer :: i
  character(16) :: c

  do i = 1, 3
    read*, c
    print*, trim(c)
  enddo
end program main