/*********************************************************************/
/*								     */
/* util_lr 							     */
/*								     */
/* Copyright (C) 1997 Thanaruk Theeramunkong (ping@jaist.ac.jp)      */ 
/*                    Manabu Okumura         (oku@jaist.ac.jp)       */
/*                    Susumu Kunifuji        (kuni@jaist.ac.jp)      */
/*                    Hiroki Imai            (imai@cs.titech.ac.jp)  */
/*								     */
/*					     	9 May 1997	     */
/*								     */
/*								     */
/*********************************************************************/

/****************************************/
/*      List Utility Subprocedures      */
/*                                      */
/*                      T.THANARUK      */
/*                                      */
/*                1997/02/15 (SUN)      */
/*                                      */
/****************************************/

% append/3
% list/1
% write_list/1
% write_list/2


% append(Xs,Ys,XsYs)

append([],Ys,Ys).
append([X|Xs],Ys,[X|Zs]) :-
	append(Xs,Ys,Zs).

list([]) :- !.
list([_|_]).

write_list([L|List]) :-  write(L), write('\n'),write_list(List).
write_list([]).

write_list(_N,[]) :- !.
write_list(N,[L|List]) :- 
	write(N),write(' : '),
	write(L),write('\n'),
	N1 is N+1,
	write_list(N1,List).
