real :: m(1000) = 1
do j = 1, 2000, 2
    do i = 1000, 2, -1
        n = 10*m(i) + k
        k = n / i
        m(i) = n - k * i
    end do
    print'(ag0$)','2.'(j:),k
end do   
end