%
%	A general "driver" program for sorting without prompting.
%
%
include "types.t"
include "getfile.t"
include  "sort.t"

var A:   namelist
var n:   int

GetFile(A,n)

% put "Unsorted list:"
% for i:1..n
	% put A(i)
% end for
% 
sort(A,n)

put " "
put "Sorted list:"
for i:1..n
	put A(i)
end for