print_list(List):-	consult(prog12),
			List(X),
			printout(X).

printout([ ]).

printout([H|T]):- 	write(H),nl,
			printout(T).