with text_io;use text_io;procedure a is
begin put_line(get_line);put(current_error,get_line);a;end;