program NameTester;
uses TerminalUserInput;
var
    name: string;
    i:integer;

procedure outputsillyname();

begin
        WriteLn(name, '  is a ');
        while i < 60 do
            begin
                write ('silly');
                i := i+1;
            end;
        WriteLn('name!');
end;

procedure Main ();

begin
    name := ReadString('What is your name? ');

    if (LowerCase(name)) = 'grace'
        then
            begin
            WriteLn(name,' is an AWESOME name!');
            end;
        else
            begin
            outputsillyname(name);
            end;

end;

begin
    Main();
end.