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