procedure Gnat.Spitbol.patterns.A is S:String:=Get_Line;begin
for I in reverse S'Range loop for J in I..S'Last loop Put_Line(S(I..J));end loop;end loop;end;