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

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