program grigo;
var f, g:text;
    i, j, p, n, m, nf, k:longint;
    a:array[1..10000] of longint;
  begin
  assign(f,'grigo.in'); reset(f);
  assign(g,'grigo.out'); rewrite(g);
  readln(f,n,m);
  for j:=1 to m do
    read(f,a[j]);
  nf:=n-1;
  k:=n-m;
  p:=1;
  for i:=(nf-k) to nf do
    p:=p*i mod 1000003;
  writeln(g,p);
  close(f);
  close(g);
  end.