procedure tnorm (file_name, n)

string file_name {prompt="Input file containing list of numbers"}
real n {prompt="Normalising factor"}
struct *flist

begin

	struct currentNUM
	real numerator
	real result			# result of the division

	flist = file_name


	while (fscan (flist, currentNUM) != EOF) {

		numerator=real(currentNUM)
		result = numerator/n
		print(result)

	}

end