import Control.Applicative

main :: IO ()
main = solve <$> readLn >>= putStrLn

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