function treepack_test08 ( )

%*****************************************************************************80
%
%% treepack_test08 tests tree_arc_random.
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    28 June 2013
%
%  Author:
%
%    John Burkardt
%
  nnode = 4;

  fprintf ( 1, '\n' );
  fprintf ( 1, 'TREEPACK_TEST08\n' );
  fprintf ( 1, '  TREE_ARC_RANDOM produces a random labeled\n' );
  fprintf ( 1, '  tree and its Pruefer code.\n' );
  fprintf ( 1, '\n' );
 
  for i = 1 : 5

    [ icode, inode, jnode ] = tree_arc_random ( nnode );

    graph_arc_print ( nnode-1, inode, jnode, '  The random tree:' );

    i4vec_print ( nnode-2, icode, '  The Pruefer code:' );

  end
 
  return
end
