main = getLine >> getLine >>= print . cardf . map read . words

cardf :: [Int] -> Int
cardf (n:ns) = cardf' n ns
 where
  cardf' acc [] = acc
  cardf' acc (n:ns) = maximum [cardf' (acc+n) ns, cardf' (acc-n) ns, cardf' (acc*n) ns]