with Ada.Text_IO; use Ada.Text_IO;
procedure Main is
   Corge_garply : Integer := 1;
   Foo_Bar : constant Integer := 1;
   bar_Foo : constant Integer := 1;
   CoRge, GarpLy : constant Integer := 1;
begin
   Put_Line (bAr_FoO'Image);
end Main;
