file2data(F) :-
	about(_,Min,Max),
	see(F),
	read(X),
	file2data1(X,Min,Max).

file2data1(end_of_file,_,_).