solve :: String -> Int
solve ('x':xs) = 2 ^ 32 - read xs :: Int
solve xs = read xs

main :: IO ()
main = do
  s <- getLine
  print $ solve s