p F[gets.hex,2e13]while F=proc{|a,b|a<r=1or(1..11).find{r<=(c=a%r<<=4)&&c<b&&F[a/r,c]}}