For https://twitter.com/hknokz/status/795670764649259009

MBD.adb

with Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO;
procedure MBD is
   use Ada.Strings.Wide_Wide_Unbounded;
   use Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Text_IO;
   function "+" (Right : Wide_Wide_String) return Unbounded_Wide_Wide_String
      renames To_Unbounded_Wide_Wide_String;
   x : constant array (Positive range <>) of Unbounded_Wide_Wide_String := (
      +"剣士", +"侍", +"弓師", +"重装兵", +"戦士", +"聖職者", +"暗殺者",
      +"魔法師");
begin
   for I in 1 .. 8 loop
      Put (x (I) & ' ');
   end loop;
-- for I in x'Range loop
--    Put (x (I) & ' ');
-- end loop;
-- for E of x loop
--    Put (E & ' ');
-- end loop;
end MBD;