program sample
    implicit none
    character(100)::s,t
    integer(8) :: i,j,k,m,n,h,w
    integer(8)::a,b,c,d
    character(10000),allocatable::x(:),y(:)
  
    read(*,*) h,w
    allocate(x(h),y(2*h))  
    do i=1,h
        read(*,*)s
        write(*,*)s
        write(*,*)s
        !y(i*2-1)=x(i)
        !y(i*2)=x(i)
    end do
    
    stop
end program sample
  

