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;