for i=17to 1e4n=i
1a=mod(n,10)
n=(n-a)/10
if(a-mod(n,10))^2>25goto 1
if!n?i
next