

leggi_lista_car([C|R],Delimitatori) :-
       get0(C),
       \+ member(C,Delimitatori),!,
       leggi_lista_car(R,Delimitatori).
leggi_lista_car([],_).


% Goal d'esempio
%
% ?- leggi_lista_car(L,[10,32,46]).  %delimitatori: "a capo", "spazio", "punto"
% |: ciao.
% L = [99, 105, 97, 111] 
%
% ?- leggi_lista_car(L,".,;:").  
% |: ciao;
% L = [99, 105, 97, 111] 