function word_representative_test ( )

%*****************************************************************************80
%
%% word_representative_test() tests word_representative().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    08 December 2021
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'word_representative_test():\n' );
  fprintf ( 1, '  word_representative() is given a boundary word, and\n' );
  fprintf ( 1, '  returns the representative of its equivalence class.\n' );

  w = 'EFFCCFEFAGFEEFAAAAABCBBB';
  p = [ 0, 0 ];
  name = 'gort variation:';
  word_print ( w, p, name );

  w2 = word_representative ( w );
  name2 = 'representative:';
  word_print ( w2, p, name2 );
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'word_representative_test():\n' );
  fprintf ( 1, '  Normal end of execution.\n' );

  return
end

