var
  s1,s2 : string;
  d1,d2 : longint;
begin
  readln(s1);
  d1:=length(s1);
  d2:=length(d1-3);
  delete(s1,d1,3);
  writeln('length(',s1,')=',d1);
  writeln('length(',s2,')=',d2);
end.