@@ 88,18 88,22 @@ package body Input is
    procedure Open (Buffer : in out Unbounded_String_Stream;
                    Data   : Hauki.Charbuf.Char_Buffer) is
    begin
-      Put_Line ("Open begin");
       for I in reverse Long_Integer range 1 .. Length (Data) loop
-         -- Put_Line ("Append " & I'Img);
          Append (Buffer.Buffer, Element (Data, I));
       end loop;
-      Put_Line ("Open end");
+   end Open;
+
+   procedure Open (Buffer : in out Unbounded_String_Stream;
+                   Data   : String) is
+   begin
+      for I in reverse Data'Range loop
+         Append (Buffer.Buffer, Data (I));
+      end loop;
    end Open;
 
    procedure Close (Buffer : in out Unbounded_String_Stream) is
    begin
-      -- Buffer.Buffer := Null_Unbounded_String;
-      null;
+      Clear (Buffer.Buffer);
    end Close;
 
    procedure Get

          
@@ 113,7 117,6 @@ package body Input is
          Head (File.Buffer, Length (File.Buffer) - 1);
          Char := Data;
          Status := True;
-         Put_Line ("Source_Code.Get: " & Data);
          if Char = Character'Val(10) then
             File.Line_Number := File.Line_Number + 1;
          end if;

          
@@ 129,7 132,6 @@ package body Input is
       if Char = Character'Val(10) then
          File.Line_Number := File.Line_Number - 1;
       end if;
-      Put_Line ("Source_Code.Put: " & Char);
       Append (File.Buffer, Char);
    end Put;
 

          

@@ 69,6 69,9 @@ package Input is
 
    procedure Open (Buffer : in out Unbounded_String_Stream;
                    Data   : Hauki.Charbuf.Char_Buffer);
+   
+   procedure Open (Buffer : in out Unbounded_String_Stream;
+                   Data   : String);
 
    procedure Close (Buffer : in out Unbounded_String_Stream);