function P = matchproc2(N0)
global m n N
N = N0;

m = N;
n = N;

P = zeros(m^n,1);
for xi=1:m^n
  x = i2c(xi);
  b = goodmatch(x);
  P(xi) = b;
end
P = P/sum(P);

return

function b = goodmatch(x)
b = (length(x)==length(unique(x)));
return