var i,j,k:word=6;function f(n,p:word):word;begin for k:=2to n do p:=p*2mod n;f:=p;end;begin repeat write(i,':');for j:=3to i div 2do if f(j,1)*f(i-j,1)=1then write(^`,j,'+',i-j);writeln;i:=i+2until i=302end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).