espaco(0).
espaco(C):-	write(" "),
			C1 is C - 1,
			espaco(C1).

coluna(0):-	nl.
coluna(C):-	write("X"),
			C1 is C - 1,
			coluna(C1).

coluna1(0).
coluna1(C):-	write("X"),
			C1 is C - 1,
			coluna1(C1).

quadrado(0,_).
quadrado(L,C):-	coluna(C),
				L1 is L - 1,
				quadrado(L1,C).

%?- quadrado(4,4).

tri(0).
tri(C):-	coluna(C),
		C1 is C - 1,
		tri(C1).

%?- tri(5).

tri2(0).
tri2(C):-	C1 is C - 1,
		tri2(C1),
		coluna(C).

%?- tri2(5), tri2(5).

tri3(0,_).
tri3(C,D):-	E is D - C,
			espaco(E),
			coluna(C),
			C1 is C - 1,
			tri3(C1,D).

?- tri3(5,5).

tri4(0,_).
tri4(C,D):-	E is D - C,
			C1 is C - 1,
			tri4(C1,D),
			espaco(E),
			coluna(C).

%?- tri4(5,5).

los1(0,_).
los1(C,D):-	E is D - C,
			C1 is C - 1,
			los1(C1, D),
			espaco(E),
			coluna1(C),
			coluna(C).

%?- los1(5,5).

los2(0,_).
los2(C,D):-	E is D - C,
			C1 is C - 1,
			espaco(E),
			coluna1(C),
			coluna(C),
			los2(C1,D).

%?- los1(5,5), los2(5,5).

trape(0,_).
trape(C,D):-	E is D - C,
			C1 is C - 1,
			trape(C1,D),
			espaco(E),
			coluna1(C),
			coluna1(D),
			coluna(C).

%?- trape(5,5).