program listy;

type lista = ^elem;
   elem	   = record
				zawartosc : char;
				nast	  : lista
			 end;		  
var	l : lista;
   pl : text;
procedure drukuj (li: lista);
begin
   if li <> nil then
   begin
	  write(li^.zawartosc);
	  drukuj(li^.nast)
   end
end; { drukuj }

function wstaw (co : char; var gdzie :  lista) : lista;
var l :  lista;
begin
   new(l);
   l^.zawartosc := co;
   l^.nast := gdzie;
   wstaw := l
end; { wstaw }

procedure czytaj (var plik : text; var l : lista);
{ wczytuje znaki z pliku plik i wpisuje je do listy l }
var r : char;
   i  : integer;
begin
   reset(plik);
   i := 1;
   repeat
	  read(plik, r);
	  l:=wstaw(r,l)
   until eof(plik);
   close(plik)
end; { czytaj }

begin
   assign(pl,'./liczby');
   czytaj(pl,l);
   drukuj(l);
   writeln
end.