fork download
  1. with Ada.Text_IO;
  2. use Ada.Text_IO;
  3.  
  4. procedure Program is
  5. begin
  6. for I in 1 .. 10 loop
  7. Put_Line ("Hello");
  8. end loop;
  9. end Program;
Success #stdin #stdout 0s 5760KB
stdin
Standard input is empty
stdout
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello