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;