with Ada.Text_IO;
procedure Mirror is Buffer:String(1..1_001); use
Ada.Text_IO; Last:Natural;
function Invert (T: in String) return String
is begin return T(t'Last) &Invert(T(T'First..T'Last-1));end;
begin Put("zu invertierender Text: ");Get_Line(Buffer,Last);
Put_Line(invert(Buffer(1..Last)));
end Mirror;