Problem:
Score : 300 points

Problem Statement

Snuke has N dogs and M monkeys. He wants them to line up in a row.

As a Japanese saying goes, these dogs and monkeys are on bad terms. ("ken'en no naka", literally "the relationship of dogs and monkeys", means a relationship of mutual hatred.) Snuke is trying to reconsile them, by arranging the animals so that there are neither two adjacent dogs nor two adjacent monkeys.

How many such arrangements there are? Find the count modulo 10^9+7 (since animals cannot understand numbers larger than that).
Here, dogs and monkeys are both distinguishable. Also, two arrangements that result from reversing each other are distinguished.

Constraints

1 ≤ N,M ≤ 10^5

Input

Input is given from Standard Input in the following format:

N M

Output

Print the number of possible arrangements, modulo 10^9+7.

Sample Input 1

2 2

Sample Output 1

8

We will denote the dogs by A and B, and the monkeys by C and D. There are eight possible arrangements: ACBD, ADBC, BCAD, BDAC, CADB, CBDA, DACB and DBCA.

Sample Input 2

3 2

Sample Output 2

12

Sample Input 3

1 8

Sample Output 3

0

Sample Input 4

100000 100000

Sample Output 4

530123477

Solution in Pascal (FPC 2.6.2) (judge verdict: Accepted)

program reconciled;
uses math;
const
  md: int64 = 1000000007;
  f10000: int64 = 531950728;
  f20000: int64 = 368774859;
  f30000: int64 = 548996970;
  f40000: int64 = 422550956;
  f50000: int64 = 737935835;
  f60000: int64 = 309944332;
  f70000: int64 = 296716438;
  f80000: int64 = 65533322;
  f90000: int64 = 851076783;
  f100000: int64 = 457992974;
function fact(n: int64): int64;
var
  i, k, f: int64;
begin
  f := f100000;
  k := 100001;
  if n < 100000 then
  begin
    f := f90000;
    k := 90001;
  end;
  if n < 90000 then
  begin
    f := f80000;
    k := 80001;
  end;
  if n < 80000 then
  begin
    f := f70000;
    k := 70001;
  end;
  if n < 60000 then
  begin
    f := f50000;
    k := 50001;
  end;
  if n < 50000 then
  begin
    f := f40000;
    k := 40001;
  end;
  if n < 40000 then
  begin
    f := f30000;
    k := 30001;
  end;
  if n < 30000 then
  begin
    f := f20000;
    k := 20001;
  end;
  if n < 20000 then
  begin
    f := f10000;
    k := 10001;
  end;
  if n < 10000 then
  begin
    f := 1;
    k := 1;
  end;
  for i := k to n do
    f := i*f mod md;
  fact := f;
end;
var
  n, m, x: int64;
begin
  read(n, m);
  if abs(n-m) > 1 then
  begin
    writeln(0);
    halt(0);
  end;
  x := ifthen(n = m, 2, 1);
  x := x*fact(n) mod md;
  x := x*fact(m) mod md;
  writeln(x);
end.