DouKaku?

USING: kernel io io.files io.streams.lines sequences ;

: drop/write ( outstream line -- outstream )
    dup "#" head?
    [ drop ]
    [ over stream-print ]
    if ;

: (remove-#-line) ( outstream -- outstream )
    [ readln dup ]
    [ drop/write ]
    [ drop ]
    while ;

: remove-#-line ( in-file out-file -- )
    <file-writer> swap <file-reader> <line-reader>
    [ (remove-#-line) stream-close ] with-stream ;

with Ada.Text_Io;
procedure Exclude is
   Line:String:=Ada.Text_Io.Get_Line;
begin
   if Line(Line'First)/='#' then
      Ada.Text_Io.Put_Line(Line);
   end if;
   Exclude;
exception
   when Ada.Text_Io.End_Error=>return;
end Exclude;