a 0=[]
a n=(mod n 10):a(div n 10)
main=mapM_ print[x|x<-[10..9999],all((>5).abs)$zipWith(-)(a x)(tail$a x)]