module Main where

import Data.Maybe
import qualified Data.ByteString.Char8 as BS

main :: IO ()
main = do
    [a,b]<-map (fst . fromJust . BS.readInt) . BS.words <$>BS.getLine
    print $ maximum [a+b,a-b,a*b]