p *$<.map(&f=->n{(1...n=n.to_i).map{|d|n.to_s.sum%48+f[d-n%d*n]}.max||1})