diff --git a/src/filo.adb b/src/filo.adb
new file mode 100644
index 0000000..89e26b9
--- /dev/null
+++ b/src/filo.adb
@@ -0,0 +1,13 @@
+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;