with Ada.Text_IO; use Ada.Text_IO;

with palspkg;
--  The generic package only needs to be withed.
--    It can't be used.

procedure palsclient is

   package mypalspkg is new palspkg(4, true);
   use mypalspkg;
   --  Create and use a new package

begin
   while not end_of_file loop
      block: declare
         s: String := get_line;
      begin
         put('<' & s & "> is ");

         if is_pal(s) then
            put_line("a palindrome!");
         else
            put_line("not a palindrome!");

            if s'length < min_pal_length then
               put_line("It is too short!");
            end if;
         end if;
      end block;
   end loop;
end palsclient;