$_=<>;chop;
$r=-1e20;
for(($_)x10){
  if(/^\d.*\d$/){
    $e=eval s/\b0*\B//r;
    $r=$e if $r<$e;
  }
  $c=chop;$_=$c.$_;
}
print$r