-- Purpose: Simple client of word package
-- Prompts the user to guess a secret word with the length as a clue

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

with WordPkg; use WordPkg;

procedure SimpleWord is

    Secret, Guess: Word;

begin
    Secret := New_Word("Joe");
    New_Line;

    Put( "The length of the secret word is ");
    Put( Length(Secret), width => 1 ); 
    New_Line;

    Put("Guess the secret word: ");

    Get(Guess);

    Put(Guess);
    if Secret = Guess then
       Put( " is the secret word!");
    else
       Put( " is not the secret word!");
    end if;
    New_Line;


exception 
    when wordtoolong =>
       Put("Your word is too long.");
       New_Line;

end simpleword;