module Main (main)
    where

import Data.List

readIntegers :: String -> [Integer]
readIntegers = map read . words

solve :: [Integer] -> Integer
solve [a, b] = maximum $ [(+), (-), (*)] <*> [a] <*> [b] 

main :: IO ()
main = putStrLn . toStr. solve . readIntegers =<< getLine
    where toStr = show