main = do
 li <- getLine
 let n = read li
 let ans = compute n
 putStrLn ans

compute :: Int -> String
compute n
  | d == 3 = "bon"
  | d `elem` [0,1,6,8] = "pon"
  | True = "hon"
  where
    d = n `mod` 10