program main implicit none integer::i,j,k,n character(1000)::str,ans read*,n do i=1,n read(*,'(a)')str str=str(1:len_trim(str)) write(*,'(a)',advance='no')str end do print*,"" end program