main=[3]%[5..301]
(#)=shows
p%(q:n:x)=putStrLn(unwords$n#":":[a#"+"++b#""|a<-p,b<-p,a<=b,a+b==n])>>(p++[q|all((0<).mod q)p])%x