program prog
      parameter(n=2)
      do i=1,n
        write(6, *) i
      enddo
      end