domains

	E = string*
	T = string

predicates
	
	enter_list(E)
	test(E).

goal

	enter_list(Ls),
	test(Ls).
	
clauses

	enter_list([H|T]):-
		write("Ввод списка Ls[...]: "),
		readln(H), H <> ".",!,
		enter_list(T).
	enter_list(Ls):-
		write("\n\n").
		
	test(Ls):-
		write(Ls).