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