main=mapM print z z=[n*10+a|n<-[1..9]++z,n<999,a<-[0..9],5<abs(mod n 10-a)]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page