package body signals is
    protected body Sigint_Handler is

        procedure selector(s: Selector_Access) is
        begin
            sel := s;
        end;

        procedure Handle is
        begin
            Call_Count := Call_Count + 1;
i            Put_Line("SIGINT handled");
Gnat.Sockets.Abort_Selector(sel.all);

        END Handle;
    end Sigint_Handler;
end signals;