main :: IO ()
main = do
  getLine :: IO String
  as <- map read . words <$> getLine :: IO [Integer]
  let
    l = length . filter (< 0) $ as
    as' = map abs $ as
    s' = sum as'
    m = minimum as'
    s = if even l then s' else s' - 2 * m
  print s
