#!/usr/bin/env perl

use strict;
use warnings;

my ($a, $b) = split / /,<>;
print $a * $b % 1000000007