main::IO()
main = do
  x:xs <-getLine
  let a = x:takeWhile (`elem` ['0'..'9']) xs
      (f:b) = drop (length a -1) xs
      sgn '+' = -1
      sgn _   =  1

  print $ (read a) + sgn f * (read b)