var
  s: string;
  i,k: integer;
begin
k:=-1;
  readln(s);
  for i:=1 to length(s) do
  begin
  if s[i] = ',' then
   begin
   k:=i;
   break;
   end;
   end;
   If k<>-1 then
  writeln(k)
  else writeln('Net zapyatoi');
  end.