main=mapM print[n|n<-[9..5^6],(n,n)&9] (q,r)&x=q+r<1||abs(r-x)>5&&divMod q 10&r
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page