mais_voo_aviao_menu:-findall(avioes(A,B,C,data(D,E,F),G,H,I,J),avioes(A,B,C,data(D,E,F),G,H,I,J),L),Soma is 0,contarhistoricovoos(L, Soma, L2).
contarhistoricovoos([],0,L2):- !.
contarhistoricovoos([avioes(A,B,C,data(D,E,F),G,H,I,J)|T],X,L2):-contarelementoslista(J,N), contarvoos(X,N,M), write(N), contarhistoricovoos(T,X,L2).
contarvoos(0,0,0):- !.
contarvoos(X,N,M):- X>N, !.
contarvoos(X,N,M):- N>X, M is N.