main = do
  [a, b] <- map read . words <$> getLine :: IO [Integer]
  print $ a * b `mod` 1000000007