with ada.integer_text_io; use ada.integer_text_io;
with ada.text_io; use ada.text_io;
with wordpkg; use wordpkg;
with wordpkg.pals; use wordpkg.pals;
procedure wordclient2 is
w: word;
p: boolean;
s: string := "racecar" ;
begin
loop
w := new_Word(s);
-- get(w);
exit when length(w) = 0;
if ispal(w) = true then
put(w);
put(" is a palindrome");
new_line;
else
put(w);
put(" is not a palindrome");
end if;
p := ispal(w);
put(p'img & " ");
put(w);
put(length(w));
new_line;
end loop;
end wordclient2;