a 0=[]\x0d a n=(mod n 10):a(div n 10)\x0d main=mapM_ print[x|x<-[10..9999],all((>5).abs)$zipWith(-)(a x)(tail$a x)]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page