program voda;
var i,r,s: shortint;
    a: array[1..10] of char;
    k: integer;
begin
k:=1;
readln (r,s);
for i:=1 to r do
        readln(a);
if r=s then begin
        for i:=1 to r do begin
                k:=k*i;
        end;
        k:=k*(r-1);
end else
if r=2 then begin
        for i:=1 to s-1 do begin
                k:=k*2;
        end;
end
else if (r=1) or (s=1) then k:=1
else k:=1;
writeln (k mod 10007);
end.