stratum by D

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