function lollatz_inverse_test ( )

%*****************************************************************************80
%
%% lollatz_inverse_test() tests lollatz_inverse().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    16 June 2022
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'lollatz_inverse_test():\n' );
  fprintf ( 1, '  lollatz_inverse() applies the inverse Lollatz permutation\n' );
  fprintf ( 1, '  on a set of values U.\n' );

  uset = [ 3, 4, 5, 6, 7, 11, 13 ];
  fprintf ( 1, '  U values:\n' )
  disp ( uset )
  tset = lollatz_inverse ( uset );
  fprintf ( 1, '  T values:\n' )
  disp ( tset )

  return
end
