import Control.Applicative ((<$>))

main :: IO ()
main = solve <$> (map read <$> words <$> getLine) >>= print

solve :: [Int] -> Int
solve [a, b] = a * b `mod` 1000000007