f=->s{i=r=0;s.chars{|a|j=b=i;(k=j;((t=s.dup;t[i]=t[j]=t[k]='';r=[r,(a+b+b).to_i+f[t]].max)if a>?0&&b!=a&&b==s[k])while s[k+=1])while b=s[j+=1];i+=1};r};p f[gets]