with text_io;use text_io;
 procedure INITIAL is
  begin
   put_line("fe_initialized");
  end;