Simple utf8 console based tile map rendering

main.adb

with Ada.Wide_Text_IO;

procedure Main is
   subtype Tile_Width is Wide_String (1 .. 3);
   Dot : constant Tile_Width := ".  ";
   Map : constant array (1 .. 5, 1 .. 5) of Tile_Width :=
        (("╔", "═", "═", "═", "╗"),
         ("║", Dot, Dot, Dot, "║"),
         ("║", Dot, Dot, Dot, "║"),
         ("║", Dot, Dot, Dot, "║"),
         ("╚", "═", "═", "═", "╝"));
   Item : Tile_Width;
begin
   for X in Map'Range (1) loop
      for Y in Map'Range (2) loop
         Item := Map (X, Y);
         if Item = Dot then
            Ada.Wide_Text_IO.Put (Item (1));
         else
            Ada.Wide_Text_IO.Put (Item);
         end if;
      end loop;
      Ada.Wide_Text_IO.Put_Line ("");
   end loop;
end Main;