%
%	A general "driver" program for sorting.
%
%
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