 20    print *, 1
       do k=1,10
        do l=1,10
            print*,k,l
        enddo
      enddo
      if(0>1) goto 20
      end
