x=gets.chomp
dp=Hash.new(0)
dp[x]=0
qu=[]
qu<<x
while qu.empty? == false
	y=qu.shift
	t=y.size
	t.times{|i|
		((i+1)..(t-1)).each{|j|
			((j+1)..(t-1)).each{|k|
				if y[i]!="0" && y[i]!=y[j] && y[j]==y[k]
					y1=y+"-"
					add=y1[i].to_i*100+y1[j].to_i*10+y1[k].to_i
					y1[i]=y1[j]=y1[k]="-"
					y1=y1.delete("-")
					if dp.key?(y1)==false
						dp[y1]=dp[y]+add
						qu.push(y1)
					else
						dp[y1]=[dp[y1],dp[y]+add].max
					end
				end
			}
		}
	}
end
puts dp.values.max