for($,17,1e4,n:= $;while((n%10-(n=n/10|0)%10)abs>5,0)n>0or$println)