with Ada.Text_IO;
with Ada.Integer_Text_IO;
with Ada.Float_Text_IO;
use Ada.Text_IO;
use Ada.Integer_Text_IO;
use Ada.Float_Text_IO;

procedure hoge is
 s: Integer;
 w: Integer;
begin
 get(s);
 get(w);
 if s>w then
  put_Line("safe");
 else
  put_Line("unsafe");
 end if;
end hoge;