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 Common Lisp (SBCL 1.1.14) (judge verdict: Wrong Answer)

(declaim (optimize (sped 3) (debug 0) (safety 0)))

(defun fact (n)
  (let ((p 1) (r 1) (NN 1) (log2n (floor (log n 2)))
        (h 0) (shift 0) (high 1) (len 0))
    (labels ((prod (n)
               (declare (fixnum n))
               (let ((m (ash n -1)))
                 (cond ((= m 0) (incf NN 2))
                       ((= n 2) (* (incf NN 2) (incf NN 2)))
                        (t (* (prod (- n m)) (prod m)))))))
      (loop while (/= h n) do
            (incf shift h)
            (setf h (ash n (- log2n)))
            (decf log2n)
            (setf len high)
            (setf high (if (oddp h) h (1- h)))
            (setf len (ash (- high len) -1))
            (cond ((> len 0)
                   (setf p (* p (prod len)))
                   (setf r (* r p)))))
      (ash r shift))))

(format t "~A~%" (let ((n (read))
                       (m (read)))
                   (case (abs (- n m))
                     (1 (if (> n m)
                            (mod (* (expt (fact m) 2) n) 1000000007)))
                            (mod (* (expt (fact n) 2) m) 1000000007)  
                     (0 (mod (* 2 (expt (fact n) 2)) 1000000007))
                     (t 0))))