write_list([H|[]]) :- write(H), write('.'),!. 
write_list([H|T]) :- length([H|T],2), write(H), write(' and '), write_list(T), !.
write_list([H|T]) :- write(H), write(','), write_list(T).