procedure Gnat.Spitbol.Patterns.R is S:String:="# "&Get_Line&" ";begin for I in 2..S'Last loop Put(S(1+Boolean'Pos("# "<S(I..I+2)Or" "=S(I..I+2))));end loop;end;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).