/* kaanna_lista.c */

#include <TRA.h>

void kaanna_lista(LIST L)
{
	LIST_POSITION p, q;
	ELEMENT x;
	p = LIST_EOL(L);
	q = LIST_PREVIOUS(L, p);
	do {
		p = q;
		if (p != LIST_FIRST(L)) 
			q = LIST_PREVIOUS(L, p);
		else
			q = LIST_EOL(L);
		x = LIST_RETRIEVE(L, p);
		LIST_DELETE(L, p);
		LIST_INSERT(L, LIST_EOL(L), x);
	} while (q != LIST_EOL(L));
		
}

/* kokeiluosio */

int main()
{
  LIST oma;

  INT_LIST_CREATE(oma);

  LIST_CONSTRUCT_RANDOM(oma, 10, 1, 5);

  LIST_PRINT(oma); putchar('\n');

  kaanna_lista(oma);

  LIST_PRINT(oma); putchar('\n');

	exit(0);
}