talostruct([talo(N1, punainen, englanti, E1, J1, T1, V1),
	talo(N2, V2, espanja, koira, J2, T2, V2),
	talo(N3, vihrea, K3, E3, kahvi, T3, valkoinen),
	talo(N4, V4, ukraina, E4, tee, T4, V4),
	talo(N5, valkoinen, K5, E5, J5, T5, V5),
	talo(N6, V6, K6, etana, J6, winston, V6),
	talo(N7, keltainen, K7, E7, J7, kools, hevonen),
	talo(3, V8, K8, E8, maito, T8, V8),
	talo(1, V9, norja, E9, J9, T9, V9),
	talo(N10, V10, K10, E10, J10, chesterfield, kettu),
	talo(N11, V11, K11, kettu, J11, T11, V11),
	talo(N12, V12, K12, hevonen, J12, T12, V12),
	talo(N13, V13, K13, E13, appelsiinimehu, luckystrike, V13),
	talo(N14, V14, japani, E14, J14, parliament, V14),
	talo(N15, sininen, K15, E15, J15, T15, norja)]).

numero(talo(N, A, B, C, D, E, F)):-
	talostruct(Talolista),
	numerohaku(talo(N, A, B, C, D, E, F), Talolista).

numerohaku(talo(N, A, B, C, D, E, F), [talo(N, A, B, C, D, E, F)|T]).

numerohaku(talo(N, A, B, C, D, E, F), [H|T]):-
	numerohaku(talo(N, A, B, C, D, E, F), T).

vierekkain(talo(A1, B1, C1, D1, E1, F1, G1), talo(A2, B2, C2, D2, E2, F2, G2)):-
	talostruct(Talolista),
	vierekkaishaku(talo(A1, B1, C1, D1, E1, F1, G1), Naapurilista1, Talolista),
	vierekkaishaku(talo(A2, B2, C2, D2, E2, F2, G2), Naapurilista2, Talolista),
	member(talo(A1, B1, C1, D1, E1, F1, G1), Naapurilista2),
	member(talo(A2, B2, C2, D2, E2, F2, G2), Naapurilista1).