input = getLine :: IO String
ii = readLn :: IO Int
li = map read . words <$> getLine :: IO [Int]

mo = 10^9 + 7

main = do
  n <- ii
  print (n `mod` mo)