leggi_stringa(S) :-
      leggi_lista_car(L),
      name(S,L).

leggi_lista_car(L) :-
       get0(C),
       leggi_lista_car_cont(C,L).

leggi_lista_car_cont(C,[]) :-
       C == 10.
leggi_lista_car_cont(C,L) :-
       C \== 10,
       L = [C|R],
       leggi_lista_car(R).


% Goal d'esempio:
%
% ?- leggi_stringa(S).
% |: ciao
% S = ciao
%
% ?- leggi_stringa(S).
% |: Domenica
% S = 'Domenica'