import Control.Arrow
import Data.Char
import Data.List

main :: IO ()
main = do
  [a, b] <- getInts
  print . maximum $ [a + b, a - b, a * b]

getInts :: IO [Int]
getInts = map read . words <$> getLine
