Mine

/* Lab - 6 */domains		E = string*	T = string	predicates	enter_list(E)	test(E).	program.goal	program.	/* santa */clauses		program:-	write("\nВведите список\n(точка = прерывание)\n---\n"),		enter_list(Str), test(Str).		enter_list([H|T]):-		write("Ввод: "), readln(H), 		H <> "." ,!, enter_list(T).	enter_list([]).			test(Str):-		write("\n\nРезультат: \n\n"), write(Str).