gets
d=[0]*$$
$<.map{_1.chop.bytes}.sort.map{|s|d[l=s[-1]]=[d[l],d[..s[0]].max+s.size].max if s==s.sort}
p d.max