Prism Ada

"foo ""bar"" baz"
"Multi-line strings are appended with a " &
"ampersand symbole."

WITH ADA.TEXT_IO;

-- Comments look like this.

PROCEDURE TEST IS
BEGIN
   ADA.TEXT_IO.PUT_LINE ("Hello"); -- Comments look like this.
END TEST;

with Ada.Text_IO; Use Ada.Text_IO;

-- Comments look like this.
procedure Test is
   procedure Bah with
    Import => True, -- Shows the new aspect feature of the language.
    Convention => C,
    External_Name => "bah";

   type Things is range 1 .. 10;
begin
   Put_Line ("Hello"); -- Comments look like this.

   Bah; -- Call C function.

   for Index in Things'Range loop
      null;
   end loop;
end Test;