real p(4000);do i=1,2e3;p(i*2::i)=i;if(p(i-2)==p(i))print'(i0h,i0)',i-2,i;enddo;end