(* lista.toteutuksen.kayttoesimerkki.p SJ *)

(* Käännös:
	gpc tra02.h9.element.p lista.2linkitettytoteutus.p lista.toteutuksen.kayttoesimerkki.p
*)


program listankayttoesimerkki;

import lista;
import element;

var L : LIST;
	p : LIST_POSITION;
	x : ELEMENT; (* integer *)
	i : integer;

begin

	LIST_CREATE(L);

	for i := 1 to 10 do
		LIST_INSERT(L, LIST_EOL(L), i);

	p := LIST_FIRST(L);
	while (p <> LIST_EOL(L)) do begin
		write(LIST_RETRIEVE(L, p), ' ');
		p := LIST_NEXT(L, p);
	end;
	writeln;

end.