with
  POSIX.Signals,
  POSIX.Timers,
  C_Signals;

with Ticker;
with Handlers;

procedure Ticker_Demo is
   use C_Signals;
begin
   Attach (Handler => Handlers.Countdown'Access,
           To      => Signal_Alarm);
   Ticker.Start (0.500);
   loop
      Pause;
   end loop;
end Ticker_Demo;