main::IO()
main = do
  x:xs <-getLine
  let a1 = x:takeWhile (`elem` ['0'..'9']) xs
      (f:c:d) = drop (length a1 -1) xs
      a2 c d
        |c=='+'    =d
        |otherwise =c:d
      sgn '+' = -1
      sgn _   =  1

  print $ (read a1) + sgn f * (read $a2 c d)