real p(300);do1 i=6,300,2;print'(i0h:$)',i;do2 j=3,i/2,2;p(j*2::j)=9;2 if(p(j)+p(i-j)<1)print'(xi0spi0$)',j,i-j;1 print*;end