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