s=show main=mapM putStrLn$[s x|x<-[1..10^6],and[y`elem`s x|y<-"123456"],not$'5'`elem`s(432099+x)]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page