real::p(300)=1;do i=6,300,2;print'(i0":"$)',i;do j=3,i/2,2;p(j*2::j)=0 if(p(j)*p(i-j)>0)print'(xi0spi0$)',j,i-j;enddo;print*;enddo;end