//1.........................................................
Program first;

var a,f:string;
    i:integer;

begin

readln(a);

for i := 1 to length(a) do f := a[i] + f;
writeln(f);

end.
//...........................................................


//2..........................................................
Program second;

var a:string;
    i,f:integer;

begin

readln(a);

for i := 1 to length(a) do
begin
if a[i] = ' ' then
f := f + 1;
end;
writeln(f);
end.
//............................................................


//3...........................................................
Program third;

var a:string;
    i,f:integer;

begin

readln(a);

for i := 1 to length(a) do
begin
     if a[i] = 'ê' then
     begin
     f := i;
     break;
     end;
end;
if f <> 0 then
writeln(f)
else
writeln('No');
end.
//.............................................................