% p: período

p([]) :- !.

p(P) :- format("~nPeríodo: ~d.~n~n",[P]), forall(p(S,P),descrição_gp(S)), nl.