program y964 implicit none integer(8)::N,i,j,c=0 character(100000)::S read*,N do i=0,N-1 do j=1,N S(c+j:c+j)=char(9-i+48) end do c=c+N end do print*,S(1:c) end program y964