dim p(3e4):for i=3to 150:?i*2,": ";:for j=3to i:p(i*j)=1:if!p(j)+p(i*2-j)?j,"+",i*2-j;
j=j+1next:?next