import Data.List

toInt :: String -> Int
toInt = read :: String -> Int

solve :: Int -> String
solve n
  | m == 3 = "bon"
  | m == 0 || m == 1 || m == 6 || m == 8 = "pon"
  | otherwise = "hon"
    where
      m = mod n 10

main = do
  n <- toInt <$> getLine
  putStrLn $ solve n
