var
  n, i, digits, tempSum, numberOfDigits, measure: Integer;

begin
  read(n);
  numberOfDigits := 1;
  digits := n;

  digits := digits mod 10;

  if digits = 0 or 1 or 6 or 8 then
  begin
    measure := 'pon';
  end

  else if digits = 3 then
  begin
    measure := 'bon';
  end

  else
    measure := 'hon';

    write(measure);
end.