diff --git a/src/filo.ads b/src/filo.ads
index 2e02436..6a9a4b8 100644
--- a/src/filo.ads
+++ b/src/filo.ads
@@ -48,4 +48,15 @@
    function Is_Power_Of_2 is new Gen_Is_Power_Of_2 (Unsigned_16);
    function Is_Power_Of_2 is new Gen_Is_Power_Of_2 (Unsigned_32);
 
+   Space             : constant Character := ' ';
+   Form_Feed         : constant Character := Character'Val (16#0c#);
+   New_Line          : constant Character := Character'Val (16#0a#);
+   Carriage_Return   : constant Character := Character'Val (16#0d#);
+   Tab               : constant Character := Character'Val (16#09#);
+   Vertical_Tab      : constant Character := Character'Val (16#0b#);
+
+   function Is_Space (Ch : Character) return Boolean
+   is
+      (Ch = ' ' or (Tab <= Ch and Ch <= Carriage_Return));
+
 end FILO;