main = do
  m <- readLn :: IO Integer

  print $ (2 ^ 128) `mod` m