procedure Gnat.Spitbol.Patterns.M is T:String:=Get_Line;begin for I in reverse T'Range loop Put_Line(S(T(I..T'Last)&Reverse_String(T(I..T'Last))));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