with Ada.Text_IO;
with Ada.Characters.Handling;

procedure graphic_characters is
  begin
    Ada.Text_IO.Put("Graphic characters: ");
    for i in Character'Range loop
      if Ada.characters.handling.is_graphic(i) then
        Ada.Text_IO.Put(i);
      end if;
    end loop;
    Ada.Text_IO.New_Line;
  end graphic_characters;