-- foo
procedure Foo is
   A :
     -- Hinhin
     Integer;
begin
   -- Huhu
   null;
   -- Haha
   -- Hoho
   null;
end Foo;
-- foo
