with ada.text_io; use ada.text_io;
with ada.integer_text_io; use ada.integer_text_io; 
 
procedure echochars is
    c: Character;
begin
    while not end_of_file loop
            get(c);
            put(c);
    end loop;
end echochars;