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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page