shows(N,Out,Goal) :-
	nl,
	forall(between(1,N,_),
	       (once(Goal),print(Out),nl)).

shows(Out,Goal) :-
    nl,
	forall(Goal,
           (print(Out),nl)
          ).

show(Out,Goal) :- 
	Goal, 
	print(Out), 
	nl.