Ada

   1 with Ada.Text_IO;
   2 -- comment 
   3 procedure Hello is
   4 begin
   5    Ada.Text_IO.Put_Line("Hello, world!");
   6 end Hello;

   1 with ada.text_io;
   2 with gnat.calendar.time_io;
   3 with ada.calendar;
   4 
   5 procedure HelloDate is
   6     datetime: string(1..26); -- has exactly 22 chars
   7 begin
   8     -- gets date to string with milliseconds
   9     datetime := gnat.calendar.time_io.image( ada.calendar.clock, "[%Y-%m-%dT%H:%M:%S.%i] " );
  10     -- concatenetas string and shows date
  11     ada.text_io.put_line( datetime & "stuff " );  
  12 end HelloDate;