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;