uses crt;
var s:string;
function doixung(s:string):boolean;
var i:byte;
begin
    for i:=1 to length(s) div 2 do
        if s[i] <> s[length(s) - i + 1] then
            exit(false);
    exit(true);
end;
function xoa(s:string):string;
begin
    while pos(' ',s) <> 0 do
        delete(s,pos(' ',s),1);
    exit(s);
end;
procedure chuanhoaxau;
begin
    while pos('  ',s) <> 0 do
        delete(s,pos('  ',s),1);
    if s[1] = ' ' then delete(s,1,1);
    if s[length(s)] = ' ' then delete(s,length(s),1);
end;
begin
    clrscr;
    readln(s);
    writeln(doixung(s));
    writeln(xoa(s));
    chuanhoaxau;
    writeln(s);
readln;
end.

uses crt;
var s,s1:string;

function solve(s:string):boolean;
var i:longint;
begin
    for i:=1 to length(s) do
        if s[i]<>s[length(s)-i+1] then exit(false);
    exit(true);
end;

begin
clrscr;
    readln(s);
    s1:=s;
    writeln(solve(s));
    while s[1]=' ' do delete(s,1,1);
    while s[length(s)]=' ' do delete(s,length(s),1);
    while pos(' ',s)<>0 do delete(s,pos(' ',s),1);
    writeln(s);
    while s1[1]=' ' do delete(s1,1,1);
    while s1[length(s1)]=' ' do delete(s1,length(s1),1);
    while pos('  ',s1)<>0 do delete(s1,pos('  ',s1),1);
    write(s1); 
readln;
end.