%	A general "driver" program for sorting.

include "types.t"
include "getfile.t"
include  "sortgen.t"

function less(a,b:string): boolean
	result a < b
end less

function greater(a,b:string): boolean
	result a > b
end greater

var A,B:   namelist
var n:   int

GetFile(A,n)
B := A				% save A in B (N/A in all languages)

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

generalsort(A,n,less)
put " "
put "Sorted list in descending order:"
for i:1..n
	put A(i)
end for

generalsort(B,n,greater)
put " "
put "Sorted list in ascending order:"
for i:1..n
	put B(i)
end for