use strict;
use warnings;
use utf8;

use bigint;

my ($a, $b) = split / /, <>;
my $ans;
if ($a%2 == $b%2) {
    $ans = ($a+1)*($b+1) + $a*$b;
} else {
    $ans = ($a+1)*$b + $a*($b+1);
}
print $ans % (10**9+7), "\n";