with ada.text_io; use ada.text_io;
with ada.integer_text_io; use ada.integer_text_io; 
 
procedure echocharsnl is
    c: Character;
begin
    while not end_of_file loop
        if end_of_line then
            new_line;
            skip_line;
        else
            get(c);
            put(c);
        end if;
    end loop;
end echocharsnl;