segs by D

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;

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page