package body FILO is

   function Equal (Str : String; Buf : Buffer_Type) return Boolean is
   begin
      for I in Str'Range loop
         if Character'Pos (Str (I)) /= Buf (Buf'First + (I - Str'First)) then
            return False;
         end if;
      end loop;
      return True;
   end Equal;

end FILO;