
barras([]).

barras([N|L]):-
		estrellas(N),
		nl,
		barras(L).

estrellas(N):-
		N>0,
		write(*),
		N1 is N - 1,
		estrellas(N1).

estrellas(N):-
		N =< 0.
