function word_representative_test ( )

%*****************************************************************************80
%
%% word_representative_test() tests word_representative().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    15 January 2021
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'word_representative_test():\n' );
  fprintf ( 1, '  MATLAB/Octave version %s\n', version ( ) );
  fprintf ( 1, '  word_representative() returns the representative\n' );
  fprintf ( 1, '  for a boundary word.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  boundary word                representative\n' );
  fprintf ( 1, '\n' );
  for i = 1 : 4

    if ( i == 1 )
      w = 'AAKbBCCGGCfFIIII';
    elseif ( i == 2 )
      w = 'fFIIIIAAKbBCCGGC';
    elseif ( i == 3 )
      w = 'FIIIIAAKbBCCGGCf';
    elseif ( i == 4 )
      w = 'AKbBCCGGCfFIIIIA';
    end

    w_rep = word_representative ( w );
    fprintf ( 1, '  %-25s  %-25s\n', w, w_rep )

  end

  return
end

