Program abc;
  var s: string;
           r, k, t, i: integer;
begin
  r := 0;
  k := 0; t := 0;
  read(s);
  for i := 1 to length(s) do
  begin
      if s[i] = 'r' then inc(r)
      else if s[i] = 'k' then inc(k)
      else if s[i] = 't' then inc(t);
  end;
  writeln('r: ', r);
  writeln('k: ', k);
  writeln('t: ', t);
end.