sub f{
	pop=~/([1-9])(.*)(?!\1)(.)(.*)\3(?{
		push@_,["$1$3$3","$2$4$'"]
	})^/;
	(sort{$b-$a}map"@$_"+f($$_[1]),@_)[0]
}
print 0+f<>