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