var i,j:word=3;a:array[3..22201]of byte;begin repeat write(i*2,":");j:=3;repeat if
a[j]+a[i*2-j]<1then write(^`,j,"+",i*2-j);a[i*j]:=1;j:=j+2until j>i;writeln;i:=i+1until 0>0end.