with Ada.Text_IO;         use Ada.Text_IO; 
with listpkg;
use listpkg;
procedure demo is
   a, b: List;
begin
   init(a);
   init(b);
   makelist(11, 13, a);
   makelist(21, 23, b);
   putlist(a);
   putlist(b);
   if equal(a, b) then
      put_line("same");
   else
      put_line("different");
   end if;
end demo;