  n = 7;

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Random permutations of %d objects\n', n );
  fprintf ( 1, '\n' );

  for test = 1 : 10

    p = rand_perm ( n );

    for i = 1 : n
      fprintf ( 1, '  %2d', p(i) );
    end
    fprintf ( 1, '\n' );

  end
