maxmin([H|T],Max,Min) :-
	once(maxmin(T,H,H,Max,Min)).
maxmin([],Max,Min,Max,Min).
maxmin([H|T],Max,Min,A,B) :-
	H < Min,
  	maxmin(T,Max,H,A,B).
maxmin([H|T],Max,Min,A,B) :-
  	H > Max,
  	maxmin(T,H,Min,A,B).
maxmin([_|T],Max,Min,A,B) :-
  	maxmin(T,Max,Min,A,B).