import Data.Int (Int64)

main :: IO ()
main = do
    let m = 1000000007 :: Int64
    [a, b] <- fmap read . words <$> getLine :: IO [Int64]
    print $ a * b `mod` m