with Ada.Text_IO;         use Ada.Text_IO; 
with listpkg;
use listpkg;
procedure demo is
   a, b: List;
begin
   clear(a);
   clear(b);

   makelist(11, 13, a);
   makelist(21, 23, b);

   putlist(a);
   new_line;
   putlist(b);
   new_line;

   if equal(a, b) then
      put_line("same");
   else
      put_line("different");
   end if;

   clear(b);
   makelist(11, 13, b);
   putlist(b);
   new_line;

   if equal(a, b) then
      put_line("same");
   else
      put_line("different");
   end if;
end demo;
-- Output:
--|
--|         11         12         13
--|         21         22         23
--|different
--|         11         12         13
--|same