procedure Gnat.Spitbol.Patterns.D is Begin Skip_Line;<<l>>Put_Line(Get_line);goto L;end;