f(n,r)=fordiv(n,d,d<n&r=max(r,f(d)));r+n%10+n\10-n\100*9
until(,print(f(input)))