find_total(0,[]).

find_total(Total,[H|T]):-	find_total(SubT,T),
				Total is H + SubT.

find_average(0,[]).

find_average(Average,List):-
		find_total(Total,List),
		find_number(Number,List),
		Average is Total/Number.

find_number(0,[]).

find_number(N,[ _ | T ]):-
		find_number(Nn,T),
		N is Nn + 1.

find_max(X,[X]).

find_max(H,[H|T]):-		find_max(Max,T),
				H > Max.

find_max(Max,[H|T]):-	find_max(Max,T),
				H =< Max.