procedure Gnat.Spitbol.Patterns.D is begin Put(S(2*(Get_Line&Ascii.Lf)));D;end;