"(* Executing... *)"; 

TST:=   read X;
	Y:=nil;
	while X do{
		Y:=cons (hd X) Y;
		X:=tl X;
	}
	write Y;

"The value of D is..";

D:=((w.(h.i)).(l.(e.i)));
D;
S:=nil;

WORK:=  read X;
	B:=nil;
	while (tl X) do {
		Y:=hd X;
		while (tl Y) do {
			B:=cons (hd Y) B;
			Y:=tl Y;
		}
		B:=cons Y B;
		X:=tl X;
	}
	B:=cons X B;
	write B;

WORK(D);
"This Value is stored in a variable and reversed..";
S:=WORK(D);
TST(S);