procedure Gnat.Spitbol.Patterns.J is begin Put(Get_Line);J;End;