my $s = <>; chomp $s;
my $n = length $s;
my @sa = split //, $s . $s;
my $ma = 0;
for (my $i = 0; $i < $n; $i++) {
  next if $sa[$i] eq '+' || $sa[$i] eq '-';
  next if $sa[$i + $n - 1] eq '+' || $sa[$i + $n - 1] eq '-';
  my $cand = eval (join('', @sa[$i..($i+$n-1)]));
  $ma = $cand if $ma < $cand;
}
print $ma;