s=show
p x=all((/=0).mod x)[2..x-1]
l x=putStrLn$concat$s(2*x):":":[' ':s a++'+':s(2*x-a)|a<-[2..x],p a,p$2*x-a]
main=mapM l[3..150]