writelist([]).
writelist([H|T]):-write(H),nl,writelist(T).

reverse_writelist([]).
reverse_writelist([H|T]):-reverse_writelist(T),write(H),nl.
